17/05/31 03:10:26.82 ngSfzLWM0.net
>>393
イベントを使うといいと思う
例えば４列目に入力があったら５～７列目がオートフィルされるようにするなら
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Row > 3 And Target.Column = 4 Then
Range(Cells(Target.Row - 1, 5), Cells(Target.Row - 1, 7)).Select
Selection.AutoFill Destination:=Range(Cells(Target.Row - 1, 5), Cells(Target.Row, 7)), Type:=xlFillDefault
Target.Select
End If
End Sub