LastRowを使用してペースト範囲をコピーする

Question

A7以降の行にデータがあるまで、特定の指定範囲から指定したFirstRowからLastRowに式をコピーする方法に関する質問があります。

A7からLastRowにデータがあるまでは、H6:J6の数式をH7:J7からLastRowまで貼り付けてください。

ここで問題は、A7以降の行が空の場合、数式をH5:J5にコピーすることです。 A7以降が空の場合、式がまったくコピーされないように、使用できるコードはありますか？おそらくFirstRowを固定か何かとして定義します。

Sub CopyFormulaIF() 

Dim myLastRow As Long 
Dim myCol As Long 
Dim WB As Workbook 
Dim WS As Worksheet 

Set WB = ThisWorkbook 
Set WS = WB.Sheets("Tabelle1") 

'Screen update in 0 seconds 
Application.ScreenUpdating = 0 

With WS 
    myLastRow = .Range("A" & .Rows.Count).End(xlUp).Row 
End With 

For myCol = 8 To 10            
    Cells(6, myCol).Copy           
    Range(Cells(7, myCol), Cells(myLastRow, myCol)).PasteSpecial Paste:=xlFormulas 
Application.CutCopyMode = False        
Next myCol 

End Sub 

サンプル：myLastRowが正しい値を返す場合

おかげでたくさんの男

Answer 1

あなたはこの

Option Explicit 

Sub CopyFormulaIF() 
    Dim myLastRow As Long 
    Dim myCol As Long 

    'Screen update in 0 seconds Application.ScreenUpdating = 0 

    With ThisWorkbook.Sheets("Tabelle1") 
     myLastRow = .Range("A" & .Rows.Count).End(xlUp).Row 

     If myLastRow < 7 Then Exit Sub 

     For myCol = 8 To 10 
      .Range(.Cells(7, myCol), .Cells(myLastRow, myCol)).FormulaR1C1 = .Cells(6, myCol).FormulaR1C1 
     Next 
    End With 
End Sub