Sub test()
rr=cells(rows.count.1).end(3).row
With Sheets(“结果”)
k=1
For i=2 to r
Sheets(“模板”).Range(“A1:A6”).Copy .Cells(k,1)
.Cells(k,1).Offset(3,)=“NAME” &Cells(i,1)
.Cells(k,1).Offset(4,)=“耐圆工号” &Cells(i,2)
k=k+6
Next
End With
End sub
EXCEL自动复制粘贴每天数据的 *** 作,首先打开EXCEL表格中的粘贴板,然后对粘贴板中进行编辑需要进简清行 *** 作的信息和资料。当所有的 *** 作完成之后,再把自动 *** 作的选项打开就耐备可以昌咐毁的欢迎分享,转载请注明来源:内存溢出
评论列表(0条)