vbaの行の選択に新しい行を追加する

私はスプレッドシートをセクションに分割し、各セクションにはそのセクションの既存の行に追加する「新しいラインを追加する」があります。

Currentregion関数では行を数えますが、最後の行を選択して下に1行追加しています。

コードは、これまで私はセクションで既に行の数を返すことができ、カウントビットである：

Dim numberOfRows As String 

numberOfRows = Range("A:A").Find(sBudgetLine, LookIn:=xlValues).CurrentRegion.Rows.Count - 2

しかし、私は、追加の行を追加する次のステップを見つけるのに苦労しています。

出典

2016-06-21 This Name

これまでのコードは表示できますか？ –

@Matt Cremeensはちょうど私の質問を編集しました。 sBudgetLineはセクションの名前であり、メソッドに渡されます。このコードは、私がcurrentregionを使用してセクションヘッダーとセクションヘッダーをスキップしています。これが役に立ちます。 –

なぜnumberofRowsが文字列ですか？それをセル参照として使用する予定の場合は、整数でなければなりません。

Dim NumberofRows as Integer 

NumberofRows = Cells(1,1).End(xlDown).Row + 1 

Rows(NumberofRows).Insert

出典

2016-06-21 20:37:24

申し訳ありませんタイプミス - 適切な値の場所を探していました。 B292 –

"B292"のようなセルのアドレスを検索する場合は、セルを見つける最後に.Addressを使用します。たとえば、SomeCell = Cells（292,2）.Addressは "$ B $ 292"という文字列を返します。 2つの方法を混在させることはできません。行番号を識別する場合は、整数を使用します。行全体を追加するか、列に1つのセルを挿入することを検討していますか？ –

ああ、私は既存の行の下に行全体を追加しようとしています –

vbaの行の選択に新しい行を追加する

答えて

関連する問題