- 帖子
- 163
- 主題
- 1
- 精華
- 0
- 積分
- 170
- 點名
- 0
- 作業系統
- Window 7
- 軟體版本
- Office 2007
- 閱讀權限
- 20
- 性別
- 男
- 註冊時間
- 2010-9-5
- 最後登錄
- 2022-7-20
|
24#
發表於 2018-2-21 15:28
| 只看該作者
回復 23# 蒼雪
請參考。
Sub test()
arr = Array("L20", "L10", "L30")
Application.ScreenUpdating = False
er = [C65536].End(3).Row
For r = 2 To er
L = Application.Match(Split(Cells(r, 3).Value, "[")(0), arr, 0)
N = Format(Split(Split(Cells(r, 3).Value, "/")(0), "[")(1), "00.0")
E = Left(Split(Split(Cells(r, 3).Value, "/")(1), "]")(0), 1)
If L = 1 And N >= 7 And N <= 16 And Asc(E) >= 65 And Asc(E) <= 70 Then
Cells(r, 5).Value = L & N & E
End If
Next r
Range("E2:E" & er).SpecialCells(xlCellTypeBlanks).EntireRow.Delete
Range("A2:E" & er).Sort Key1:=[E2]
Columns("E").ClearContents
Application.ScreenUpdating = True
End Sub |
|
