Excel 动态范围复制公式

我有一个宏将一个除法公式放在“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)"

---

要快速解决问题，只需更换

Set clDest = clDest.Resize(rws, 1)

与

其中x是要填充的列数

Set clDest = clDest.Resize(rws, 1)

Set clDest = clDest.Resize(rws, x)