VBA_如何簡化此程式碼。謝謝! - Excel程式區

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

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

靜思自在 : 一個缺口的杯子，如果換一個角度看它，它仍然是圓的。