エクセルVBA Select Caseステートメント

エクセルVBA　Select Caseステートメントで３つの選択肢にてSheet2「B,C,D列」の各「3-6行目」をsheet1「U20」に貼り付けようとしていますがうまくいきません

コードは以下の通りですが修正点を教えて頂けませんでしょうか

○コード

Dim 地名 As String
Select Case Range("U19").Value
Case Ａ = "東京*"
Sheets("Sheet2").Range("B3:B6").Select
Selection.Copy
Sheets("Sheet1").Range("U20").Select
ActiveSheet.Paste
Case Ｂ = "名古屋*"
Sheets("Sheet2").Range("C3:C6").Select
Selection.Copy
Sheets("Sheet1").Range("U20").Select
ActiveSheet.Paste
Case Ｃ = "大阪*"
Sheets("Sheet2").Range("D3:D6").Select
Selection.Copy
Sheets("Sheet1").Range("U20").Select
ActiveSheet.Paste

No.1 ベストアンサー 回答者： soixante 回答日時： 2018/08/11 17:55

Case　のあとの　Ａ＝”東京*”　がおかしい

Case ”東京”
Case ”大阪”
とか書きます。

Select Case ではワイルドカードを使うなら以下を参照ください。
https://www.sejuku.net/blog/30642

以下は余談ですが、Selectしなくても済むならしないほうが早いですよ。
http://officetanaka.net/excel/vba/speed/s2.htm

この回答へのお礼

選択肢を全部記載するのか面倒だったのでワイルドカードを使っていましたが無精するのは止めます。ありがとうございました。

お礼日時：2018/08/11 18:20