假空单元格变成真空单元格，求助代码

1小小草

A列B列里都有假空单元格    把假空单元格变成真空单元格，求助代码

cafkyy

Sub abc()
Dim cl As Range
    For Each cl In Sheet1.UsedRange
        If Not Application.IsNonText(cl) Then cl = ""
    Next
End Sub

1小小草

cafkyy 发表于 2022-7-2 10:43
Sub abc()
Dim cl As Range
    For Each cl In Sheet1.UsedRange

好像不可以哦

砂海

1小小草 发表于 2022-7-2 15:11
好像不可以哦

If cl = "" Then cl.ClearContents

1小小草

砂海 发表于 2022-7-2 21:17
If cl = "" Then cl.ClearContents

Sub abc()
Dim cl As Range
    For Each cl In Sheet1.UsedRange
       If cl = "" Then cl.ClearContents
    Next
End Sub
是这样吗

sam-wang

請測試看看，謝謝
Sub test()
Dim xR As Range
For Each xR In Sheet1.UsedRange
    xR = LTrim(xR)
Next
End Sub