代细胞只VBA的空间值

Posted 2023-01-29

原始数据集handfilled。这导致用户增加的空间原本空白单元格。寻找一种方式来代替一个空白单元格该小区。

式形式一直试图TRIM以及VBA和这些似乎并没有击中当场。也一直在试图用什么替代空间，但是这也消除了在文本值空间。

Sub CleanKlussen()
    Worksheets("WorkSheetX").Select
    Range("AC2").Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        Range(Selection, Selection.End(xlDown)).Select
        For Each cell In ActiveSheet.UsedRange
            cell.Value = Trim(cell)
        Next cell
End Sub

对于一个选定的薄片上的选定范围我想有由无substituded仅包含1米或2的空间（没有其他任何值）的所有细胞（创建一个空的小区）。

答案

Dim c As Range
For Each c In Selection
    If Len(WorksheetFunction.Trim(c.Value2)) = 0 Then c.ClearContents
Next c

另一答案

一定不要trim数值，否则他们将被转换为字符串。

For Each cell In ActiveSheet.UsedRange
    Dim v As Variant
    v = cell.Value2
    If Not IsNumeric(v) Then
        v = Trim(v)
        If v = "" Then
            cell.ClearContents
        Else
            cell.Value2 = v
        End If
    End If
Next cell

注：摆脱你的代码中的所有这些无用的Select的陈述。

另一答案

或者直到没有找到另一种方法，循环以下

    dim r as excel.range

    set r = Range("A1:C3").Find(What:=" ", After:=Range("a1"), LookIn:=xlFormulas, LookAt _
            :=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
            False, SearchFormat:=False)
   r.clearcontents