Worksheets("S1").Range("A" & 1).EntireRow.Copy Worksheets("S2").Range("A" & 1)
Worksheets("S1").Range("A" & 1).EntireRow.Delete
S1 Sheet中第一行剪切到S2中第一行。若要获取Sheet中最后非空行号,请参考《VBA 获取某列最后一行非空行号》
(完)
VBA 行剪切到其他Sheet
来源:清泛原创 2018-03-27 15:30:20 人气: 我有话说( 0 人参与)
VBA 行剪切代码:Worksheets("S1") Range("A" & 1) EntireRow Copy Worksheets("S2") Range("A" & 1)Worksheets("S1") Range("A" &
Worksheets("S1").Range("A" & 1).EntireRow.Copy Worksheets("S2").Range("A" & 1)
Worksheets("S1").Range("A" & 1).EntireRow.Delete
S1 Sheet中第一行剪切到S2中第一行。