여러 단어 찾기 및 바꾸기

Question

&은 목록에서 100 단어를 하나의 명령과 동의어로 대체합니다 (예 : "이동", "사랑", "로맨스", "먼", "외제", "주제"등이 포함 된 단어로 이동하십시오.

Answer 1

여기 시작하는 작은 샘플입니다.

수정 # 1 :

말은 Sheet1의 데이터 및 는 시트 2이 및 열 B.이 매크로 의지 입력 테이블과 적용에 변환 표가 포함되어 포함되어 있습니다 :

Sub xLator2() 
    Dim s1 As Worksheet, s2 As Worksheet 
    Dim N As Long, i As Long 
    Dim from(), too() 
    Set s1 = Sheets("Sheet1") ' contains the data 
    Set s2 = Sheets("Sheet2") ' contains the translation table 

s2.Activate 

    N = Cells(Rows.Count, 1).End(xlUp).Row 
    ReDim from(1 To N) 
    ReDim too(1 To N) 
    For i = 1 To N 
     from(i) = Cells(i, 1).Value 
     too(i) = Cells(i, 2).Value 
    Next i 

s1.Activate 

    For i = LBound(from) To UBound(from) 
     Cells.Replace What:=from(i), Replacement:=too(i) 
    Next i 
End Sub 

Answer 2

Excel VBA를 사용해야 할 것입니다. 이. 또는 Perl을 알고 있으면 Perl로 XLS 파일을 읽고 쓸 수 있습니다. Excel VBA에 대해서는 잘 모르기 때문에 Perl을 사용합니다.

Sub xLator() 
    from = Array("go", "love", "distant") 
    too = Array("move", "romance", "remote") 
    For i = LBound(from) To UBound(from) 
     Cells.Replace What:=from(i), Replacement:=too(i) 
    Next i 
End Sub 

는 당연히 당신이 당신의 요구를 충족하고이 요구 사항 인 경우 아마도 범위를 제한하기 위해 번역 배열을 확장합니다 :