返回列表 上一主題 發帖

清除特定儲存格內容

清除特定儲存格內容

各位高手你好並請指導   如下需求  VBA 應如何?
  工作表內  A1~FZ170    (    Row  AJ 是變數 )
  如果 儲存格 AJ7 空白 或是 =0  則 EY7 ~ FV7 儲存格內內容清除
           儲存格 AJ10 空白 或是 =0  則 EY10 ~ FV10 儲存格內內容清除
           儲存格 AJ43 空白 或是 =0  則 EY43 ~ FV43 儲存格內內容清除
以下類推    TKS

回復 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
複製代碼

TOP

register313  謝謝指導
若是我要多加一個條件應如何敘述
    例如 aj7="" and c7=""  or  aj7<>"" and c7<>""  則 清除內容

TOP

回復 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
複製代碼

TOP

回復 4# register313
register313
  非常完美 !  謝謝

TOP

        靜思自在 : 【是否發揮了良能?】人間壽命因為短暫,才更顯得珍貴。難得來一趟人間,應問是否為人間發揮了自己的良能,而不要一味求長壽。
返回列表 上一主題