質問: VBAです。 Private Sub btnOk_Click() Dim lastRow As Long With Worksheets("test") lastRow .Cells(.Rows.Count, 1).End(xlUp).Row + 1
回答: Cells(.Rows.Count, 1).End(xlUp).Row これで A列で データーが 入っている最後の行が もとまります。 途中に 空白行が 入っていても 一番下にデーターがある行NO が 求まります。 その前に With Worksheets("test") と なっていますので .Cells(.Rows.Count, 1).End(xlUp).Row これで Worksheets("test")の A列の最後の行Noが 求まります。 さらに .Cells(.Rows.Count, 1).End(xlUp).Row+1ですか 最後の行の次の行です つまり新規にデーターを追加する行Noを 求めているわけです。 MEは USERFORMが 複数あっても このコードが 入っている 自分自身の USERFORMのことです。 .Cells(lastRow, 1).Value = Me.txtコード.Text Worksheets("test")というシートの A列で データーが入っている一番最後の次の行 新規の行の セルに このコードが入っているUSERFORMの Txtコードという名前のテキストボックスの値を いれなさい ということです。