반복 처리는 I는 다음과 같다 데이터 세트가 기능

Question

를 장착하여 다음

핀

1. 2Ard -7-
2. 2Ard-99
3. 1RPI 35
4. 1RPI -34
5. 1RPI-39
6. 1RPI-38

저는 이것을 반복하고 각 셀의 부분을 다른 지정으로 바꾸려고합니다. 다음은 지금까지 가지고있는 코드입니다.

Dim CompPin() As String 
Dim AutoPin() As String 
Dim Item As Variant 

CompPin() = Split("1ARD 2ARD 1RPI 2RPI") 
AutoPin() = Split("PB1A PC1A PF1A PF2B") 

For Each Item In CompPin 
    Worksheets("Demo").Columns("D").Replace What:=CompPin(Item), Replacement:=AutoPin(Item), LookAt:=xlPart 
Next 

이 코드를 실행하면 형식이 일치하지 않습니다. 모든 통찰력이 도움이 될 것입니다.

Answer 1

는이

CompPin() = Split("1ARD 2ARD 1RPI 2RPI") 
AutoPin() = Split("PB1A PC1A PF1A PF2B") 

For n = 0 To UBound(CompPin) 
    Worksheets("Demo").Columns("D").Replace What:=CompPin(n), Replacement:=AutoPin(n), LookAt:=xlPart 
Next 

Answer 2

대안은 "이중 분할"이 될 수 시도해보십시오 GarminPin 무엇

Sub main() 
    Dim CompAutoPin() As String 
    Dim Item As Variant 

    CompAutoPin() = Split("1ARD-PB1A 2ARD-PC1A 1RPI-PF1A 2RPI-PF2B")  
    For Each Item In CompAutoPin 
     Worksheets("Demo").Columns("D").Replace What:=Split(Item, "-")(0), Replacement:=Split(Item, "-")(1), LookAt:=xlPart 
    Next Item 
End Sub