質問: EXCELの自動転記マクロについてご教授いただけると嬉しいです。
回答: どこに入力しても、A列のその入力された行を転記すればいいのですね。 Option Explicit ' Private Sub Worksheet_Change(ByVal Target As Range) Dim O As Worksheet Dim REnd As Long ' If Target.Column = 1 Then End End If ' Set O = Sheets("Sheet2") REnd = O.Cells(Rows.Count, "A").End(xlUp).Row O.Cells(REnd + 1, "A") = Cells(Target.Row, "A") End Sub シートシートモジュールに入れて下さい。 Sheet1のシート名の所を右クリック、コードの表示を選び、そこに入れて下さい。