菜鳥請問~ - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 菜鳥請問~

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

[發問] 菜鳥請問~

大學生 Rank: 4

帖子: 1018
主題: 15
精華: 0
積分: 1058
點名: 0
作業系統: win7 32bit
軟體版本: Office 2016 64-bit
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2012-5-9
最後登錄: 2022-9-28

1^# 跳轉到 »

發表於 2015-10-12 10:49 | 顯示全部帖子

回復 1# amd8000x

Sub AAA()
Dim i As Long, arData
Const GROUP_A = Array("TA11", "TA16", "TA18")
Const GROUP_B = Array("TA12", "TA13", "TA19", "TA58")
arData = Range("A1").Resize(Cells(Rows.Count, 1).End(xlUp).Row, 3).Value
For i = 1 To UBound(arData)
If Not IsError(Application.Match(arData(i, 1), GROUP_A)) Then
arData(i, 3) = "YES"
ElseIf Not IsError(Application.Match(arData(i, 1), GROUP_B)) Then
arData(i, 3) = "YES,sir"
End If
Next
Range("A1").Resize(UBound(arData), 3).Value = arData
End Sub

複製代碼

表達不清、題意不明確、沒附檔案格式、沒有討論問題的態度~~~~~~以上愛莫能助。

靜思自在 : 對父母要知恩，感恩、報恩。

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