- 帖子
- 40
- 主題
- 10
- 精華
- 0
- 積分
- 97
- 點名
- 0
- 作業系統
- WINDOWS
- 軟體版本
- XP
- 閱讀權限
- 20
- 性別
- 男
- 來自
- 台灣台南
- 註冊時間
- 2016-8-26
- 最後登錄
- 2018-10-31
|
3#
發表於 2018-8-5 03:33
| 只看該作者
回復 2# a5007185
a5007185大，您真是太厲害了，十分感謝，這種*/*用法是我以前沒看過的。
這是剛剛錄的巨集
Sub Macro1()
'在 2018/8/5 錄製的巨集
Cells.Replace What:="*/*", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False
Columns("A:A").Select
Selection.Sort Key1:=Range("A1"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
:=xlStroke, DataOption1:=xlSortNormal
End Sub
其實我後來也已經用土方法，解決了。是用輔助列的笨方法，
H1=IF(COUNTIF(A1,"*"&"/"&"*")>0,"1","")
Sub Macro2()
For i = 2000 To 1 Step -1
If Cells(i, 8) = "1" Then
Cells(i, 8).EntireRow.Delete
End If
Next
End Sub |
|
