¥¨¶°¼gªk?

lp986749

·s¤â¼gVB¦³¿³½ì¬O§_¯à§i¦Ü¤U¦C°ÝÃDÁÂÁÂ!
   Rows("1:7").Select

    ("1:7") ¦pªG¥ÎVB©w¸qÅܼƦp i , j ¨Óªí¥ÜÀ³¦p¦ó¥¨¶°µ{¦¡¦p¦óªí¥Ü?

   Range("A9").Select

    ("A9") ¦pªG¥ÎVBÅܼƦp r  ¨Óªí¥ÜÀ³¦p¦ó¥¨¶°µ{¦¡¦p¦óªí¥Ü?

lp986749

·PÁ¦p¦¹¸Ô²Ó¸Ñµª§Ú§â¥¦¥Î©ó¤U¤è²×©ó¥i°õ¦æ,¤À¨Éµ¹¨ä¥L¦³»Ý­n·s¤â.ÁÂÁ±z!
Dim C As Integer

       C = 2
      
   For C = 2 To 96 Step 4         
      
     Rows(C + 4 & ":" & C + 6).Select
     Selection.EntireRow.Hidden = True

   Next

====================
Dim H As Integer
       H = 5
   For H = 5 To 100 Step 4         
        
     Range("AV" & H & ":" & "BZ" & H).Select     
     Selection.ClearContents
   Next