標題: (EXCEL)怎樣刪除A欄中有特殊符號的儲存格 [打印本頁]

---

作者: paul3063    時間: 2018-8-4 01:59     標題: (EXCEL)怎樣刪除A欄中有特殊符號的儲存格

問題:(EXCEL)怎樣刪除A欄中有特殊符號的儲存格
已知A欄中的內容是
acetaminophen / doxylamine / pseudoephedrine
acetaminophen / pamabrom / pyrilamine
acetaminophen / pheniramine / phenylephrine
acetaminophen / phenyltoloxamine
acrivastine
acrivastine / pseudoephedrine
aliskiren / valsartan
aluminum hydroxide / diphenhydramine / lidocaine / magnesium hydroxide / simethicone topical
amiloride

怎樣把具有/的儲存格都刪除
剩下
acrivastine
amiloride

請高手幫忙一下，謝謝!







檔案請下載
https://www.sendspace.com/file/ebfxvt

---

作者: a5007185    時間: 2018-8-5 01:16

回復 1# paul3063

我不確定你這些資料是在同一個儲存格還是分散在不同的儲存格，
如果是分散在不同的儲存格，
請參考下面截圖。
[attach]29143[/attach]


BTW,強烈建議你直接上傳壓縮檔，
像這樣的免空我都不知道要點哪個才能下載.....

   [attach]29142[/attach]

---

作者: paul3063    時間: 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

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)