[發問] ＩＦ　多條件判斷如何改為陣列執行｜

本帖最後由 starry1314 於 2015-10-12 09:33 編輯

功能：Ｄ欄內　不為【Ｌ。Ｐ。Ｔ。Ｑ。Ｉ】一律取代為Ａ
請問如何改為以陣列模式執行呢？　因就算關閉螢幕刷新與自動計算，還是有點慢

Sub 代號替換()
For I = 2 To 50000
Ν = Range("d" & I)
If Ν <> "L" And Ν <> "P" And Ν <> "T" And Ν <> "Q" And Ν <> "I" Then
Range("D" & I) = "A"
End If
Next
End Sub

複製代碼

樓主熱帖

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

2^#

發表於 2015-10-12 10:54 | 只看該作者

回復 1# starry1314

你要的陣列模式這這樣嗎？

Sub 代號替換()
Dim Arr(1 To 49999, 1 To 1)
For I = 2 To 50000
Ν = Range("d" & I)
If Ν <> "L" And Ν <> "P" And Ν <> "T" And Ν <> "Q" And Ν <> "I" Then
Arr(I - 1, 1) = "A"
Else
Arr(I - 1, 1) = Range("d" & I)
End If
Next
[d2].Resize(UBound(Arr)) = Arr
End Sub

複製代碼

TOP

lpk187

高中生 Rank: 3 Rank: 3

帖子: 552
主題: 3
精華: 0
積分: 578
點名: 0
作業系統: win7
軟體版本: office 2010
閱讀權限: 50
性別: 男
註冊時間: 2015-2-8
最後登錄: 2024-7-9

2016猴年全勤獎章 2015羊年全勤獎章熱烈參與勳章

3^#

發表於 2015-10-12 11:00 | 只看該作者

回復 1# starry1314

這樣也行

Sub 代號替換1()
Dim Rng As Range
Dim arr
ro = Cells(Rows.Count, 4).End(xlUp).Row
ReDim arr(1 To ro, 1 To 1)
For Each Rng In Range("d2:D" & ro)
i = i + 1
Ν = Rng.Value
If Ν <> "L" And Ν <> "P" And Ν <> "T" And Ν <> "Q" And Ν <> "I" Then
arr(i, 1) = "A"
Else
arr(i, 1) = Rng.Value
End If
Next
[d2].Resize(UBound(arr)) = arr
End Sub

複製代碼

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

4^#

發表於 2015-10-12 11:38 | 只看該作者

Sub AA1012_1()
Dim Arr, i&
With Range([D2], Cells(Rows.Count, "D").End(xlUp))
　　　Arr = .Value
　　　For i = 1 To .Count
　　　　　If InStr("LPTQI", Arr(i, 1)) = 0 Then Arr(i, 1) = "A"
　　　Next i
　　　.Value = Arr
End With
End Sub

TOP

starry1314