(EXCEL)«ç¼Ë§R°£AÄ椤¦³¯S®í²Å¸¹ªºÀx¦s®æ
- ©«¤l
- 40
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 97
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x«n
- µù¥U®É¶¡
- 2016-8-26
- ³Ì«áµn¿ý
- 2018-10-31
|
(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 |
|
|
|
|
|
|
¡@¼ÊºÙ: ªü¦õ ¡@ÀY»Î: ¤W¯ZµL²á¥´©Ç¥h
¤¤¾Ç¥Í
- ©«¤l
- 108
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 113
- ÂI¦W
- 0
- §@·~¨t²Î
- Win 10
- ³nÅ骩¥»
- Office 2016
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- »OÆW
- µù¥U®É¶¡
- 2017-9-7
- ³Ì«áµn¿ý
- 2019-2-27
|
|
|
|
|
|
|
- ©«¤l
- 40
- ¥DÃD
- 10
- ºëµØ
- 0
- ¿n¤À
- 97
- ÂI¦W
- 0
- §@·~¨t²Î
- WINDOWS
- ³nÅ骩¥»
- XP
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ¥xÆW¥x«n
- µù¥U®É¶¡
- 2016-8-26
- ³Ì«áµn¿ý
- 2018-10-31
|
¦^´_ 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 |
|
|
|
|
|
|