ＩＦ　多條件判斷如何改為陣列執行｜ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » ＩＦ　多條件判斷如何改為陣列執行｜

返回列表下一主題上一主題發帖

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

高中生 Rank: 3 Rank: 3

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

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

1^# 跳轉到 »

發表於 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

複製代碼

高中生 Rank: 3 Rank: 3

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

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

2^#

發表於 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

複製代碼

靜思自在 : 愛不是要求對方，而是要由自身的付出。

返回列表下一主題上一主題