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

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

register313

¦^´_ 5# jim

Range("C" & [A3] + 5, "C145")

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

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

chin15

¦³¨â­Ó¿ï¾Ü
1.§â³Ì¤W¦æªºOption Explicit§R±¼
2.³W³W¯x¯xµ¹ÅܼƩw¸qÃþ«¬

register313

¦^´_ 1# jim

¬O­n³o¼Ë¶Ü?

1. Sub Clear()
   
2.    Set R = [E7:CL7]
   
3.    For Each A In [C7:C145]
   
4.      If A = "" Or A = 0 Then
   
5.        R.Value = ""
   
6.      End If
   
7.    Set R = R.Offset(1, 0)
   
8.    Next
   
9. End Sub

½Æ»s¥N½X