質問者が納得やっぱりマクロになります^^Sub try3()Dim i As Long, n As Longn = 0n = Range("a1").End(xlDown).RowFor i = n To 1 Step -1 Rows(i + 1).Resize(3).Insert shift:=xlShiftDown Cells(i, 1).Copy Cells(i, 1).Resize(3).Offset(1)NextEnd Sub上記を標準モジュールにコピペします。Alt+F11 & ...
質問者が納得こんな感じで如何でしょうか。Private Sub Worksheet_SelectionChange(ByVal Target As Range)Dim Rng As RangeSet Rng = Intersect(Range("A11:A52"), Target)With ActiveSheet.Calendar1 If Not Rng Is Nothing Then .Visible = True .Value = Date .Top = Rng.Top Else .Visibl...