Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

11539 / 76734

←次へ　｜　前へ→


	【70729】Re:該当の文字列から○○をコピーして貼り付け

栗きんとん - 11/12/20(火) 16:23 -


	引用なし

	パスワード

▼つんさん：
>栗きんとんさん：
>
>こんにちは＾＾
>
>こういう場合は、Like演算子を使われたらいいのではないかなあ？
>と思います。

返信ありがとうございます。

Sub test()
Dim msg As Object
　
　　For Each msg In Worksheets(1).Range("a1:a30")

　　　　If msg.Value Like "Jan" Then
　　　　　 msg.Copy Worksheets(2).Range("A1")
　　　　　
　　　　　 ElseIf msg.Value Like "Feb" Then
　　　　　 msg.Copy Worksheets(2).Range("A2")

　　　　End If
　　Next msg
End Sub

途中ですが、こんな感じでしょうか？
実際に試してみたのですが、問題が・・・

文字列が「Jan 1 2222 1111 Jan 2222 4444]

Janを指定しているので引っかからないようです。
Janから後文字を問わないようにするにはどうすれば・・・
またmsg.Copy Worksheets(2).Range("A1")この部分ですが、
セルAに貼り付けるようにしていますが、
複数検索に一致した場合の対処としてどのようにすればよいですかね？

8 hits

▼

【70727】該当の文字列から○○をコピーして貼り付け 栗きんとん 11/12/20(火) 14:08