A7
以降の行にデータがあるまで、特定の指定範囲から指定したFirstRowからLastRowに式をコピーする方法に関する質問があります。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
おかげでたくさんの男
を行うことができ、あなたはチェックしましたか?サンプルからA2、A3、A6が空であることが分かります。したがって、myLastRowの値はおそらく3セル短くなります。 –
@ YowE3K説明してくれてありがとう! –