返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
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

        靜思自在 : 人的心地是一畦田，土地沒有播下好種子，也長不出好的果實。 -
返回列表 上一主題