返回列表下一主題上一主題發帖

清除特定儲存格內容

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2012-3-7 14:51 | 只看該作者

清除特定儲存格內容

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

樓主熱帖

jim

中學生 Rank: 2

帖子: 87
主題: 26
精華: 0
積分: 119
點名: 0
作業系統: win 7
軟體版本: office2003
閱讀權限: 20
性別: 男
來自: taiwan
註冊時間: 2010-5-7
最後登錄: 2020-9-28

5^#

發表於 2012-3-7 18:09 | 只看該作者

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

TOP

register313

　頭銜: 麻辣路人甲

大學生 Rank: 4

帖子: 967
主題: 0
精華: 0
積分: 1001
點名: 0
作業系統: WIN XP
軟體版本: OFFICE 2003
閱讀權限: 50
性別: 男
來自: 台北
註冊時間: 2010-11-29
最後登錄: 2022-5-17

2012龍年全勤獎章熱烈參與勳章

4^#

發表於 2012-3-7 17:22 | 只看該作者

回復 3# jim

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