软件:EXCEL
版本:2010
如下VBA码 能否将 "工1" 透过循环进行复制
Sub n()
'......(以上省略)
Set 工1 = Range(Cells(12, "B"), Cells(最末列, "B"))
Set 工2 = Range(Cells(12, "C"), Cells(最末列, "C"))
Set 工3 = Range(Cells(12, "D"), Cells(最末列, "D"))
Sheets(某工作表).Select
For i = 1 To 3
XXX = "工" & i '第一次指定为工1 ...以此类推
XXX.Copy: Cells(2, i).Select: ActiveSheet.Paste
'↑XXX.Copy将出现错误
Next
End Sub
谢谢