¦U¦ì°ª¤â̦n
¤p©f¤µ¤Ñ·Q¸ß°Ý¤@¤U¡u«Ý¿ì¨Æ¶µ¡v§Ú¦³¿ý»s¥¨¶°¡AÅý¡u§¹¦¨/¥¼§¹¦¨¡v±N¥¼§¹¦¨¤ÎªÅ¥Õ¯d¤U¡K
¦ý¥Ø«e³£¥²¶·¤â°Ê¾Þ§@¤~¥i¥H¡AY·Q§â¥¨¶°§ï¬°¦Û°Ê¥´¤W¡u§¹¦¨¡v«á¡A´N¤£¨£ªº¸Ü¡AÀ³¦p¦ó×§ï¡H
ÁÂÁ°ª¤â~
¥¨¶°¤º®e¦p¤U¡G
Sub ¥¨¶°1()
'
' ¥¨¶°1 ¥¨¶°
'
'
ActiveSheet.Range("$A$3:$H$41").AutoFilter Field:=4, Criteria1:="=¥¼§¹¦¨", _
Operator:=xlOr, Criteria2:="="
End Sub |