excel数据导入问题 有A,B两个表格。 现在要把A表格里面的数据，导入到B表格里面

Sub copyif()Dim carr()Dim R1, C1, R2C1 = Sheet1.UsedRange.Columns.CountR1 = Sheet1.UsedRange.Rows.CountR2 = Sheet2.UsedRange.Rows.Countcarr() = Array(6, 5, 2, 3, 7, 1, 4)For i = 1 To R1 For j = 1 To C1 Sheet2.Cells(R2 + i, j) = Sheet1.Cells(i +