excel - 3 文字未満の場合はセルを削除

Question

タイトルの通り、セル内の文字数が3文字未満の場合、セルを削除(テキストを削除)したいです。

例えば

行 1 行 2 SN DWD

124 411 1 123

32 231 01 23

ここで「SN」「1」「32」「01」「23」をすべて空欄にしたい。

Answer 1

あなたがExcelを意味すると仮定すると

Sub ClearCellsWithLessThan3Chars()
 Dim cell As Range
 For Each cell In ActiveSheet.UsedRange
    If (Len(cell.Text) < 3) Then
       cell.Clear
    End If
 Next
End Sub