Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2240 / 76734

←次へ　｜　前へ→


	【80138】別のシートから別のシートへ

まくろ - 18/9/10(月) 11:42 -


	引用なし

	パスワード

シート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

3 hits

▼

【80138】別のシートから別のシートへ まくろ 18/9/10(月) 11:42