UC知道如何在EXCEL两个表格中批量复制数据，整行的
来源：百度知道 编辑：UC知道 时间：2024/05/31 05:45:14
比如表格1中的行1，3，5，7，9．．．．．．（一直往下）中数据，复制到表格2中的行1，4，7，10，13．．．．．．要进行批量复制，是不是要进行VBA编辑啊？
Option Explicit
Sub test()
Dim a As Integer, i As Integer, j As Integer
a = Sheet1.UsedRange.Rows.Count
j = 0
For i = 1 To a Step 2
Sheet1.Range("a" & i).EntireRow.Copy Destination:=Sheet2.Range("a" & i + j)
j = j + 1
Next i
End Sub
利用公式也可以，不过那就使得表格太“肥”了，VBA来得简单些。