2

最初に特定の範囲に設定されている変数があります。

指定された範囲の終わりから次の行を取得し、その範囲に追加するループステートメントが必要です。

すなわち:

myRows = Range(1:10)

    For Each cell in myRows

       If cell.Value > 2048 Then

           myRows = myRows + myRows.Offset(1, 0) ---This is where i need help---

基本的に、ループが実行されるたびに範囲を自動インクリメントするにはどうすればよいですか。

編集：

また、範囲の前にどのように追加しますか。同じく レンジ奥からテイクアウェイ。

すなわち

Range(1:10) は非表示です Range(11:20) は非表示です

非表示の範囲から削除する非表示の範囲に 1 つ追加したいので、次のようにします。

Range(1:11) は非表示です Range(12:20) は非表示です

4

2 に答える 2

4

あなたはデータ型myRowsとして持っています。Variantオブジェクトとして宣言する必要がありRangeます。

Dim myRows as Range

Set次に、キーワードを使用してオブジェクトを割り当てる必要がありRangeます)。

Set myRows = Range("1:10")

次に、range.Resizeメソッドを使用します。

Set myRows = myRows.Resize(myRows.Rows.Count+1, myRows.Columns.Count)

それ以外の場合は、myRowsVariant 型として維持する必要がある場合はお知らせください。これをやり直すことができます。

于 2013-07-22T13:51:02.040 に答える