Excel VBA挿入行

Question

マクロに少し問題があります。 動的な数の行を特定の行の上に挿入したいだけです。特定の行からすべてをコピーする必要があります。したがって、書式設定、式、テキスト、マージされたセルは基本的にすべてです。

私のコードは実際に必要な行数を挿入し、書式設定をコピーします。私が紛失しているものは、セル内のテキスト/式であり、セルはまったくマージされません（下の行のように）。ちょうど私が私が実際に正しい挿入行の数が言ったようので、kが100であると仮定することができます簡単な理由のために、今

Set ins = wsCopyTo.Range("A100") 

Do While k > 0 = True 


    ins.EntireRow.Insert 

k = k - 1 

Loop 

：

は、私がこれまで持っていることはこれです。

Answer 1

これは動作します：

Sub copyXrows() 
Dim ins As Range 
Dim k As Integer 
Set ins = Tabelle1.Range("A10") 

ins.Select 
k = 2 
Do While k > 0 = True 

ins.EntireRow.Copy 
ins.EntireRow.Insert 

k = k - 1 

Loop 

End Sub 

あなたはentirerow.copyコマンドを欠場。