ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

(EXCEL)«ç¼Ë§R°£AÄ椤¦³¯S®í²Å¸¹ªºÀx¦s®æ

(EXCEL)«ç¼Ë§R°£AÄ椤¦³¯S®í²Å¸¹ªºÀx¦s®æ

°ÝÃD:(EXCEL)«ç¼Ë§R°£AÄ椤¦³¯S®í²Å¸¹ªºÀx¦s®æ
¤wª¾AÄ椤ªº¤º®e¬O
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

«ç¼Ë§â¨ã¦³/ªºÀx¦s®æ³£§R°£
³Ñ¤U
acrivastine
amiloride

½Ð°ª¤âÀ°¦£¤@¤U¡AÁÂÁÂ!







Àɮ׽ФU¸ü
https://www.sendspace.com/file/ebfxvt

¦^´_ 1# paul3063

§Ú¤£½T©w§A³o¨Ç¸ê®Æ¬O¦b¦P¤@­ÓÀx¦s®æÁÙ¬O¤À´²¦b¤£¦PªºÀx¦s®æ¡A
¦pªG¬O¤À´²¦b¤£¦PªºÀx¦s®æ¡A
½Ð°Ñ¦Ò¤U­±ºI¹Ï¡C



BTW,±j¯P«Øij§Aª½±µ¤W¶ÇÀ£ÁYÀÉ¡A
¹³³o¼Ëªº§KªÅ§Ú³£¤£ª¾¹D­nÂI­þ­Ó¤~¯à¤U¸ü.....

   

TOP

¦^´_ 2# a5007185


a5007185¤j¡A±z¯u¬O¤Ó¼F®`¤F¡A¤Q¤À·PÁ¡A³oºØ*/*¥Îªk¬O§Ú¥H«e¨S¬Ý¹Lªº¡C
³o¬O­è­è¿ýªº¥¨¶°
Sub Macro1()
'¦b 2018/8/5 ¿ý»sªº¥¨¶°
    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

¨ä¹ê§Ú«á¨Ó¤]¤w¸g¥Î¤g¤èªk¡A¸Ñ¨M¤F¡C¬O¥Î»²§U¦Cªº²Â¤èªk¡A
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

TOP

        ÀR«ä¦Û¦b : ¡i®É¤é²öªÅ¹L¡j¤@­Ó¤H¦b¥@¶¡°µ¤F¦h¤Ö¨Æ¡A´Nµ¥©ó¹Ø©R¦³¦hªø¡C¦]¦¹¥²¶·»P®É¶¡Ävª§¡A¤Á²ö¨Ï®É¤éªÅ¹L¡C
ªð¦^¦Cªí ¤W¤@¥DÃD