|
シート1へシート2のデータを日付を照合してデータを自動コピーする
マクロを作りました。
何故か昨日の日付と今日の日付がデータが入らないのですが何故でしょうか?
いつ行っても一昨日やほかの日のデータは入ります。
VBA初心者です。よろしくお願いします。
[sheet1]
A列に1行目から2018/4/1〜2018/9/31のように日付が書いてあります。
B列以降は空欄です。
[sheet2]
A列に1行目に2018/9/10など日付があります。
B列以降のデータをコピーしたいです。
9/8のデータは反映されるのですが、9/9や9/10は0が入ってしまいます。
Sub ()
Dim c As Range
Dim myRow As Long
Dim myrow2 As Long
Sheets("Sheet1").Activate
With Sheets("Sheet2")
myRow = .Cells(Rows.Count, 1).End(xlUp).Row
For Each c In .Range("A1:A" & myRow)
If WorksheetFunction.CountIf(Columns(1), c) Then
myrow2 = WorksheetFunction.Match(c, Columns(1), 0)
Cells(myrow2, 1).Resize(, 50).Value = c.Offset(, 0).Resize(, 50).Value
End If
Next c
End With
Range("B3").SpecialCells(xlCellTypeBlanks) = 0
End Sub
|
|