단어 변환 매크로 작성에 대해 궁금합니다.

VBA
작성자
플라세타스
작성일
2022-10-29 09:40
조회
73
엑셀버전 : 엑셀2019

운영체제 : 윈도우11

질문 요약 : 1. A 단어를 지정된 B 단어로 바꾸고 싶어요.
2. A+B 단어를 지정된 A+B 단어로 바꾸고 싶어요.

선생님들 안녕하세요.
다름 아니라 위의 예시와 같이 번역을 하는 방법이 궁금하여 여쭙습니다.
■목표
1. 좌측 작업표의 한국어에 맞는 일본어를 우측 단어표에서 검색하여 기입
2. '김치된장찌개'의 경우 우측 단어표에 완전 일치하는 단어가 없기에
   '김치'와 '된장찌개'를 합성해서 기입
3. '된장찌개'의 경우 우측 단어표에 완전 일치하는 단어가 있기에 그대로 기입
위 내용과 같이 작업을 하고 싶은데 어떻게 할 수 있는 방법이 있을까요?
구글 스프레드를 사용한 번역 함수도 있지만
번역이 신통치 않아서 제가 직접 작성한 단어표 위주로 단어 번역을 하는게 목적입니다.
매크로를 쓸 줄 몰라서 여기저기 영상들 보고 다닌지 일주일 째인데
재고관리나 데이터 통합 같은 강의들이 많아서 어떻게 해야 할지 전혀 모르겠습니다...
이런 작업에 꽤나 시간을 들이고 있어서
정말 도움이 필요한 상황이라 이렇게 글 남겨 봅니다...
스크랩
공유
전체 2

  • 2022-10-29 12:06
    채택된 답변

    @플라세타스 님 VBA로 하는게 좋겠습니다..

    Sub 한글을일본어로변환()
    
    Application.ScreenUpdating = False
    
        Set 변환대상범위 = Range("B8", Cells(Rows.Count, "B").End(xlUp))    
        변환대상범위.Offset(0, 1) = 변환대상범위.Value   'b열을 c열에 대입했음.    
        Set 변환대상범위 = 변환대상범위.Offset(0, 1)     'c열을 변환대상으로 설정
        
        
        Set 변환할한글단어 = Range("E8", Cells(Rows.Count, "E").End(xlUp))    
        For Each r In 변환할한글단어    
            변환대상범위.Replace r.Value, r.Next.Value    
        Next
    
    Application.ScreenUpdating = True
    
    
    End Sub
    

    참고하세요

     

    첨부파일 : 복사본-테스트.xlsm


    • 2022-10-29 12:16

      @마법의손 님 와 정말 닉네임 그대로시네요... 깜짝 놀랐습니다. 정말 감사 드립니다!


전체 8,506
번호 카테고리 제목 작성자 작성일 추천 조회
알림
「🎉 올해의 책 투표」 '진짜쓰는 실무엑셀' 이 후보에 선정되었습니다! (👉깜짝 이벤트) (51)
오빠두엑셀 | 2022.11.07 | 추천 23 | 조회 7824
오빠두엑셀 2022.11.07 23 7824
공지사항 함수/공식
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (105)
오빠두엑셀 | 2021.10.28 | 추천 135 | 조회 8505
오빠두엑셀 2021.10.28 135 8505
44955 함수/공식
New 따로 수정이나 새로고침 하지않아도 실시간으로 계산값이 변경되는 날짜계산기 (1)
KangU | 17:45 | 추천 0 | 조회 7
KangU 17:45 - 7
44953 함수/공식
New 엑셀 날짜 함수 사용시 날짜 표시 안되는 이슈 첨부파일 (1)
junee562 | 16:59 | 추천 0 | 조회 13
junee562 16:59 - 13
44950 함수/공식
New vlookup을 활용한 여러 조건 시 결과값을 불러오고 싶습니다. 엑셀파일 (1)
DBOX | 16:50 | 추천 0 | 조회 15
DBOX 16:50 - 15
44946 함수/공식
New 정산금액을 공문에 참조하려고 하는데 n/a가 뜹니다. 엑셀파일 (3)
야근쟁이 | 16:17 | 추천 0 | 조회 18
야근쟁이 16:17 - 18
44941 함수/공식
New COUNT 함수 관련 2가지 조건의 수를 구하고 싶습니다. 첨부파일 (2) 답변완료
2039290jf1 | 14:11 | 추천 0 | 조회 24
2039290jf1 14:11 - 24
44940 VBA
New 엑셀 매크로 AutoFill 관련 문의 (1)
원더우먼 | 12:53 | 추천 0 | 조회 28
원더우먼 12:53 - 28
44938 기능/도구
New 온라인그림 선택이 안되요. 첨부파일 (1)
굿걸♡ | 11:57 | 추천 0 | 조회 21
굿걸♡ 11:57 - 21
44937 함수/공식
New 다중조건 if 관련 문의 (2) 답변완료
지도현 | 11:50 | 추천 0 | 조회 37
지도현 11:50 - 37
44935 함수/공식
New 엑셀 2007,2010 오프라인 도움말파일 구해요
나야 | 11:41 | 추천 0 | 조회 19
나야 11:41 - 19
44932 VBA
New VBA FIND를 통해서 일치하는 값 찾을때까지 검색 후 만약에 없으면 해당셀에 찾는값 없음 넣기
고바마 | 11:02 | 추천 0 | 조회 28
고바마 11:02 - 28
44930 VBA
New vba를 이용하여 수식 결과값 추출 시트를 만들고 싶습니다. 첨부파일 (1)
코모 | 10:26 | 추천 0 | 조회 39
코모 10:26 - 39
44929 함수/공식
New [관심]!!경우의수 적용하여, 값 판단법 좀 알려주세요..ㅜ 엑셀파일첨부파일 (5)
ak스타 | 10:22 | 추천 0 | 조회 28
ak스타 10:22 - 28
44927 함수/공식
New 다중 sumifs 기타 값 계산 엑셀파일첨부파일 (2) 답변완료
선크 | 10:18 | 추천 0 | 조회 30
선크 10:18 - 30
44915 VBA
New 괄호안의 숫자 합계 구하기 VBA 또는 수식 엑셀파일첨부파일 (4) 답변완료
007 | 2022.11.27 | 추천 0 | 조회 60
007 2022.11.27 - 60
44913 함수/공식
New 함수 결과값이 이상합니다 첨부파일 (1)
엄기용 | 2022.11.27 | 추천 0 | 조회 31
엄기용 2022.11.27 - 31
44907 함수/공식
New 시간만 구하는 방법.. 첨부파일 (3)
candle0723 | 2022.11.27 | 추천 0 | 조회 36
candle0723 2022.11.27 - 36
44904 문서서식
New 표시형식 문의 드립니다 (1)
거꾸로문 | 2022.11.26 | 추천 0 | 조회 28
거꾸로문 2022.11.26 - 28
44901 VBA
New 안녕하세요. vba로 단위 변환 질문드립니다.
Jes | 2022.11.26 | 추천 0 | 조회 36
Jes 2022.11.26 - 36
44899 차트/그래프
New 슬라이서 서식을 변경 한 후, 다른 엑셀 파일에서도 사용할 수 있는 방법이 있을까요?
twou**** | 2022.11.26 | 추천 0 | 조회 27
twou**** 2022.11.26 - 27
44896 VBA
New 여러 문자들 중 참조 문자에 있는 값 찾기 vba 엑셀파일첨부파일 (4)
007 | 2022.11.26 | 추천 0 | 조회 61
007 2022.11.26 - 61
44892 기능/도구
New 필터랑 행 숨기기 된 상태에서 자동채우기 안 되나요?
오리파 | 2022.11.25 | 추천 0 | 조회 25
오리파 2022.11.25 - 25
44887 함수/공식
New 다중조건을 만족하는 여러개의 값 구하는 함수식 문의드립니다. (1)
함수시르미 | 2022.11.25 | 추천 0 | 조회 53
함수시르미 2022.11.25 - 53
44886 VBA
New 엑세스 및 엑셀 연동 VBA INSERT구문 질문 엑셀파일
H.B | 2022.11.25 | 추천 0 | 조회 33
H.B 2022.11.25 - 33
44885 함수/공식
New 엑셀로 전투 시뮬레이션을 만들 수 있을까요? (3)
네버 | 2022.11.25 | 추천 0 | 조회 53
네버 2022.11.25 - 53
44881 VBA
New VBA 링크 설정시 현재시트로 설정하는법 첨부파일 (2)
엑셀왕이될거야22 | 2022.11.25 | 추천 0 | 조회 31
엑셀왕이될거야22 2022.11.25 - 31
44878 함수/공식
New 인덱스 매치 시 범위 합계구하기 엑셀파일 (3) 답변완료
야근쟁이 | 2022.11.25 | 추천 0 | 조회 47
야근쟁이 2022.11.25 - 47
44877 함수/공식
New 조건1,조건2를 만족할때 결과값을 가지고 오는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 51
보연아빠 2022.11.25 - 51
44876 함수/공식
New 같은 텍스트가 있을때 순번을 매기는 방법 첨부파일 (2)
보연아빠 | 2022.11.25 | 추천 0 | 조회 45
보연아빠 2022.11.25 - 45
44875 VBA
New db 배열안에 날자 데이터가 포함되어 있는데 바로 전에 가장 가까운 날자를 선택할수 있을까요? 첨부파일
후훗 | 2022.11.25 | 추천 0 | 조회 29
후훗 2022.11.25 - 29
44873 함수/공식
New 바코드 찍었을때 번호 하나마다 값 불러오기 엑셀파일첨부파일
김영준 | 2022.11.25 | 추천 0 | 조회 34
김영준 2022.11.25 - 34