動態範圍的複製公式

Question

我有一個宏在行「d」中的一個單元格中放置一個除法公式，並在行「d」中一直複製相同的公式直到最後一個單元格。 我試圖複製在其他列相同的公式「E：L」，而無需重寫整個代碼爲每列seperately

With wbk4.Sheets("USD") 
Set clDest = .Range("D2") 
Set clLookup = .Range("AA2") 
End With 

If clLookup.Offset(1, 0) <> vbNullString Then 
rws = Range(clLookup, clLookup.End(xlDown)).Rows.Count 
Set clDest = clDest.Resize(rws, 1) 
End If 
clDest.Formula = "=(" & clLookup.Address(False, False) & "/3.68)" 

這不正確的公式爲一欄中「d」到最後細胞。 我需要的是，只有從第二個單元格到最後一行，才能將此複製到以下列「E」到「L」 。

我試圖通過下面的邏輯來做到這一點，但它有點太複雜，不工作，我敢肯定有各地的另一種方式:)

With wbk4.Sheets("USD") 
lrow = .Range("D" & .Rows.Count).End(xlUp).Row 
.Range("D2" & lrow).Copy 
wbk4.Sheets("USD").Range("E2").PasteSpecial Paste:=xlPasteFormulas 
End With 

Answer 1

對於一個快速和骯髒的解決方案只需更換

Set clDest = clDest.Resize(rws, 1) 

與

Set clDest = clDest.Resize(rws, x) 

其中x是要填充的列數。