オートフィルター列の文字数を測定する If ステートメントを実行したいのですが、文字数 (Len) = 9 または 12 の場合、最初の列に移動してその行のセルの名前を変更したい「CLO」へ。これを列全体 (列 M & N) に対して実行したい。どうすればいいですか?
Dim count As Integer, myRange As Range, rng As Range
Dim RealRng As Range
Set myRange = Columns("M:M")
count = Application.WorksheetFunction.CountA(myRange)
Set RealRng = ActiveSheet.Range("M2:M+" & count)
For Each rng In RealRng
If Len(rng) = 9 Or Len(rng) = 12 Then
rng.Offset(0, -12) = "Bond"
End If
Next rng