エクセルのマクロで日付の枚数分用意されたシートにデータを振り分けるという作業を行いたいです。

画像
補足

Sub OK() Dim i, LastRow As Long LastRow = Cells(Rows.Count, 10).End(xlUp).Row For i = 1 To LastRow If Cells(i, 10) = "〇"Then Cells(i, 3).Copy Worksheets("Sheet2").Range("O42:O49,R42:R48,AK18:AK37") _ .SpecialCells(xlCellTypeBlanks).Areas(1).Cells(1) End If Next i End Sub 今はこれを使ってやっていますが、アクティブなシートに対してしか実行されず、選択したシートに貼り付けるという事しかできません。また、値のみの貼り付け及び結合セルへの貼り付けもできません。

Visual Basic | Excel42閲覧xmlns="http://www.w3.org/2000/svg">25

ベストアンサー

0

ありがとうございます! やりたいと思っていることはできているのですが、 画像のように2日と3日のシートは1日の続きから?(一部違うので続きからでもないような…)になっていますが、どのようにすれば大丈夫でしょうか?

画像

ThanksImg質問者からのお礼コメント

完璧なものでした!ありがとうございました。 また引き続きよろしくお願い致します

お礼日時:2/26 12:53