質問者が納得sheet1のC列に空欄が出るまでシートコピーとIDのセットを繰り返します。Dim i As Integer i = 1Do While Sheets("Sheet1").Cells(i, 3).Value <> "" Sheets("Sheet2").Copy After:=Sheets(Sheets.Count) Sheets(Sheets.Count).Range("B2").Value = Sheets(&q...
質問者が納得マクロを変更しました。対象シートのシートモジュールに次のコードをコピーしてください。Private Sub Worksheet_Change(ByVal Target As Range) Dim Date1 As Variant, Date2 As Variant Dim rNum1 As Long, rNum2 As Long If Target.Address <> "$A$1" And Target.Address <> "$A$2" ...