行に今日の日付が含まれている場合、行全体を別のシートにコピーするにはどうすればよいですか？

Question

私はいくつかの支払い計画を設定しています。行には通常、顧客情報とともに2〜4つの異なる日付が含まれます。今日の日付を含む行をSheet1からSheet2にコピーしたいと思います。

ご協力いただきありがとうございます。追加情報が必要な場合はお知らせください。

編集：ここでは動作しないいくつかのものです：

Sheet2の

List Range: Sheet1!$1:$1048576 
Criteria Range: =today() 
Copy To: $a$1 

から高度なフィルタを使用しても

List Range: Sheet1!$1:$1048576 
Criteria Range: =a1 //with a1 containing the formula =today() 
Copy To: $b$1 

Answer 1

次のように動作するはずです。

Sub copyIfTodaysDate() 

    Dim todaysDate As Date 
    Dim rngData As Range 
    Dim rngRow As Range 
    Dim rngCell As Range 
    Dim counter As Integer 

    todaysDate = Date 
    counter = 1 

    Set rngData = Worksheets("Table1").UsedRange 

    For Each rngRow In rngData.Rows 
     For Each rngCell In rngRow.Cells 
      If rngCell.Value = todaysDate Then 
       rngRow.Copy Worksheets("Table2").Rows(counter).Columns(1) 
       counter = counter + 1 
       Exit For 
      End If 
     Next 
    Next 

End Sub