質問: ExcelのVBAについて教えてください。 VBA初心者です。ネットや本をみては、毎日考えていますが 思うようにできず、困っています。
回答: 入力完了後、ボタンを押して下さい。 一覧表へ転記後、B4~J13 をクリアします。 Option Explicit ' Sub Macro1() Dim O As Worksheet Dim ROut As Long Dim RInp As Long ' Set O = Sheets("一覧表") ' ROut = O.Cells(Rows.Count, "A").End(xlUp).Row ' For RInp = 4 To [B13].End(xlUp).Row ' If Cells(RInp, "I") + Cells(RInp, "J") Then O.[A1:B1].Offset(ROut) = [C2:D2].Value O.[C1].Offset(ROut) = [C1] O.[D1:L1].Offset(ROut) = [B1:J1].Offset(RInp - 1).Value ROut = ROut + 1 End If Next RInp [B4:J13].ClearContents End Sub