|
エクセルの学校で解決いたしました。
結果をご報告させていただきます。
《Mookさんの回答》
C 列に数式がある前提ですが、下記シートモジュールに記述です。
Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Count <> 1 Then Exit Sub
If Target.Column > 3 Or Target.Row < 30 Then Exit Sub
Dim r As Range
If Cells(Target.Row - 1, "C").Formula = "" Or Cells(Target.Row, "C").Formula <> "" Then Exit Sub
Range(Cells(Target.Row - 1, "C"), Cells(Target.Row - 1, "HN")).Copy
Range(Cells(Target.Row, "C"), Cells(Target.Row, "HN")).PasteSpecial Paste:=xlPasteFormulasAndNumberFormats
Application.CutCopyMode = False
Target.Activate
End Sub
|
|