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

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

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

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

Q&A

解決済

2回答

655閲覧

VBAのFOR文で取得したデータのセルをすべて選択したい

Kazuhiro-ch

総合スコア85

VBA

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

0グッド

0クリップ

投稿2022/11/26 16:00

編集2022/11/28 11:34

startとgoalのAセルの日付データを比較し、goalにないデータを start から行ごとコピペするプログラムを考えています。

こちら以前質問した続きです。
前回質問URLです。https://teratail.com/questions/8x4hz58p7q8s21

コードは以下です。アドバイスをいただき、修正しています。

vba

1Sub compare_and_copy_date() 2 3 Dim L As Long, lRow As Long, M As Long, mRow As Long 4 Dim wsStart As Worksheet: Set wsStart = ThisWorkbook.Sheets("start") 5 Dim wsGoal As Worksheet: Set wsGoal = ThisWorkbook.Sheets("goal") 6 7 8 lRow = wsStart.Cells(Rows.Count, "A").End(xlUp).Row 9 mRow = wsGoal.Cells(Rows.Count, "A").End(xlUp).Row 10 11 For L = 2 To lRow 12 For M = 2 To mRow 13 If wsStart.Cells(L, 1).Value = wsGoal.Cells(M, 1).Value Then 14 Exit For 15 End If 16 Next M 17 If M > mRow Then Rows().Copy '1 18 Next L 19 20End Sub

したいことイメージ

元データ(start)

日付数値データ数値データ
11/2612344567
11/2712344567
11/2812344567

コピペ先データ(goal)

日付数値データ数値データ
11/2612344567
11/2712344567

コピペ先データ(コピペ後)

日付数値データ数値データ
11/2612344567
11/2712344567
11/2812344567

問題点

コメントアウト1の部分で出力した行すべてを取り出してコピペしようとしているのですが、FOR文で出力されるものは最新のものだけなので、すべての出力した行すべてを選択することができません。

すべてを取得するためには、再度FOR文を回す必要があるのでしょうか?
それともほかに方法はありますでしょうか?

教えていただけますと幸いです。よろしくお願いいたします。

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

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

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

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

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

meg_

2022/11/26 16:14

> startとgoalのAセルの日付データを比較し、goalにないデータを start から行ごとコピペするプログラム 文章だけでは分かりずらいので、元のシートと作成したい状態のシートを提示されると良いかと思います。
Kazuhiro-ch

2022/11/27 06:12

追加いたしました。ご確認お願いいたします。
guest

回答2

0

ベストアンサー

一致しない日付が複数ある場合も考慮すると、貼り付け先の最終行を取得してその次の行にコピーするようにするといいでしょう。

vba

1Sub compare_and_copy_date() 2 3 Dim l As Long, lRow As Long, M As Long, mRow As Long 4 Dim wsStart As Worksheet: Set wsStart = ThisWorkbook.Sheets("start") 5 Dim wsGoal As Worksheet: Set wsGoal = ThisWorkbook.Sheets("goal") 6 7 lRow = wsStart.Cells(Rows.Count, "A").End(xlUp).Row 8 mRow = wsGoal.Cells(Rows.Count, "A").End(xlUp).Row 9 For l = 2 To lRow 10 For M = 2 To mRow 11 If wsStart.Cells(l, "A") = wsGoal.Cells(M, "A") Then 12 Exit For 13 End If 14 Next M 15 If M > mRow Then 16 wsStart.Rows(l).Copy Destination:=wsGoal.Cells(Rows.Count, "A").End(xlUp).Offset(1) 17 End If 18 Next l 19 20End Sub

投稿2022/11/27 08:08

hatena19

総合スコア33620

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

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

Kazuhiro-ch

2022/11/28 02:34

両名の回答を参考にしなければ解決できませんでしたが、より核心に近かった方をBAにいたします。
guest

0

下記コードではgoalシートの全セルがコピーされているようですよ。ご確認ください。

VBA

1If M > mRow Then Rows().Copy

コピーしたい行だけをコピーして、goalシートへ貼り付ければ良いでしょう。

VBA

1Sub compare_and_copy_date() 2 3 Dim L As Long, lRow As Long, M As Long, mRow As Long 4 Dim wsStart As Worksheet: Set wsStart = ThisWorkbook.Sheets("start") 5 Dim wsGoal As Worksheet: Set wsGoal = ThisWorkbook.Sheets("goal") 6 7 8 lRow = wsStart.Cells(Rows.Count, "A").End(xlUp).Row 9 mRow = wsGoal.Cells(Rows.Count, "A").End(xlUp).Row 10 11 For L = 2 To lRow 12 For M = 2 To mRow 13 If wsStart.Cells(L, 1).Value = wsGoal.Cells(M, 1).Value Then 14 Exit For 15 End If 16 Next M 17 If M > mRow Then 18 wsStart.Rows(L).Copy 19 wsGoal.Select 20 wsGoal.Cells(M, 1).Select 21 ActiveSheet.Paste 22 End If 23 Next L 24 25End Sub

投稿2022/11/27 06:48

meg_

総合スコア10577

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

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

Kazuhiro-ch

2022/11/27 07:16

コードについての質問です。素人的質問で申し訳ございません。 wsStart.Rows(L).Copy =>goalシートにはない行のコピー wsGoal.Select =>シートのセレクト wsGoal.Cells(M, 1).Select => セルのセレクト ActiveSheet.Paste という認識で間違い無いでしょうか?
meg_

2022/11/27 08:51

そういう意図で書きました。
Kazuhiro-ch

2022/11/27 12:47

ありがとうございます。承知いたしました。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

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

ただいまの回答率
85.50%

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

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

質問する

関連した質問