Sub 複製()
Dim v, m
v = Val([AA!a2])
m = Application.Lookup(v, [{40,43,80,83,160,163,320,323}], [{2,0,4,0,6,0,8,0}])
If IsError(m) Then Exit Sub
If m > 0 Then [ZZ!e2].Resize(m).Copy [AA!B1]
End Sub
sub 複製()
dim v, m
v=val([AA!a2])
m=application.match(v, [{20,40,60,61,62,63,64,65,66,67,80,100,121,142}],0)
if iserror(m) then exit sub
[ZZ!e2].resize(m*2).copy [AA!B1]
end sub
大大，請問一下，假設我再追加數字61~67的數字，這樣的話無法只單純複製6格，目前希望的是假設60~69的數字，都只會複製6格，也就是ZZ工作表的E2:E7的格子數。
請大大解惑! 有試著改動 m*2 的*2 但效果不如預想。
sub 複製()
dim v, m
v=val([AA!a2])
m=application.match(v, [{20,40,60,80,100,121,142}],0)
if iserror(m) then exit sub
[ZZ!e2].resize(m*2).copy [AA!B1]
end sub
發表於 2021-10-30 09:58
| 
發表於 2021-10-31 10:00
| 
