11/10/21 20:23:24.18
×
For r = 1 To ActiveSheet.UsedRange.Row
Cells(r, 1) = Application.WorksheetFunction.Clean(Cells(r, 1))
Next
△
For r = 1 To ActiveSheet.UsedRange.Rows.Count
Cells(r, 1) = Application.WorksheetFunction.Clean(Cells(r, 1))
Next
○
For Each x In ActiveSheet.UsedRange.Columns(1).Cells
x = Application.WorksheetFunction.Clean(x)
Next