ユーザーフォームからの転記 複数行ある場合の転記するコードをネットでみて作成してみたのですが Textbox2~5の1行だけの場合 Textbox1の日付・ListBox2の会社・ListBox4の支払方法・ListBox3の1行目の勘定科目が転記した際に反映されてしまいます。。これを1行or2行の場合は反映されないようにご教授頂けましたら幸いです。よろしくお願いいたします。 Private Sub CommandButton1_Click() Application.ScreenUpdating = False Worksheets("取引履歴").Select With Cells(Rows.Count, "b").End(xlUp) .Offset(1, 0) = TextBox1.Value '日付 .Offset(1, 3) = ListBox2.Value '取引先 .Offset(1, 4) = TextBox2.Value '月表 .Offset(1, 5) = TextBox3.Value '年表 .Offset(1, 6) = ListBox3.Value '勘定科目 .Offset(1, 7) = TextBox4.Value '出金金額 .Offset(1, 9) = ListBox4.Value '支払方法 .Offset(1, 10) = TextBox5.Value '摘要 .Offset(2, 0) = TextBox1.Value '日付 .Offset(2, 3) = ListBox2.Value '取引先 .Offset(2, 4) = TextBox6.Value '2行目月表 .Offset(2, 5) = TextBox7.Value '2行目年表 .Offset(2, 6) = ListBox3.Value '勘定科目 .Offset(2, 7) = TextBox8.Value '2行目出金金額 .Offset(2, 9) = ListBox4.Value '支払方法 .Offset(2, 10) = TextBox9.Value '2行目摘要 .Offset(3, 0) = TextBox1.Value '日付 .Offset(3, 3) = ListBox2.Value '取引先 .Offset(3, 4) = TextBox10.Value '3行目月表 .Offset(3, 5) = TextBox11.Value '3行目年表 .Offset(3, 6) = ListBox3.Value '勘定科目 .Offset(3, 7) = TextBox12.Value '3行目出金金額 .Offset(3, 9) = ListBox4.Value '支払方法 .Offset(3, 10) = TextBox13.Value '3行目摘要 'テキストボックスの値をクリア Dim Ctrl As Control For Each Ctrl In Controls If TypeName(Ctrl) = "TextBox" Then _ Ctrl.Value = "" Next Ctrl 'リストボックスの値をクリア ListBox2.Clear ListBox3.Clear ListBox4.Clear '日付順に並べる Range("B11").CurrentRegion.Sort _ Key1:=Range("B12"), _ Order1:=xlAscending, _ Header:=xlYes '登録後日付テキストボックスをフォーカス TextBox1.SetFocus End With End Sub ※エクセル2019です