EXCEL批量复制

来源：百度知道 编辑：UC知道 时间：2024/09/20 09:21:48
请各位大侠救命我需要一个批量复制的宏具体内如如下：
把第1行的GHIJ单元格中的内容复制到第2行的BCDE单元格中
再第3行的GHIJ单元格中的内容复制到第4行的BCDE单元格中
以此类推这个用EXCEL怎么批量完成啊 求高手写个宏
各位可能是我没表达明白
第一行是个表头实际是
把第2行GHIJ单元格中的内容复制到第3行的BCDE单元格中
把第4行GHIJ单元格中的内容复制到第5行的BCDE单元格中
以此类推 并且每行的GHIJ单元格中的内容是不一样的。 总共5068行
我写了一个用了下没问题了内容是
Sub 宏2()
Dim i, j As Integer
For i = 2 To 5068
If i Mod 2 = 0 Then
For j = 2 To 5
Sheet1.Cells(i + 1, j) = Sheet1.Cells(i, j + 5)
Next
End If
Next
End Sub

Sub ABC()
k = [G65536].End(xlUp).Row
For i = 1 To k Step 2
For j = 7 To 10
Cells(i + 1, j - 5) = Cells(i, j)
Next
Next
End Sub

如果偶数行的GHIJ单元格没数字的话，就可以把GHIJ列全复制了，但如果隔着 行的话好象是不能复制

不要用宏啊
很简单的
你到第二行的BCDE输入
B2=G1,C2=H1,D2=I1,E2=J1
然后选中B2:E3，点到右下角的小黑点，下拉，即可。

b2=g1,右拉到E2
同时选中B2至E3（注意，B3至E3为空白无公式），再下拉填充。