返回列表 上一主題 發帖

[發問] Excel VBA 複製問題請益

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2021-10-30 11:42 | 顯示全部帖子
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

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2021-10-30 20:55 | 顯示全部帖子
回復 4# zz0660


那有沒有68,69 或不在清單中的其它數字,'
最好上傳附檔, 並舉例說明~~老是用猜的太費時間

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2021-10-31 10:00 | 顯示全部帖子
回復 6# zz0660


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

改用lookup, 複製行數可自由指定不同參數, 不一定是2或4的倍數

.========================

TOP

        靜思自在 : 屋寬不如心寬。
返回列表 上一主題