ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 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

TOP

¦^´_ 5# jim

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

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD