原本錄下的巨集為
Range("A20:N1200,U20:V1200,Z20:Z1200,AE20:AF1200,AJ20:Ak1200,AM20:AP1200").Select
Selection.Copy
---------------------------------------------------------------------
最後的1200(row) 想由b欄 的最後row取代.
dim bb
Set bb = Range("b65536").End(xlUp).Offset(0)
CC = bb.Row
接下的語法是??作者: t8899 時間: 2015-4-10 21:33
已解決 用 Union
With Sheets("Sheet6")
Dim bb, d, e, F, G, H, I
Set bb = .Range("b65536").End(xlUp).Offset(1)
CC = bb.Row
Set d = .Range("A20:N" & CC)
Set e = .Range("u20:v" & CC)
Set F = .Range("Z20:Z" & CC)
Set G = .Range("AE20:AF" & CC)
Set H = .Range("AJ20:AK" & CC)
Set I = .Range("AM20:AP" & CC)
End With
Union(d, e, F, G, H, I).Copy
