☰

excel 复制过去重复宏

tag-icon • tag-icon microsoft-excel microsoft-excel-2010 vba macros
excel 复制过去重复宏

目前，我正在用 Excel 为我的大学做一个研究项目。现在我有一个特定的范围 BF1:DJ293，必须将其复制并粘贴到右侧 238 次。因此，必须将此范围复制到 DK1:FO293 等。因此，就在上一个副本旁边。我不知道如何编写宏，我想知道你们中是否有人知道如何完成此操作？

答案1

因此像这样的操作将取范围 A1:10 并将其复制到 C1:D10

Sub test()
Range("A1:B10").Copy
Range("C1").PasteSpecial xlPasteValues
End Sub

我们需要一种方法来计算范围有多大，并在迭代时使用它。类似这样的方法应该可行 -

Sub test()
Dim start As Integer
Dim finish As Integer
Dim change As Integer

start = Range("BF1").Column
finish = Range("DJ293").Column
change = finish - start

For i = 1 To 238
    Range(Cells(1, start), Cells(293, finish)).Copy
    Cells(1, finish + 1).PasteSpecial xlPasteValues
    start = (Cells(1, finish + 1).Column)
    finish = start + change
Next

End Sub

相关内容