清除特定儲存格內容 - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 清除特定儲存格內容

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

清除特定儲存格內容

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

1^# 跳轉到 »

發表於 2012-3-7 15:20 | 顯示全部帖子

回復 1# jim

Sub xx()
Set R = [EY1:FV1]
For Each A In [AJ1:AJ170]
If A = "" Or A = 0 Then
R.Value = ""
End If
Set R = R.Offset(1, 0)
Next
End Sub

複製代碼

　頭銜: 麻辣路人甲

大學生 Rank: 4

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

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

2^#

發表於 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

複製代碼

靜思自在 : 一句溫暖的話，就像往別人身上灑香水，自己會沾到兩三滴。

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