复制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是要填充的列数。