作者:乔山办公网日期:
返回目录:excel表格制作
是将抄(A1:D1)复制百到(A2:D2)吗?
这样的复制度还是直接写源单元问格复制以目标单元格的代码好答了。
Sub Macro1()
Range("A1:D1").Select
Selection.Copy
Range("A2").Select
ActiveSheet.Paste
Range("A5:D5").Select
Selection.Copy
Range("A6").Select
ActiveSheet.Paste
Range("A9:D9").Select
Selection.Copy
Range("A10").Select
ActiveSheet.Paste
End Sub
这个很简单,但是下面的第二个要求没看懂。
另外你是想做成快捷键一次一个的进行呢,还是想一次性循环完成所有工作?
12345678910Sub fuzhi()with activesheet For i = .Range("N65536").End(xlUp).Row To 2 Step -1 n = UBound(Split(.Cells(i, "N"), ",")) .Rows(i & ":" & i + n - 1).Insert .Rows(i + n).Copy .Rows(i & ":" & i + n - 1) .Rows(i + 1 & ":" & i + n).Interior.Color = vbGreen Next end withEnd Sub
Sub 复制()
Dim I%
I = Sheets(2).Range("A65536").End(xlUp).Row
Range("A2:D2").Copy Sheets(2).Range("a" & I + 1)
End Sub
代码来放在自sheet1表
直接点 按钮即可zhidao