vbaを使用してデータで最後の行を見つける

Question

私は生成するたびに、生成されたデータが特定のシートに表示され、特定の日付順に並べられるプログラムを作成しています。それはこのように見えます。

しかし、私は再び発生したときに、既存のデータが生成された新しいデータがカバー/置き換えられます。このように見えます。

今、私は別のデータを貼り付けるつもりです前に私のアイデアは、ですが、私は、データの次の世代では、それは交換することが文句を言わないように、値の最後に使用されたセルである最初の何を知りたいです/新しいもので覆われています。誰かがこれで私を助けることができますか？出力は次のようになります。

任意のヘルプ誰？ありがとう！あなたのケースを1として

Answer 1

これは、変数に（Integerなど）最後の行の値を代入します

コードの下

Dim lastcolumn as Long 
lastcolumn = Cells(1, Columns.Count).End(xlToLeft).Column + 2 

Answer 2

てみてください「LASTROW」

Dim lastRow as Integer lastRow = ThisWorkbook.ActiveSheet.Cells.Find("*", ThisWorkbook.ActiveSheet.Cells(1, 1) _ , , , xlByRows, xlPrevious).row

あなたは可能性もステートメントの最後に '.row'を削除し、範囲変数に設定します。次に、最後の行がどこにあるのかについての情報がありますが、最後の使用されたセルがどの行（Integerとして）にあるかを知るだけで十分です。

最後の列が必要な場合は、文の最後の '.row'を '.Column'に置き換えてください。

EDIT：ます。またThisWorkbook.ActiveSheet.UsedRange.Rows.Countを使用することができますが、私はそれはあなたのすべての時間を右の結果が得られていないので（理由は分かりませんが、多くの場合、この問題を持っていた）、この方法が好きではありません。