いつもお世話になります 下記のコード実行すると エラーになります わかるかた教えてくれませんでしょう

いつもお世話になります
下記のコード実行すると
エラーになります
わかるかた教えてくれませんでしょうか

Select Case True
Case Left(Range("A1:A10").Value, 1) = "A"
Range("A1").Offset(, 1).Value = "A"

Case Left(Range("A1:A10").Value, 1) = "B"
Range("A1").Offset(, 1).Value = "B"

Case Mid(Range("A1:A10").Value, 3, 1) = "C"
Range("A1").Offset(, 1).Value = "C"

End Select

宜しくお願い致します

質問者からの補足コメント

• はい　そこの部分どうしたらいいか
  わからないです
  教えてくれませんでしょうか

    補足日時：2022/12/17 15:28

• 申しわけございません
  スマホから質問しています
  指定範囲のなかに
  AかBかCが
  
  が含まれていたらという条件です
  ダメなら家についたら再度連絡致します

    補足日時：2022/12/17 15:36

• なんとか
  
  Select Caseのやり方で
  教えてくれませんでしょうか

    補足日時：2022/12/17 16:00

• ありがとうございました

    補足日時：2022/12/17 16:04

No.6 ベストアンサー 回答者： めぐみん_ 回答日時： 2022/12/17 19:59

セル範囲の値を１次元配列にして "," を間に挟んで連結し、先頭にもくっ付ける。

,A,B,C,D,E ・・・・

あとはCASE文でInStr関数を用い、 ",A" があるか、",B" ",C" と判断してやりたい事をする。

この回答へのお礼

ありがとうございました

お礼日時：2022/12/17 20:01

No.5 回答者： taglet 回答日時： 2022/12/17 16:04

ループして、1つずつセルを判定すれば、Caseでもできるのではないかと思います。

この回答へのお礼

ありがとうございました

お礼日時：2022/12/17 16:05

No.4 回答者： taglet 回答日時： 2022/12/17 16:02

プログラムは適材適所で組むものです。

Select Caseで行わなけれないけない理由があるのですか？

No.3 回答者： taglet 回答日時： 2022/12/17 15:48

「含まれていたら」でしたら、Findを使えば良さそうです。

ご提示のソースで、Cだけ判定方法が異なるのが気になりますが。
http://officetanaka.net/excel/vba/tips/tips127.htm

No.2 回答者： taglet 回答日時： 2022/12/17 15:32

最低限、質問するときは以下の事を書いてください。

でないと、答えようがありません。

・この処理で何をしたいのか。
・元のデータ、出力結果
・出力されたエラーメッセージ

No.1 回答者： taglet 回答日時： 2022/12/17 15:26

Range("A1:A10")の範囲指定がおかしいような気がします。