Excel マクロ VBA 特定の文字列を探して別ファイル内の文字列と連結or置換させたい

Question

ＥｘｃｅｌのＶＢＡ初心者です。

ファイル１の中から特定の文字列を探して、ファイル２にあるユニークキーを上から順番に結合もしくは置換するVBAをご教授いただきたいです。

ファイル１：ExcelでA列のみに文字列が入っている
　　　　　　途中で空白セルもある
　　　　　　最終行は毎回変わる

ファイル２：Excel CSV ファイル (.csv)でA列にユニークキーがある
　　　　　　その他の列にも文字列が入っているが必要なのはA列のみ
　　　　　　最終行は毎回変わる

ファイル１の特定の文字列：https://test/test=
結合or置換後の文字列：https://test/test=ユニークキー
但し、既にユニークキーと結合されて完成されているもの（最初から「https:/test/=ユニークキー」になっている）はそのままにしたいです

反映対象の特定の文字列「https://test/test=」は作業の度に数が変わります
※ファイル②のユニークキーの数とは完全一致します

ファイル２のユニークキーは上から順番に反映すればOKです

どうぞよろしくお願いいたします。

TARO_SEVEN · Accepted Answer

ここまで分かれば何とかなりそう？
いちお、主要部分のコードだけ参考までに。

Sheet1にファイル1のデータが、Sheet2にファイル2のデータが
記載されていること前提としています。
また、行数は不明ながら上限200くらいとのこと、ちょっと余裕をみて
250としています。

最後に大事なところですが、それ以外の宣言次第で、コピペしても動かないハズ。
適当になおしてくださいｗ

最後に、以下のサイトはしっていますか？
たくさんサンプルがありますし、私も今でも時々参考にしています。
https://www.moug.net/

では頑張ってください！

+++++++++++++++++++++++++++++++++++++++++++
Const FixStr = "https://test/test="         '固定文字列の定数
Const RowMax = 250                          '最大行数を250行と仮定

n = 0
c = 2

'A列が空白か
For i = 1 To RowMax If Sheet1.Cells(i, 1).Values = "" Then
      n = n + 1                             '空白カウンタをカウントアップ
      If n >= 5 Then                        '空白カウンタが5以上(5行続いた)
         Exit For                           'ループを抜ける(処理終了)
      End If
   End If
                                            'A列が固定文字と一緒
   If Sheet1.Cells(i, 1).Values = FixStr Then
                                            '固定文字列とSheet2の文字を結合し格納
      Sheet1.Cells(i, 1).Values = Sheet1.Cells(i, 1).Values & Sheet2.Cells(c, 1).Values
      c = c + 1                             'Sheet2行数カウンタをカウントアップ
   End If
Next
++++++++++++++++++++++++++++++++++++++++++++

めぐみん_ · Answer

確かにCSVファイルのままよりかは同じＢｏｏｋの別シートに取り込んだ方がセル範囲を定め配列変数に値を放り込むだけで、配列のインデックスＮｏの最大値をループ終了の条件に出来ますね。
勉強になります。

ぶっちゃけCSVファイルからフィールド『ユニークキー（？）』の値をＡＤＯで取り出そうかとも思いましたが、多分無駄にコードが長くなりそうでどうしたものかと思ってました。

TARO_SEVEN · Answer

ええと、
＞途中で空白セルもある
ということですが、空白なのが2行や3行、それ以上と言うことは無いのでしょうか？

そもそも、ファイル1のデータはどのように作成され、「ファイル②のユニークキーの数とは完全一致します」は
確実に保証されるのでしょうか。
例えば、300行あろうが1万行あろうが。

やりたいこととして、何行あるか分からない前提では、

・無限ループ
　・ループを抜ける判定
　・A列の文字列が「https://test/test=」と一致するか
　　・一致すれば
　　　・ファイル2から一致カウンタの文字列取得
　　　・一致カウンタをカウントアップ
　　　・ファイルAの該当箇所の文字列を書き換え
　　・一致しなければ何もしない
・ループ終了

といった感じになるとおもいますが、重要なのはループを抜ける判定です。

また、ファイルを1と2を使っていますが、余計な処理が入りますので、まずはファイル1と2ではなく、
シートで分ける様にされたらどうでしょう。

また、プログラミングになれない時は、フローチャートまでいかないにせよ、
上記の様に言葉で書き出して整理すると問題点も見つかりやすいです。
この際、具体的な処理はコーディングでしますので、言葉で簡単に書くようにします。

めぐみん_ · Answer

ファイル１の『特定の文字列』とはファイル内でどのように判断するのでしょう？（先に指定をするのでしょうかね？）
また同一ファイル内ならば『全て同じ文字列』とみなして良いのか否か・・・？

ファイル１の最終行って、

＞※ファイル②のユニークキーの数とは完全一致します

この回数で判断できそうですが、個数が完全一致とは

＞但し、既にユニークキーと結合されて完成されているもの

も含む or 含まない？

TARO_SEVEN · Answer

ファイル1の終端行の判断ができないと思いますが。

Excel マクロ VBA 特定の文字列を探して別ファイル内の文字列と連結or置換させたい

ここまで分かれば何とかなりそう？

確かにCSVファイルのままよりかは同じＢｏｏｋの別シートに取り込んだ方がセル範囲を定め配列変数に値を放り込むだけで、配列のインデックスＮｏの最大値をループ終了の条件に出来ますね。

ええと、

ファイル１の『特定の文字列』とはファイル内でどのように判断するのでしょう？（先に指定をするのでしょうかね？）

ファイル1の終端行の判断ができないと思いますが。

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

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

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

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