行をコピーするマクロ

Question

私が必要とするものをほとんど見つけ出しました。 「合計」という名前の行をコピーし、その行を新しいシートに貼り付けます。行「合計」には数式があり、値が必要です。正しく動作するようにマクロを調整するにはどうすればよいですか？検索文字列が実際に発見された場合、あなたはその後、代替アクションを取ることができるテストするために、範囲のオブジェクトの価値のある製造に使用され

Sub RowCopy2() 
Dim rngFind As Range 

With Worksheets("Hol. Stats").UsedRange 
Set rngFind = .Find("Totals", _ 
      LookIn:=xlValues, _ 
      LookAt:=xlWhole, _ 
      SearchOrder:=xlByRows, _ 
      SearchDirection:=xlNext, _ 
      MatchCase:=True) 
End With 
rngFind.EntireRow.Copy _ 
Destination:=Worksheets("Sheet2").Range("A1") 
End Sub 

Answer 1

使用

Sub RowCopy2() Dim rngFind As Range 
    With Worksheets("Hol. Stats").UsedRange 
    Set rngFind = .Find("Totals", _ 
     LookIn:=xlValues, _ 
     LookAt:=xlWhole, _ 
     SearchOrder:=xlByRows, _ 
     SearchDirection:=xlNext, _ 
     MatchCase:=True) 
    End With 

    rngFind.EntireRow.Copy 
    Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValues 
End Sub 

Answer 2

：ここ

は、マクロのコードでありますユーザーに情報を提供するなど

宛先の値に送信元の値を設定してコピー＆ペーストを回避することができます。

Sub RowCopy2() 
Dim rngFind As Range 
Set rngFind = Worksheets("Hol. Stats").UsedRange.Find("Totals", LookIn:=xlValues, LookAt:=xlWhole, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=True) 
If Not rngFind Is Nothing Then Worksheets("Sheet2").Rows(1).Value = rngFind.EntireRow.Value 
End Sub 

Answer 3

行の範囲名を使用して「合計」行を見つける方が早いです。 2行でそれを行うことができます...

Rows(Range("Totals").Row).Copy 
Sheets("Sheet2").Range("A1").PasteSpecial xlPasteValues 

これは、Visual Basicで範囲名を使用する理由です。範囲のその他の特性については、このテキストで説明していますExcel help video