[µo°Ý] ½Ð°ÝÁôÂÃÀx¦s®æªº¼gªk

3083kbna

½Ð°Ý§Ú±ý±NE3:F1000¦CÀx¦s®æ¤¤¡AªÅ¥Õ©Î¼Æ¦r¬° 0 ªºÀx¦s®æ¾ã¦CÁôÂð_¨Ó¡A½Ð°ÝVBA­n«ç»ò¼g¡H

3083kbna

¦^´_ 2# Hsieh


    ½Ð°ÝHsiehª©¥D¡A­YE3:F1000¦C¡A¥u­n¡]EÄæ©ÎFÄæ¡^¨ä¤¤¤@Ä榳¼Æ¦rªº¸Ü´N¤£¥ÎÁôÂáA¨º­n«ç»ò§ï¡HÁÂÁ¡I

3083kbna

ÁÂÁ¡IHsieh ª©¥D¡A¤w¸g¥i¥H¤F¡A¥Ñ©ó±zªºÀ°§U¨Ï§Úªº¤u§@³t«×¯àÀò±o§ïµ½¡A¦A¦¸ÁÂÁ¡I

3083kbna

¯u¤£¦n·N«ä¡I¨Sªí¹F²M·¡¡IÀ³¸Ó¬OE3:F1000¨âÄ椤ªºÀx¦s®æ¦P®É ¬O 0 ©ÎªÅ¥Õ¡]¤£¥]¬A­t¼Æ©Î¤å¦r¡^¡A¤~»Ý­nÁôÂáAHsieh ª©¥Dªº³o­ÓVBA¡G·|§âEÄæÀx¦s®æ¬O¹s©MªÅ¥Õªº¨º¤@¦CÁôÂáA½Ð°Ý­n¦p¦ó§ï©O¡HÁÂÁ¡I
Sub nn()
Dim Rng As Range
[E3:F1000].EntireRow.Hidden = False
For Each a In [E3:E1000]
  If Application.Sum(a.Resize(, 2)) = 0 Then
     If Rng Is Nothing Then
        Set Rng = a
        Else
        Set Rng = Union(Rng, a)
     End If
    End If
Next
If Not Rng Is Nothing Then Rng.EntireRow.Hidden = True
End Sub
·|§âEÄæÀx¦s®æ¬O¹s©MªÅ¥Õªº¨º¤@¦CÁôÂÃ

3083kbna

¦^´_ 9# Hsieh

ÁÂÁÂHsiehª©¥D¡A§ï¹L¥H«á¤w§¹¥þ²Å¦X»Ý¨D¡A¦A¦¸ÁÂÁ¡I