アプリ版:「スタンプのみでお礼する」機能のリリースについて

A列に文字数がバラバラの値が入っているセルが100行以上あります、行数は決まっていません。
5文字以下の値は存在しません。
VBAでA列の各セルの値を、すべて左から6文字以降削除して揃えたいです。

お詳しい方宜しくお願いいたします。

A 回答 (1件)

Sub rf()


Dim c
For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
c.Value = Left(c.Text, 5)
Next
End Sub
    • good
    • 1
この回答へのお礼

ありがとうございます!助かりました。

お礼日時:2022/06/11 08:56

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!