エクセルのVBAについて

質問

エクセルのVBAに詳しい方がいらっしゃれば、助けて頂きたい事がございます！

・Sheet1（以下S1と記載）の、1列目に、A1セルより、項目として、「ID、地区、住所、電話番号、資産名、耐用年数、取得日」が記載（=S1は項目のみ）
・Sheet2（以下S2と記載）の、1列目に、A1セルより、項目（住所、設備、資産名、区域、備考）と2列目以降にそのデータが記載

【やりたいこと】

S1の項目と完全一致するS2の項目（上記では、住所、資産名のみ）の2列目以降のデータを、S1の2列目以降に張り付ける作業を自動化するコードを書きたいのですが、上手くいかず・・・
どなたかコードを記載して頂けないでしょうか？また下記の前提を考慮したコードであると、なお助かります！

【前提】
・「S1の項目が空欄にぶつかったら、検索を終了」という事をループに入れる（S1の項目数は変動するため）
・「S2の2列目以降の全てのデータをS1に張り付ける」という事をコードに入れる（S2の2列目以降のデータの列数も変動する且つ途中に空欄も含むため）
・S1の「地区」に、S2の「区域」を反映できるようなコードを入れる

宜しくお願いいたします_(._.)_

回答No.3

SI299792 · ベストアンサー

Sheet1は項目名のみのでB1以降は空。
項目名を合わせて持ってくるということでしょうか。
（上記では、住所、資産名のみ）と書いてありますが、
『S1の「地区」に、S2の「区域」を反映できるようなコード』というのなら、区域も持ってきて地区に入れるということではないのですが？
作ってみました。
'
Option Explicit
'
Sub Macro1()
'
　　Dim Col1 As Integer
　　Dim Col2 As Integer
　　Dim Word2 As String
　　Dim Word1 As String
　　Dim Row As Long
'
　　For Col2 = 1 To [Sheet2!A1].End(xlToRight).Column
　　　　Word2 = Sheets("Sheet2").Cells(1, Col2)
'
　　　　If Word2 = "区域" Then
　　　　　　Word2 = "地区"
　　　　End If
'
　　　　For Col1 = 1 To [Sheet1!A1].End(xlToRight).Column
　　　　　　Word1 = Sheets("Sheet1").Cells(1, Col1)
　　　　　　Row = Sheets("Sheet2").Cells(Rows.Count, Col2).End(xlUp).Row
'
　　　　　　If Row > 2 And Word1 = Word2 Then
　　　　　　　　Sheets("Sheet2").Cells(2, Col2).Resize(Row - 1, 1).Copy _
　　　　　　　　　　Sheets("Sheet1").Cells(2, Col1)
　　　　　　　　Exit For
　　　　　　End If
　　　　Next Col1
　　Next Col2
End Sub

お礼

返信遅れてしまい、申し訳ございません！頂いたコードを自分で微修正して、何とか対応できました！
本当に助かりました、ありがとうございます！！頂いたコードを十分に理解して、今後に活かす様にいたします_(._.)_

回答No.2

imogasi

ここは、課題を出して、プログラムを作ってもらうコーナーではない。
自分で勉強すること。または業者に頼むこと。なぜプログラムだけは、ただで頼めると思うのか。
コードを書く気はないが、下記を参考までに読んで置いたら。
質問の内容はＶＢＡの中級ぐらいの技量が必要。
見出し項目などくだくだ質問に書く前に、どういうロジックでエクセル的に問題を処理する、かの「ロジックやアルゴリズム」の勉強が必要であることを認識すること。
キー項目（たとえば社員番号、素人には氏名や製品名といった説明の方が、わかりやすいかも）情報の結合という範疇の問題です。本件は同じシート上の問題だが、普通は別の２ファイルにデータが分かれている場合が多い。
使う方法の例は
（１）１つにつき、相手データを１件ずつチェックする（最悪全件回）。
判別を繰り返す法。
（２）１件１件エクセルのＦｉｎｄメソッドで対象グループデータから探す
（３）ソート法（まず両者をキーでソートする）＋並んだデータをキーでマッチング＋マッチした相手データを採ってくる
（４）伝統的な、検索に適したソフトを使う。例ＳＱＬ、エクセルでも使えるが学が学習が進んでないと、すぐはむつかしい。ａｃｃｅｓｓなどでは常識。
ーー
Ｓ１など抽象的（実例を隠した）な例でなく、約１０件（行）約５－６項目ぐらいの例を作って挙げる方が、読者にはわかりやすい。類型を捉える勉強にもなると思う。

お礼

アドバイス頂きましてありがとうございます、今後の参考にいたします！

回答No.1

bunjii

>どなたかコードを記載して頂けないでしょうか？
プログラマーに有料で依頼する内容のように思われます。

>また下記の前提を考慮したコードであると、なお助かります！
詳細な仕様書を作成してサンプルデータを貼付すれば可能な仕事のようです。
しかし、無償でプログラムする人は稀であると思います。

お礼

アドバイス頂きましてありがとうございます、今後の参考にいたします！