- 帖子
- 5923
- 主題
- 13
- 精華
- 1
- 積分
- 5986
- 點名
- 0
- 作業系統
- win10
- 軟體版本
- Office 2010
- 閱讀權限
- 150
- 性別
- 男
- 來自
- 台灣基隆
- 註冊時間
- 2010-5-1
- 最後登錄
- 2022-1-23
        
|
2#
發表於 2012-1-9 10:15
| 只看該作者
回復 1# imzues - Option Explicit
- Sub Ex()
- '後面兩碼1、5、21、25是C
- '2、3、4、6、10、11、15、16、20、22、23、24是B
- '7、8、9、12、13、14、17、18、19是A'
- '若從右邊數第7碼為0為D(這條件大於前面3個條件
- Dim Rng As Range, Ar(), i
- Set Rng = Range("d3", Range("d3").End(xlDown)).Resize(, 2)
- Ar = Rng
- For i = 1 To UBound(Ar)
- If Mid(Right(Ar(i, 1), 7), 1, 1) = "0" Then
- Ar(i, 2) = "D"
- ElseIf InStr("01、05、21、25", Right(Ar(i, 1), 2)) Then
- Ar(i, 2) = "C"
- ElseIf InStr("02、03、04、06、10、11、15、16、20、22、23、24", Right(Ar(i, 1), 2)) Then
- Ar(i, 2) = "B"
- ElseIf InStr("07、08、09、12、13、14、17、18、19", Right(Ar(i, 1), 2)) Then
- Ar(i, 2) = "A"
- End If
- Next
- Rng.Value = Ar
- End Sub
|
|
發表於 2012-1-9 09:35
| 
