[[20220423093415]]　『20文字以上は-を返す』（コーヒー）　ページの最後に飛ぶ

『20文字以上は-を返す』（コーヒー）

おはよう御座います。

VBAでA2からA2000に入っている文字数(.や-や,を含む)場合
そのセルに-を返すにはどうしたらよいでしょうか？

＜使用 Excel：Excel2019、使用 OS：Windows10 ＞

全角も半角も1文字カウントなら、VBAのLen関数が文字数を返しますよ。
これを使って20文字以上かどうかを判定してはどうですか？
そういう話でなければ、もう少し詳細を説明してください。

（γ） 2022/04/23(土) 09:46

エクセルのlen関数で解決できそうです。
アドバイスありがとうございました。
（コーヒー） 2022/04/23(土) 11:31

 ExcelのLen関数とは、ワークシート関数のLenという意味ですか？
 それは使えません。WorksheetFunction.Lenとかでは使えません。

 VBAのVB言語が備えているLen関数というのを使います。
 Sub test()
     Dim v
     Dim k As Long
     v = Range("A2:A2000").Value
     For k = 1 To UBound(v)
         If Len(v(k, 1)) >= 20 Then v(k, 1) = "-"
     Next
     Range("A2:A2000").Value = v
 End Sub

（γ） 2022/04/23(土) 14:25

アドバイスありがとうございます。
VBA希望だったのですが
難しそうなので
VBAを使わず
ただエクセルのLEN関数でやりました。
紛らわくてすみませんでした。
（コーヒー） 2022/04/23(土) 14:36

コメント返信：

[ 一覧(最新更新順) ]

[[20220423093415]] 『20文字以上は-を返す』（コーヒー） ページの最後に飛ぶ

[[20220423093415]]　『20文字以上は-を返す』（コーヒー）　ページの最後に飛ぶ