VBAでExcelのアクティブ行をフリーズするにはどうすればよいですか？

Question

タイトルのように、選択した行全体をコピーして値だけをペーストして、後で結果を変更することができないVBAコードを記述する必要があります。

最後に私が作業したファイルでActiveCellでこれを行うことができましたが、1つのセルを変更するだけでした。

Sub Freeze() 
    ActiveCell.Copy 
    ActiveCell.PasteSpecial Paste:=xlPasteValues 
End Sub 

しかし、この新しいファイルのために、私は、行全体をコピーしていると私は、個々のセルを選択する必要はありません：これは私が使用したコードです。これを新しいファイルで使用すると、最初のセルでのみ機能します。私はそれを行全体のために働かせることができますか？

ありがとうございました。

Answer 1

簡単なコードの下に（可能ならば細胞の選択を回避しようとすると、アクティブセル）を使用します

Sub Test() 

Call Freeze(3, 7) 
Call Freeze(4, 8) 

End Sub 


Sub Freeze(rowsource As Long, rowdest As Long) 

Rows(rowsource).Copy 
Rows(rowdest).PasteSpecial Paste:=xlPasteValues 

End Sub 

Answer 2

ペースト：= xlPasteValues

あなたはペーストの値をコピーする必要はありませんが形式をコピーする場合を除きます。

これを試してください。シート名を関連するシート名に置き換えます。また、X、Yを関連する行番号に置き換えます。あなたが複数の行を使用している場合は、Range("X:X")へRows(X)と `ActiveCell.EntireRow.Copy`と` ActiveCell.EntireRow.PasteSpecial xlPasteValues`のような同様Range("Y:Y")

Thisworkbook.Sheets("Sheet1").Rows(X).Value = _ 
Thisworkbook.Sheets("Sheet2").Rows(Y).Value