用VBA将几个sheet里的数据，复制粘贴在一起的问题。

狼随风窜 · 发表于 2013-5-1 17:41

我想用VBA，将很多sheet表里的数据，合并到一个sheet里，我是录制的一个宏。可是有个问题，就是每次把复制过来的数据粘贴的时候，都是在固定的行上，怎么才能够让它接着上次的数据的行数往下粘啊

标红的地方……就是我想改的地方，但是不知道怎么改~！

Sub Macro5()
'
' Macro5 Macro
'
'
Sheets("HL").Select
Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Selection.Copy
Sheets("数据明细-RMB").Select
Rows("3:3").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Sheets("HU").Select
Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("数据明细-RMB").Select
Rows("18:18").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Sheets("HZ").Select
Rows("10:10").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
Selection.Copy
Sheets("数据明细-RMB").Select
Rows("27:27").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
End Sub

蓝无领 · 发表于 2013-5-1 17:48

上传个附件和模拟效果，这个应该不难的。

狼随风窜 · 发表于 2013-5-1 18:00

见附件，大家帮帮忙啊…………

狼随风窜 · 发表于 2013-5-1 18:01

蓝无领发表于 2013-5-1 17:48
上传个附件和模拟效果，这个应该不难的。

DEMO-diya.7z (364.48 KB, 下载次数: 22)

东亚五金 · 发表于 2013-5-1 18:41

如果不经常用，等代码弄好了，手工复制粘贴也早完成了

狼随风窜 · 发表于 2013-5-1 19:02

东亚五金发表于 2013-5-1 18:41
如果不经常用，等代码弄好了，手工复制粘贴也早完成了

经常用，而且sheet非常的多，我只是简单的列出三个做个demo

东亚五金 · 发表于 2013-5-1 19:49

Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).EntireRow.Select '选择有数据的下一行，鼠标在整列

蓝无领 · 发表于 2013-5-1 20:09

本帖最后由蓝无领于 2013-5-1 20:16 编辑

狼随风窜发表于 2013-5-1 18:01

希望这个可以帮到你
附件里的宏你是录的吧？这个是不具有通用性的，有时间可以多看看EH的一些代码。
Sub test()
Dim m As Integer, c As Integer, r As Integer
For m = 2 To Sheets.Count
c = Sheets(m).[a1048576].End(xlUp).Row
r = Sheet1.[a1048576].End(xlUp).Row
Sheets(m).Select
Range("A10", "XFD" & c).Select
Range("a" & c).Activate
Selection.Copy
Sheet1.Select
Range("a" & r + 1).Select
ActiveSheet.Paste
Next
End Sub

DEMO-diya-sample.rar (381.82 KB, 下载次数: 8)

狼随风窜 · 发表于 2013-5-1 22:02

蓝无领发表于 2013-5-1 20:09
希望这个可以帮到你
附件里的宏你是录的吧？这个是不具有通用性的，有时间可以多看看EH的一些代码。
Su ...

太感谢你了！！！！！！！！！！！！！真厉害！

狼随风窜 · 发表于 2013-5-1 22:07

东亚五金发表于 2013-5-1 19:49
Range("A" & Cells.Find("*", LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).EntireRow. ...

十分感谢啊！！！！

		自动登录	找回密码
密码			免费注册