루핑 VBA 가능?

Question

원래이 수식을 실행하려고했지만 필터링 된 선택 항목을 자동 완성 할 수 없음을 알았습니다. 코드를 heres :

Range("I1").Select  
ActiveCell.FormulaR1C1 = _ 
"=IF(RC[-2]=""dpd"",HYPERLINK(""http://www.dpd.co.uk/tracking/quicktrack.do?search.consignmentNumber=""&RC[-1]&""&search.searchType=16&search.javascriptValidated=0&appmode=guest""))" 
Range("I1").Select 
Selection.AutoFill Destination:=Range("i1:i" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy 
Range("I2").Select 
Selection.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove 

Range("A1:I1").Select 
ActiveSheet.Range("A1:i1").AutoFilter Field:=9, Criteria1:="FALSE" 
Range("I2").Select 
ActiveCell.FormulaR1C1 = _ 
"=IF(R[-1]C[-2]=""City Link"",HYPERLINK(""http://www.packagetrackr.com/track/citylink/""&R[-1]C[-1]&""""))" 
    Range("I2").Select 
Selection.AutoFill Destination:=Range("i2:i" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy 

Range("A1:I1").Select 
ActiveSheet.Range("A1:i1").AutoFilter Field:=9, Criteria1:="FALSE" 
Range("i2").Select 
ActiveCell.FormulaR1C1 = _ 
    "=IF(R[-1]C[-2]=""hermes"",HYPERLINK(""http://www.hermes-europe.co.uk/tracker.html?trackingNumber=""&R[-1]C[-1]&""&Postcode=""&R[-1]C[-4]&R[-1]C[-3]&""""))" 
    Range("I2").Select 
Selection.AutoFill Destination:=Range("i2:i" & Range("A" & Rows.Count).End(xlUp).Row), Type:=xlFillCopy 

루핑 더 좋을까요?

필터링 된 선택 항목을 자동 완성 할 수 없습니다.

제가 G가 무엇 열에 따라 열 H. 약 20 열 G의 값 및 다른 데이터를 다른 하이퍼 링크 URL 열 I.

EG에 적용되어야한다.

셀 G2 : 시티 링크

세포 H2 : 12345

하면 셀 G2 = 도시 링크, 다음 열 I2 = HYPERLINK ("http://www.packagetrackr.com/track/citylink/"& H2 & ")

어떤 제안

Answer 1

루프를 완료하는 데 루프를 사용할 수 있습니다.

---

오프셋

---

 
    Option explicit 

    Dim oCell as range 

    For each ocell in range(***) 

    if ocell = "dpd" then ocell.offset(0,1) = "hyperlink" 
    if ocell = "City link" then ocell.offset(0,1) = "hyperlink" 
    if ocell = "hermes" then ocell.offset(0,1) = "hyperlink" 


    Next 

3,516,멀리 Ocell 당신의 시킴으로 빨리 위치에서 열 수 있습니다.

도움이 되었기를 바랍니다.