Excel VBA質問箱 IV

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

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


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

8867 / 76732

←次へ　｜　前へ→


	【73433】Re:含まれる文字に応じ別の列にフラグを立てるには

にしもり - 13/1/10(木) 10:06 -


	引用なし

	パスワード

▼UO3 さん：

ありがとうございます。
説明べたで申しわけございません。
また、わたくしは記述に関していまだに見よう見まねの域を出ません。
お許しください。

実は、検索したいのは海、山だけではなくてもっとあります。
なので下記のようにしてみました。

Sub Sample()
　　Dim v As Variant
　　Dim i As Long
　
　　With Sheets(1)
'　　　　v = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Offset(, 4).Value
　　　　　v = .Range("A2", .Range("A" & .Rows.Count).End(xlUp)).Offset(, 15).Value
　　　　ReDim Preserve v(1 To UBound(v, 1), 1 To 3)
　　　　For i = 1 To UBound(v, 1)
　　　　　　If v(i, 1) Like "*海*" Then v(i, 2) = 1
　　　　　　If v(i, 1) Like "*山*" Then v(i, 3) = 1
　　　　　　If v(i, 1) Like "*川*" Then v(i, 4) = 1
　　　　　　If v(i, 1) Like "*池*" Then v(i, 5) = 1
　　　　　　If v(i, 1) Like "*森*" Then v(i, 6) = 1
　　　　　　If v(i, 1) Like "*林*" Then v(i, 7) = 1
　　　　　　If v(i, 1) Like "*木*" Then v(i, 8) = 1
　　　　　　If v(i, 1) Like "*空*" Then v(i, 9) = 1
　　　　　　If v(i, 1) Like "*星*" Then v(i, 10) = 1
　　　　　　If v(i, 1) Like "*月*" Then v(i, 11) = 1
　　　　　　If v(i, 1) Like "*光*" Then v(i, 12) = 1
　　　　　　If v(i, 1) Like "*夢*" Then v(i, 13) = 1
　　　　　　If v(i, 1) Like "*幻*" Then v(i, 14) = 1
　　　　　　If v(i, 1) Like "*音*" Then v(i, 15) = 1
　　　　　　If v(i, 1) Like "*波*" Then v(i, 16) = 1
　　
　　　　Next
　　　　.Range("E2").Resize(UBound(v, 1), UBound(v, 2)).Value = v
　　End With
　　
End Sub

するとE2以下が残っていてほしいのに消えてしまい、
F2より右に全然フラグが立ちません。
どうすればよろしいでしょうか。

231 hits

▼

【73431】含まれる文字に応じ別の列にフラグを立てるには にしもり 13/1/9(水) 17:20