假如原始数据在sheet2, 占用sheet2的第5列,用来做标记Sub Macro1()For i = 2 To Sheet2.Range("a65536").End(xlUp).Row Sheet2.Cells(i, 5) = 0Next i
'先复制第一行数据(标题) Sheet1.Cells(1, 1) = Sheet2.Cells(1, 1)Sheet1.Cells(1, 2) = Sheet2.Cells(1, 2)Sheet1.Cells(1, 3) = Sheet2.Cells(1, 3)Sheet1.Cells(1, 4) = Sheet2.Cells(1, 4) n ...
|