當單元格等於特定條件，只清除符合單元格的內容其它內容保留

chenanny · 发表于 2024-10-9 09:15

本帖最后由 chenanny 于 2024-10-9 16:38 编辑

下列程式會將在Range("D3:AD344")內的內容全都刪除,
請老師指點,當單元格等於特定條件，只清除符合單元格的內容其它內容保留

Sub text1()
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Set xRng = Application.Range("D3:AD344")
xText = "領用" 'Change this text to your own
For Each xCell In xRng
If xCell.Value = xText Then
Range("D3:AD344").ClearContents
End If
Next xCell
End Sub

ykcbf1100 · 发表于 2024-10-9 09:52

建议上传一个附件看看。

班定远 · 发表于 2024-10-9 11:17

提示: 该帖被管理员或版主屏蔽

usedrange · 发表于 2024-10-9 11:19

If xCell.Value <> xText Then
xCell.ClearContents
End If
试试看。

taller · 发表于 2024-10-9 11:24

chenanny · 发表于 2024-10-9 13:14

taller 发表于 2024-10-9 11:24

謝謝老師,程式執行後,會只保留領用其於單元內容均被清除
可否請老師幫忙看看?
Sub text1()
Dim xRng As Range
Dim xCell As Range
Dim xText As String
Dim a
   a = Range("d3:ad344")
Set xRng = ActiveSheet.Range("D3:AD344")
xText = "領用" 'Change this text to your own
  For i = 1 To UBound(a)
For j = 1 To UBound(a, 2)
If Not a(i, j) = xText Then a(i, j) = " "
Next
   Next
   xRng.Value = a

  End Sub

chenanny · 发表于 2024-10-9 13:27

usedrange 发表于 2024-10-9 11:19
If xCell.Value xText Then
xCell.ClearContents
End If

謝謝老師!程式執行後單元格內資料會全布清除且畫面會陷如無限回圈無法跳出!
Set xRng = Application.Range("D3:AD344")
xText = "領用"
For Each xCell In xRng
If xCell.Value <> xText Then
xCell.ClearContents
End If
Next xCell

taller · 发表于 2024-10-9 22:44

ykcbf1100 · 发表于 2024-10-10 08:48

测试通过。

附件供参考。。。

ykcbf1100 · 发表于 2024-10-10 08:49

参与一下。。。

		自动登录	找回密码
密码			免费注册

[求助] 當單元格等於特定條件，只清除符合單元格的內容其它內容保留

评分

评分

评分

评分

评分

评分

班定远班定远当前离线性别保密 UID 4741976 阅读权限 10 注册时间 2024-8-13 在线时间小时最后登录 1970-1-1 积分 15 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2024-10-9 11:17 \| 显示全部楼层 [广告] ★用Excel做企业管理系统，Excel服务器学习和下载★ 提示: 该帖被管理员或版主屏蔽

	回复举报

[求助] 當單元格等於特定條件，只清除符合單元格的內容 其它內容保留

评分

评分

评分

评分

评分

评分

[求助] 當單元格等於特定條件，只清除符合單元格的內容其它內容保留