我是宏写作新手,我需要一些帮助。
我有一张纸,需要复制列并重新排序以粘贴到软件程序中。
这是我的代码,我试过了......(我知道这只是为了复制 A 列,但我被困在那里。)
Sub Copy()
aLastRow = ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
Range("A2" & aLastRow).Select
Selection.Copy
Sheets("Sheet2").Select
Range("A1").Select
ActiveSheet.Paste
End Sub
非常感谢你的帮助!
杰斯
最佳答案
试试这个。鉴于您说粘贴代码有错误,而我仍在使用它,我认为您仍然会有错误。发布错误消息。希望我们能弄清楚这一点。
Sub copyStuff()
Dim wsIn As Worksheet
Set wsIn = Application.Worksheets("Sheet1")
Dim endRow As Long
wsIn.Activate
endRow = wsIn.Cells(wsIn.Rows.Count, "A").End(xlUp).Row
Dim r As Range
Dim wsOut As Worksheet
Set wsOut = Application.Worksheets("Sheet2")
' column a to column a
Set r = wsIn.Range(Cells(2, 1), Cells(endRow, 1))
r.Copy
wsOut.Range("A1").PasteSpecial xlPasteAll
' column b to column k
Set r = wsIn.Range(Cells(2, 2), Cells(endRow, 2))
r.Copy
wsOut.Range("K1").PasteSpecial xlPasteAll
' column c to column c
Set r = wsIn.Range(Cells(2, 3), Cells(endRow, 3))
r.Copy
wsOut.Range("C1").PasteSpecial xlPasteAll
' column d to column d
Set r = wsIn.Range(Cells(2, 4), Cells(endRow, 4))
r.Copy
wsOut.Range("D1").PasteSpecial xlPasteAll
' Copy data from sheet 2 into clipboard
wsOut.Activate
Set r = wsOut.Range(Cells(1, 1), Cells(endRow - 1, 11))
r.Copy
End Sub
我的原始答案在下面。你可以无视。
这应该实现您的第一个目标:
Sub copyStuff()
Dim wsIn As Worksheet
Set wsIn = Application.Worksheets("Sheet1")
Dim endRow As Long
endRow = wsIn.Cells(wsIn.Rows.Count, "A").End(xlUp).Row
Dim r As range
Set r = wsIn.range(Cells(2, 1), Cells(endRow, 4))
r.Copy
Dim wsOut As Worksheet
Set wsOut = Application.Worksheets("Sheet2")
wsOut.range("A1").PasteSpecial xlPasteAll
End Sub
我一次复制了所有 4 列,因为这样会快得多,但它假设列的长度相同。如果不是这样,您将需要一次复制一个。
数据应位于宏末尾的剪贴板中。
编辑:我删除了“wsIn.Activate”,因为它并不是真正需要的。
编辑2:哎呀!我刚刚注意到你想要不同列中的输出。我会努力的。
关于vba - 使用 VBA 将动态范围复制并粘贴到 Excel 中的新工作表,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/42420280/