迴圈耗時的問題

本帖最後由 ziv976688 於 2019-8-22 01:26 編輯

測試檔︰

迴圈問題.rar (104.1 KB)

想將"前三小數"工作表的.Range("AP2:AP127")範圍內的"大"改為"小"；
並將44號底色改為38號底色，4號底色改為40號底色，8號底色改為39號底色。
另將.Range("AX2:BB127")範圍內的"大"改為"小"；
最後將[AP2:BC127].Copy [BE2]
目前的程式碼如下︰
'更改文字和底色  '=>列247
For Each Rng In .Range("AP2:AP127")
      Rng.Value = Replace(Rng, "大", "小")
      i = Rng.Interior.ColorIndex
      Rng.Interior.ColorIndex = IIf(i = 44, 38, IIf(i = 4, 40, IIf(i = 8, 39, i)))
Next
For Each Rng In .Range("AX2:BB127")
      Rng.Value = Replace(Rng, "大", "小")
Next
[AP2:BC127].Copy [BE2] '=>列256

問題︰上述的區段程式碼跑的時間異常(約須耗時15秒)。
需求︰請問要如何正確編寫？以利提升執行的效率。

PS︰附上2個.CSV測試檔
誠請各位大大不吝幫忙！謝謝！

樓主熱帖

ziv976688

高中生 Rank: 3 Rank: 3

帖子: 678
主題: 147
精華: 0
積分: 799
點名: 0
作業系統: win 8
軟體版本: MS 2003
閱讀權限: 50
性別: 男
註冊時間: 2016-2-9
最後登錄: 2022-1-20

2^#

發表於 2019-8-23 01:42 | 顯示全部帖子

爬文許久，還是找不到適用的語法^^"
先以錄製的語法暫用~~如果可以再修減的話，誠請各位大大不吝賜教!謝謝!
'更改文字和底色
Range("AP2:AP127").Select
Application.FindFormat.Interior.ColorIndex = 44
Application.ReplaceFormat.Interior.ColorIndex = 38
Selection.Replace What:="大", Replacement:="小", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
      ReplaceFormat:=True
Application.FindFormat.Interior.ColorIndex = 4
Application.ReplaceFormat.Interior.ColorIndex = 40
Selection.Replace What:="大", Replacement:="小", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
      ReplaceFormat:=True
Application.FindFormat.Interior.ColorIndex = 8
Application.ReplaceFormat.Interior.ColorIndex = 39
Selection.Replace What:="大", Replacement:="小", LookAt:=xlPart, _
      SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=True, _
      ReplaceFormat:=True

Range("AX2:BB127").Select
Selection.Replace What:="大", Replacement:="小", LookAt:=xlPart

TOP

ziv976688