VBAµ{¦¡°õ¦æ®É,¥X²{¥¼©w¸q

jim

½Ð¦U¦ì«ü¾É
Sub Clear()
   Set R = [E7:CL7]    -----¥X²{¥¼©w¸q--
   For i = 7 To 145
   For Each A In [C7:C145]
     If C= "" Or C = 0 Then
     R.Value = ""
   End If
   Set R = R.Offset(1, 0)
   Next i
End Sub

jim

¦^´_ 2# register313
register313  thanks
    ¦ý¬O°õ¦æ®É  Set R=[E7:CL7]
²£¥Í R=    (½s¿è¿ù»~ :   Åܼƥ¼©w¸q)

jim

¦^´_ 4# jim
chin 15  ¦hÁ  §R°£«á¤w¸g¥i°õ¦æ    ¦P®É¤]ÁÂÁ  register313
  ¬O§_¥i§iª¾­ì¦]?
  ¦pªG§Ú§Æ±æ¦³¤@­ÓÅܼƧY¦b A3
   ­ì¥»°õ¦æ½d³ò [ C7:C145 ]   
­Y A3¬° 15  «h§Æ±æ°õ¦æ®É¬O  A3+5
§Y§ï±q  [ C20:C145 ]¬°°õ¦æ½d³ò ¬O§_¥i¦æ  ÁÂÁÂ

jim

¦^´_ 6# register313
register313 ÁÂÁÂ