excel - 从 Excel 中的每 4 列复制数据

Question

我在 Sheet1 中有一个包含 100 多列的原始数据，我需要在 Sheet 2 中每隔 4 列复制一次。我尝试了单元格链接，只是想知道 excel 中是否有任何公式可以执行此事件。

表 1 和表 2 的屏幕截图以供引用。





非常感谢这方面的任何帮助。

Answer 1

这是动态的行和列。

这假设 Column A在两张纸上都可以很好地指示可以找到最后一行的位置。

Sub Columns()

Dim ws1 As Worksheet: Set ws1 = ThisWorkbook.Sheets("Sheet1")
Dim ws2 As Worksheet: Set ws2 = ThisWorkbook.Sheets("Sheet2")

Dim LR As Long, LC As Long, LR2 As Long, Counter As Long, CopyRange As Range

LR = ws1.Range("A" & ws1.Rows.Count).End(xlUp).Row
LC = ws1.Cells(1, ws1.Columns.Count).End(xlToLeft).Column
LR2 = ws2.Range("A" & ws2.Rows.Count).End(xlUp).Offset(1).Row
Counter = 1

Application.ScreenUpdating = False
    For i = 1 To LC Step 3
        ws1.Range(ws1.Cells(2, i), ws1.Cells(LR, i)).Copy
        ws2.Cells(LR2, Counter).PasteSpecial xlPasteValues
        Counter = Counter + 1
    Next i
Application.ScreenUpdating = True

End Sub