質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Q&A

解決済

3回答

524閲覧

ExcelVBAで違うシートから条件に合ったデータを複数項目取得する

mowmowmilk1

総合スコア11

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

0グッド

0クリップ

投稿2018/06/26 13:37

編集2018/07/01 07:08

前提・実現したいこと

sheet1の一覧表の空白部分にsheet2のデータをVBAで取得する。

sheet1、sheet2があります。
sheet1には一覧表として全データが入力されています。
sheet2にはsheet1の一部分が抽出され入力されています。
sheet1にはsheet2の項目が部分的に空白になっています。(sheet2は単独で日付等が入力される)
sheet1の空白部分にsheet2のデータを取得するにはどうすればいいでしょうか?
VLOOKUP関数ではなくVBAで処理する方法を教えてください。
なお、キー項目は納品書番号です。
データは随時追加されるため最終行まで取得するよう設定したいです。

イメージ説明

質問の内容が不適切で大変申し訳ありませんでした。hatena19さまのヒントをもとにやってみたのですが、INDEXで位置を取得しましたが、コピー方法がわかりませんでした。ループもうまくいきません。
すみませんが、ご指導お願いします。
イメージ説明

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

ExcelVBAer

2018/06/27 04:13

ここは他人に仕事をさせる場所ではないので
hatena19

2018/07/01 07:20

コードは画像ではなく、コピーして貼り付けて、コードタグで囲んでください。コードを選択して、ツールバーの「コードの挿入」をクリックするとコードになります。
guest

回答3

0

ベストアンサー

やってほしいことだけを記載した丸投げの質問は推奨されてません。
1行でもいいので、自分で調べてコードを書いてください。

とりあえずヒントだけ。

sheet2のデータの1行目の 発行No でsheet1の発行Noを検索して位置を取得する。
→WorksheetFunction.Match関数

取得した位置に、sheet2の1行目のデータをコピーする、または代入する。

sheet2のデータの2行目に移動して、上記と同じことを繰り返す。
→Do Loop構文 または For Next構文

sheet2のデータがない行にきたら終了する。

上記をヒントにできるとこまでコードを自力で書いてください。

コード例

仕様が不明確の部分があるので、下記のようだと仮定してコーディングしてみました。

Sheet1 Aheet2 とも A1~K1まで項目名、その下の行からデータが入力されている。
Sheet1 は F列からK列までが空欄の行がある。
Sheet2 は空欄はない。
納品書番号(E列)をキーとして同じ行のSheet2のF列からK列までの値をSheet1にコピーする。
コピーするときに、Sheet1が空欄かどうかチェックする必要はないものとする。

vba

1Sub ボタン1_Click() 2 Dim ws1 As Worksheet 3 Dim ws2 As Worksheet 4 Dim ws1Key As Range 5 Dim i As Long 6 Dim r As Long 7 8 Set ws1 = Worksheets("Sheet1") 9 Set ws1Key = ws1.Range("E2", ws1.Cells(Rows.Count, "E").End(xlUp)) '検索範囲 10 Set ws2 = Worksheets("Sheet2") 11 12 For i = 2 To ws2.Cells(Rows.Count, "E").End(xlUp).Row 13 r = WorksheetFunction.Match(ws2.Cells(i, 5).Value, ws1Key, 0) + 1 14 ws1.Range(ws1.Cells(r, 6), ws1.Cells(r, 11)).Value _ 15 = ws2.Range(ws2.Cells(i, 6), ws2.Cells(i, 11)).Value 16 Next 17End Sub 18

投稿2018/06/26 20:00

編集2018/07/01 08:56
hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mowmowmilk1

2018/07/01 07:10

ご回答ありがとうございました。丸投げにして申し訳ありませんでした。せっかくヒントをいただきましたがうまくいきませんでした。すみません。
hatena19

2018/07/01 08:29

すみません。検索して位置を返す関数は、WorksheetFunction.Match関数でした。回答も修正しておきます。
mowmowmilk1

2018/07/04 13:07

ありがとうございました。思った通りになりました。コードの貼り付け方もいただき、大変お世話になりました。
guest

0

VLOOKUP関数ではなくVBAで処理する方法を教えてください。

VLookup関数なら出来るんですよね?
VBAでもVlookUp関数が使えます。
なのでそれを使ってみてはいかがでしょう?
ただしデータ数が大量にあると重いかもしれません。
が、手動でやるよりは全然速いし、入力間違いをしません。

作業の流れ的には
1行毎に見て行って
CountA関数でデータ数を数え、
もし、データ数が既定の数なければ、
Vlookup関数で検索して補完する
というのを繰り返せばいいと思いますが、
コードを書けそうですか?

Web上に情報は大量にありますので、調べてみて書いて見てはいかがですか?
その結果、こうやったけど、期待した結果にならない。
どうしてもエラーが出て動かないなど、
書いてみたコードとともにどんなことをやってみたかを、
教えてもらえれば、また、アドバイスが貰えると思います。

投稿2018/07/01 07:36

mattuwan

総合スコア2136

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mowmowmilk1

2018/07/04 13:03

ご回答ありがとうございます。参考にさせていただきます。
guest

0

VLOOKUP関数ではなくVBAで処理する方法を教えてください。

ちょっとご質問の趣旨を図りかねるところがあり、下記の回答で当たっているかあまり自信はありませんが...

ご質問の趣旨ですが、sheet1の空白等のある項目をsheet2に抽出し、sheet2に記入した内容をsheet1に転記したいということでしょうか。だとすると、ご質問はそれを「記入する端から」転記したいというイメージをお持ちでしょうか。だとしたら正直、それはいろいろな面で難しいです。

ですので、こういう処理では、記入するシート(このばあい、仮にsheet2だとします。)に「転記」あるいは「登録」というボタンを作成して、記入後にそのボタンを押したときにVBAで、sheet2の内容を転記させるのが一般的です。転記する処理については、それほど難しい処理とは思わないので説明しませんが、これでご参考になりますでしょうか。

投稿2018/06/27 23:57

webappbeginner

総合スコア37

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

mowmowmilk1

2018/07/01 07:13

ご回答ありがとうございます。sheet1からsheet2は抽出といっても、別作成です。ど素人なもので転記さえもよくわかりません。すみません。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問