VBA 検索と入力 Excel ブックぶぶぶシートししし列V 検索対象の列です最終行は、お

Question

VBA 検索と入力

Excel ブック　ぶぶぶ
シート　　　　ししし
列V　　　　　検索対象の列です


最終行は、およそ2万行目、
ただし毎月　変わる

したいことは、
列 V について 一番上から下まで
各セルを検索し

ブック　ぶぶぶ
シート　たたた
列A　の縦方向に　格納した単語に合致する場合は

例えばシート　ししし
列 V について 
任意のセルV３０に関して

私は、畑でバナナを収穫した
と入力があり

シート　たたた
列A　の　
任意のセルA5　にある　
バナナ　に検索がヒットした時に

シート　ししし　
セルV３０　と　同じ行で別の任意の列 例えば Z 30に、

シート　たたた
該当セルA５　と同じ行　E５に
格納された任意の単語　ジャガイモ　　を

シート　ししし
セルZ30　に　入力したい

これをコーディングで教えてください

シート　たたた　は
いわば 単語帳であり 置き換え 前と置き換え後の単語が縦方向にずらっと 複数 並んでおり 最終行は
７０００行くらいで　増える方向において 可変的です

tatsumaru77 · Accepted Answer

以下の前提で作成しています。
１．シートししし、シートたたた共に1行目は見出しとする。
２．シートしししの出力列はZ列からAI列までとする。（10列分）
変換対象となる単語が１０個を超えた場合、その単語の変換は行われません。
３．高速化を実現するために、配列で操作を行っています。

下記URLへアップしました。
https://ideone.com/i6Coxa

出力列を増やす場合は、
    Const OutColSize As Long = 10       '出力列数
の値を増やしてください。
但し、あまり増やしすぎると、メモリを大量に使用しますので、パフォーマンスが低下する可能性が
あります。どの程度が限界かはPCに依存しますので、あなたの方で調整をなさってください。

こちらのPCで実行した結果、所要時間は32秒でした。
シートたたた：7500件
シートししし：21000件

tatsumaru77 · Answer

No4です。
No4の項番３に誤りがありましたので訂正します。No4は無視してください。
又、合致の例を追加しました。

文字列の比較時にどのようにして比較しますか。
１．大文字と小文字を区別する。
Yesの場合、catとCATは合致しない。
Noの場合、catとCATは合致する。
Noの場合、caTとCATは合致する。

２．全角と半角を区別する。
Yesの場合、CATとＣＡＴは合致しない。
Noの場合、CATとＣＡＴは合致する。
Noの場合、CAＴとＣＡＴは合致する。

３．ひらがなとかたかなを区別する。
Yesの場合、ばななとバナナは合致しない。
Noの場合、ばななとバナナは合致する。
Noの場合、ばナナとバナナは合致する。

のようになります。

tatsumaru77 · Answer

追加の補足要求です。
文字列の比較時にどのようにして比較しますか。
１．大文字と小文字を区別する。
Yesの場合、catとCATは合致しない。
Noの場合、catとCATは合致する。
２．全角と半角を区別する。
Yesの場合、CATとＣＡＴは合致しない。
Noの場合、catとＣＡＴは合致する。
３．ひらがなとかたかなを区別する。
Yesの場合、ばななとバナナは合致しない。
Noの場合、ばななとバナナは合致する。

のようになります。

tatsumaru77 · Answer

補足要求です。

補足要求１
シート：たたた
A5：バナナ　E5:ジャガイモ

シート：ししし
V30:私は、畑でバナナを収穫した
の場合、
Z30へ　ジャガイモ　を設定したい。

ということですが、
シート：たたた　が以下の場合
A2：畑　E2:田んぼ
A5：バナナ　E5:ジャガイモ

Z30には、E2の値を設定するのでしょうか。それともE5の値を設定するのでしょうか。

補足要求２
>列の方向に
>増えないという返答をしました
>もう少し 何をしたいのかご説明します
>縦方向にたくさんの文章が入っています
>その文章の中身を分析する方法として
>所定の単語が含まれているか
>そして含まれる単語によって書かれている文章の中身を推測することをしたいのです
>単語の数は増える可能性があるため そういう意味では列は可変的です・・・・①

①の列は可変的です。の意味は、現在Z列に出力しているが、更にAA列、AB列、AC列、等に
出力するようにしたいという意味ですか。
もし、そうであれば、補足要求１については、
Z30へE2（田んぼ）　AA30へE5（ジャガイモ）を設定したいということでしょうか？

初心者ですが何か。 · Answer

No.1です。

それぞれのシートの仕様（１行目は項目行？データ？）。
項目行があるのならデータは２行目から？
列方向は固定or変動？
固定ならどこからどこまで？

も一応あると他の人にもわかるでしょう。
寝落ち・業務中に代わりに回答して下さる上級者様がいますし。

初心者ですが何か。 · Answer

行数の変化はともかくなのですが、それぞれに重複している場合ってあるのでしょうか？
例えばシート【ししし】のＶ列にバナナが何行かヒットするとか？
それとも必ず一対一なのか？

【Ｂｏｏｋ：ぶぶぶ】にコードを書くで宜しいですか？
あとExcelのバージョンは記載しておいた方が宜しいかも。
特にExcel単体なのかOffice365なのかでも、手段が変わる場合も。

ちなみに夜勤組なので昼間寝落ちしてしまって返信が遅れましたら、先日の質問者さんのようにブロックされましても気にしません。
まあこの時から、ふくらはぎの軽い肉離れで未だエアーサロンパスです。

VBA 検索と入力 Excel ブック ぶぶぶ シート ししし 列V 検索対象の列です 最終行は、お

以下の前提で作成しています。

No4です。

追加の補足要求です。

補足要求です。

No.1です。

行数の変化はともかくなのですが、それぞれに重複している場合ってあるのでしょうか？

似たような質問が見つかりました

関連するカテゴリからQ&Aを探す

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング

VBA 検索と入力 Excel ブックぶぶぶシートししし列V 検索対象の列です最終行は、お