中易网

excel确认自动生成VBA的方法如何表出库单里填写的A2:F3的内容用VBA,自动生成到表流水明

答案:2  悬赏:0  
解决时间 2021-01-19 09:49
  • 提问者网友:我一贱你就笑
  • 2021-01-18 17:09
excel确认自动生成VBA的方法如何表出库单里填写的A2:F3的内容用VBA,自动生成到表流水明
最佳答案
  • 二级知识专家网友:神的生死簿
  • 2021-01-18 17:21
将下现有代码复制到VBA编辑器中,加载在控件里运行就可以了
Sub localdata()
x = 2
Do While Sheet1.Cells(x, 1) <> ""
x = x + 1
Loop
n = 2
If ActiveSheet.Cells(n, 1) = "" Then
MsgBox "内容不完整,请确认!"
Exit Sub
End If
Do While n<= 3
On Error Resume Next
Sheet1.Cells(x, 1) = ActiveSheet.Cells(n,1)
Sheet1.Cells(x, 2 )= ActiveSheet.Cells(n,2)
Sheet1.Cells(x, 3) = ActiveSheet.Cells(n, 3)
Sheet1.Cells(x,4) = ActiveSheet.Cells(n, 4)
Sheet1.Cells(x, 5) = ActiveSheet.Cells(n, 5)
Sheet1.Cells(x, 6) = ActiveSheet.Cells(n, 6)
x = x + 1
n = n + 1
Loop
CommandButton1.TakeFocusOnClick = False
ActiveWorkbook.Save
End Sub
全部回答
  • 1楼网友:由着我着迷
  • 2021-01-18 18:28
没看懂,到底要做什么呢?追问复制一个区域到另一个区域粘贴。粘贴的区域要逐行向下不能覆盖以前粘贴的东西追答原来的要往下移?追问原来的不动。新来的向下逐行保存追答原来的下面是空格吗?追问对追答那直接定位到末尾再粘贴就可以了嘛!追问不会追答Ctrl+end
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息!
大家都在看
推荐信息