Ｐａｇｅ 504 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼文字列から指定の単語を抜き出すしたい ちょび 02/12/26(木) 14:46 ┣Re:文字列から指定の単語を抜き出すしたい ポンタ 02/12/26(木) 15:03 ┗FIND関数とか JuJu 02/12/26(木) 15:05 ┗Re:FIND関数とか ちょび 03/1/6(月) 10:48 ─────────────────────────────────────── ■題名 ： 文字列から指定の単語を抜き出すしたい ■名前 ： ちょび <aya_nonme@yahoo.co.jp> ■日付 ： 02/12/26(木) 14:46 -------------------------------------------------------------------------
| いつもお世話になっております。 またまた質問でございます。 １｜ 文字列 ｜ｂ｜ｃ｜ｄ｜ｅ｜ −−−−−−−−−−−−−−−− ２｜ ａｂｃ ｜１｜１｜ ｜ ｜ ３｜ ｂｃｅ ｜１｜１｜ ｜１｜ ４｜ ｅｄａ ｜ ｜ ｜１｜１｜ 「文字列」から、あらかじめ指定された文字（ここでは、「ｂ」「ｃ」「ｄ」･･･） を抜き出し、該当する文字があれば「１」を置く。 というのをやりたいのですが、 ちなみに文字列は日本語の長文です。 抜き出したい文字は漢字３文字から５文字です。 よろしくお願いいたします。 |
| 対象のシートモジュールに貼り付けて、 お試しください。 Sub test() Dim i As Long, j As Integer For i = 2 To Range("A65536").End(xlUp).Row For j = 2 To Range("IV1").End(xlToLeft).Column If InStr(1, Cells(i, 1).Value, Cells(1, j).Value) > 0 Then Cells(i, j).Value = 1 End If Next Next End Sub |
| ちょびさん、こんにちはぁ マクロを使っても可能ですが、ワークシートを使う方法とかどうでしょうか。 こんな感じです =IF(ISERROR(FIND(B$1,$A2)),"",1) ではではぁ |
| ▼ポンタ さん JuJu さん： あけましておめでとうございます。 お返事が遅くなりまして申し訳ございません。 なんとか完成にこぎつけました。 どうもありがとうございました。 |