作者home0303 (Blue night)
看板Office
标题[算表] 回圈计数与范围设定的搭配
时间Tue Apr 13 22:50:20 2021
软体: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
谢谢
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 223.140.213.184 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1618325422.A.AB0.html
1F：→ ldt9823: 放到array里面,再回圈array应该可行 04/14 00:37
2F：→ home0303: 谢谢 04/14 20:15