質問: エクセル、VBAの質問です 下記の動作をするようコードを組みたいです。 入力シート 集計シート の構成で、入力シートのA1セルに数値を入力→ENTERを押すたびに 集計シートのA列に1行目から順に転記されていく 入力シートのA1セルの数値は入力後(ENTER押下後)、消去 集計シートのA列は数字の若い空白セルに転記がなされる つまり、集計シートA列の任意の行を手動で消去した場合、そこも含めて数字の若い方の空白行を優先的に埋める よろしくお願いいたします
回答: Option Explicit ' Private Sub Worksheet_Change(ByVal Target As Range) Dim O As Worksheet Dim REnd As Long ' If Target.Address <> "$A$1" Then End End If ' Set O = Sheets("集計") REnd = O.Cells(Rows.Count, "A").End(xlUp).Row + 1 ' If O.[A1] = "" Then REnd = 1 End If O.Cells(REnd, "A") = [A1] Application.EnableEvents = False [A1].ClearContents Application.EnableEvents = True End Sub シートシートモジュールに入れて下さい。 「入力」シート、シート名の所を右クリック、コードの表示を選び、そこに入れて下さい。