동적 범위의 수식 복사

Question

행 "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 

Answer 1

신속하고 더러운 솔루션은 단순히

을 대체 들어있다 x는 채우려 열 수는

Set clDest = clDest.Resize(rws, x) 

와

Set clDest = clDest.Resize(rws, 1) 

.