register313

¦^´_ 1# jim

1. Sub xx()
   
2. Set R = [EY1:FV1]
   
3. For Each A In [AJ1:AJ170]
   
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

register313

¦^´_ 3# jim

1. Sub xx()
   
2. Set R = [EY1:FV1]
   
3. For I = 1 To 170
   
4.   X = (Cells(I, "C") & Cells(I, "AJ") = "") Or (Cells(I, "C") <> "" And Cells(I, "AJ") <> "")
   
5.   If X Then
   
6.      R.Value = ""
   
7.   End If
   
8.   Set R = R.Offset(1, 0)
   
9. Next I
   
10. End Sub

½Æ»s¥N½X