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

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

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

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

Q&A

解決済

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

Kazuhiro-ch
Kazuhiro-ch

総合スコア82

VBA

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

2回答

0グッド

0クリップ

284閲覧

投稿2022/11/26 16:00

編集2022/11/27 06:12

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文を回す必要があるのでしょうか?
それともほかに方法はありますでしょうか?

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

以下のような質問にはグッドを送りましょう

  • 質問内容が明確
  • 自分も答えを知りたい
  • 質問者以外のユーザにも役立つ

グッドが多くついた質問は、TOPページの「注目」タブのフィードに表示されやすくなります。

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

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

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

下記のような質問は推奨されていません。

  • 間違っている
  • 質問になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

適切な質問に修正を依頼しましょう。

meg_

2022/11/26 16:14

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

2022/11/27 06:12

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

回答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

総合スコア32016

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

Kazuhiro-ch

2022/11/28 02:34

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

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_

総合スコア9762

良いと思った回答にはグッドを送りましょう。
グッドが多くついた回答ほどページの上位に表示されるので、他の人が素晴らしい回答を見つけやすくなります。

下記のような回答は推奨されていません。

  • 間違っている回答
  • 質問の回答になっていない投稿
  • スパムや攻撃的な表現を用いた投稿

このような回答には修正を依頼しましょう。

回答へのコメント

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

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

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

ただいまの回答率
86.02%

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

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

質問する

関連した質問

同じタグがついた質問を見る

VBA

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