复制dynamic范围的公式

我有一个macros在行“d”中的一个单元格中放置一个分割公式,并在行“d”中一直复制相同的公式直到最后一个单元格。 我试图复制相同的公式跨越其他列“E:L”,而不必重写每个列的整个代码分开

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 

对于快速和肮脏的解决scheme,只需更换

 Set clDest = clDest.Resize(rws, 1) 

 Set clDest = clDest.Resize(rws, x) 

其中x是要填充的列数。