返回列表 上一主題 發帖

[發問] VBA_如何簡化此程式碼。謝謝!

准提部林

帖子
2843 
主題
10 
精華
0 
積分
2899 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2025-8-20 
1# 跳轉到 »
發表於 2015-11-25 11:30 | 顯示全部帖子
Dim Arr,i%
Arr = Array("一", "二", "三", "四", "五", "人事", "會計", "業務")
For i = 0 To UBound(Arr)
　　[A:A].Replace i + 1, Arr(i) & "課", Lookat:=xlWhole
Next

TOP

        靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。
返回列表 上一主題