|
发表于 2016-11-8 20:35
|
显示全部楼层
本楼为最佳答案
Private Sub CommandButton1_Click()
Dim a&, i&
a = Range("A65536").End(xlUp).Row
For i = 2 To a Step 11
Cells(i, 4) = Cells(2, 4)
Cells(i, 7) = Cells(2, 7)
Cells(i + 2, 2) = Cells(i + 2, 3)
Cells(i + 2, 3).ClearContents
Cells(i + 5, 2) = Cells(i + 5, 4)
Cells(i + 5, 4).ClearContents
Next
End Sub
|
|