原始数据集是人工填充的。这会导致用户向原本为空白的单元格添加一个空格。寻找一种用空白单元格替换此单元格的方法。
一直在以公式形式和 VBA 尝试 TRIM,但这些似乎并没有奏效。也一直在尝试用空替换空格,但这也会删除文本值中的空格。
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
对于选定工作表上的选定范围,我希望所有仅包含 1 或 2 个空格(没有其他值)的单元格被任何内容替换(创建一个空单元格)。
Dim c As Range
For Each c In Selection
If Len(WorksheetFunction.Trim(c.Value2)) = 0 Then c.ClearContents
Next c
本文收集自互联网,转载请注明来源。
如有侵权,请联系[email protected] 删除。
我来说两句