특졍열을 특정값으로 일괄변경하기

작성자
심슨바트심슨
작성일
2023-01-24 01:30
조회
52
엑셀버전 : M365

운영체제 : 윈도우10

질문 요약 : 엑셀 특정열을 특정값으로 일괄변경하기

안녕하세요, 혼자 이것저것 찾아보고했는데 잘 모르겠어서 문의드립니다.

작업 배경은 이렇습니다. 매일 변경된 DB를 다운로드하여 원하는 형태로 가공합니다. 단순 반복된 업무이다보니 자동화하고 싶습니다. 일일히 복사 붙여넣기는 번거로운데 VBA로 하는게 좋은지, 매크로로 하는게 좋은지도 판단이 서지 않아서요ㅜ

  1. 특정 열을 특정 값으로 모두 변경하기 (2가지 경우)
    1. L열 값을 모두 “상세정보참조”로 변경
    2. CE열은 H열 값으로 변경
  1. 상품 상세설명 (O열) 앞뒤에 특정 문장 추가하기
    1. 안녕하세요, 반갑습니다 (앞 문장)
    2. 당사 제품에 관심 가져주셔서 감사합니다. (끝 문장)

2번의 경우 CONCATENATE함수나 “&”를 이용해서 이어붙였습니다. O열 값 앞뒤로 붙는 값은 항상 동일합니다. 이렇게 매번 일정한 값을 붙여넣기하려니 무언가 더 좋은 방법이 있지 않을까해서 고견을 여쭙습니다.

스크랩
공유
전체 2

  • 2023-01-24 09:47
    채택된 답변

    @심슨바트심슨 님 간단하게 작성한 매크로입니다.

    Sub Modify1st()
        Dim iLastRow As Long, vData As Variant, i As Long
        
        ActiveSheet.AutoFilterMode = False
        iLastRow = Cells(Rows.Count, 1).End(xlUp).Row
        
        Range("L2:L" & iLastRow) = "상세정보참조"
        
        Range("CE2:CE" & iLastRow).FormulaLocal = "=H2"
        
        vData = Range("O1:O" & iLastRow).Value2
        For i = 2 To UBound(vData, 1)
            If Left(vData(i, 1), 13) <> "안녕하세요, 반갑습니다." Then
                vData(i, 1) = "안녕하세요, 반갑습니다." & vbNewLine & vData(i, 1) & vbNewLine & "당사 제품에 관심을 가져주셔서 감사합니다."
            End If
        Next i
        Range("O1:O" & iLastRow) = vData
    
        MsgBox "다운로드 한 자료를 정리했습니다."
    
    End Sub

     

    첨부파일 : excelUploadProductDefault.xlsm


    • 2023-01-24 11:16

      @원조백수 님 우와 정말 너무 감사드립니다. 엑셀의 세상은 넓고 무궁무진한 가능성을 가지고 있는 것 같습니다. 매일 조금씩이라도 공부해야겠다 마음 먹는데 참 안되네요. 우문의 현답을 주셔서 감사드립니다. 새해 복 많이 받으세요! 보내주신 코드 하나씩 보면서 공부하겠습니다.


전체 9,368
번호 카테고리 제목 작성자 작성일 추천 조회
알림
[🔥선착순 판매] 2023년 엑셀 공부, "8시간 로드맵"으로 마스터하세요! (11)
오빠두엑셀 | 2023.01.25 | 추천 6 | 조회 3618
오빠두엑셀 2023.01.25 6 3618
공지사항 공지사항
⭐ [더 나은 커뮤니티 문화를 위한 Q&A 글 작성 규칙] ⭐ (123)
오빠두엑셀 | 2021.10.28 | 추천 160 | 조회 9764
오빠두엑셀 2021.10.28 160 9764
48628 VBA
New VBA 재고 관리 중 Delete_invetory()에러
윤원섭 | 11:15 | 추천 0 | 조회 18
윤원섭 11:15 - 18
48626 함수/공식
New 함수로 범위를 지정할때... 첨부파일 (1)
캬쿠 | 11:05 | 추천 0 | 조회 22
캬쿠 11:05 - 22
48624 구글시트
New 구글 스프레드시트 대시보드에서 입력한 기간에 맞는 데이터(열)만 나오게 하는 방법이 궁금합니다. 첨부파일
12호기기기 | 11:00 | 추천 0 | 조회 15
12호기기기 11:00 - 15
48622 VBA
New VBA로 만든 함수중 String 변수의 data값이 너무커서 결과 값이 #VALUE! 나와요 (1)
짜이용 | 10:55 | 추천 0 | 조회 12
짜이용 10:55 - 12
48618 함수/공식
New 표 안에 입력된 값의 xy방향 속성(표제목(?))이 순서대로 자동 출력되게 하고 싶습니다. 엑셀파일첨부파일 (1)
오이군 | 10:43 | 추천 0 | 조회 18
오이군 10:43 - 18
48615 함수/공식
New 행과 열이 포함된 특정 숫자의 개수 카운팅 방법 (휴무일 카운팅) 엑셀파일첨부파일 (1)
이덕삼 | 10:16 | 추천 0 | 조회 19
이덕삼 10:16 - 19
48613 함수/공식
New Ctrl+Shift+Enter를 입력했는데 행번호가 자동 증가하지 않습니다. (1)
한잔의커피 | 10:05 | 추천 0 | 조회 23
한잔의커피 10:05 - 23
48611 함수/공식
New 현재 시간 이전에 들어온 품목 횟수 구하는 방법 첨부파일 (1)
츄리 | 09:31 | 추천 0 | 조회 16
츄리 09:31 - 16
48605 기능/도구
New 블록 지정한 문자만 색깔 변경하는 방법 (2)
욕심없는성공v | 08:39 | 추천 0 | 조회 27
욕심없는성공v 08:39 - 27
48604 VBA
New 엑셀 셀값 파일명 지정 첨부파일
실무자 | 08:21 | 추천 0 | 조회 21
실무자 08:21 - 21
48603 함수/공식
New 하나의 셀에 있는 데이터를 모두 다른 셀로 나누고 싶어요 (2) 답변완료
바닐라사랑해 | 07:52 | 추천 0 | 조회 28
바닐라사랑해 07:52 - 28
48597 함수/공식
New 오늘 날짜 보다 큰 날짜들 중에서 가장 오른쪽 끝에 기재되어 있는 날짜의 열번호를 찾는 수식을 만들었습니다만.. 첨부파일 (5) 답변완료
| 01:46 | 추천 0 | 조회 30
01:46 - 30
48595 대시보드
New 주차별 증감 분석 데이터 만들기 엑셀파일첨부파일
엑셀고수왕소취 | 01:27 | 추천 0 | 조회 24
엑셀고수왕소취 01:27 - 24
48594 VBA
New 데이터 정렬 질문드립니다. 엑셀파일첨부파일 (2) 답변완료
qzzzzzqq | 00:31 | 추천 0 | 조회 25
qzzzzzqq 00:31 - 25
48586 VBA
New 특정 부분 가져오는법 엑셀파일
songa | 2023.01.31 | 추천 0 | 조회 35
songa 2023.01.31 - 35
48576 함수/공식
New 해당연도 설날, 추석 알려주기 (2)
엑셀초보랍니다 | 2023.01.31 | 추천 0 | 조회 30
엑셀초보랍니다 2023.01.31 - 30
48573 함수/공식
New 누적, 주간별 불량율 구하기 / 전년 대비 불량율 차트 만들기 엑셀파일첨부파일 (1)
엑셀렙업용 | 2023.01.31 | 추천 0 | 조회 31
엑셀렙업용 2023.01.31 - 31
48572 기능/도구
New 엑셀 파일을 sql로 변환하는 방법 궁금해요 (2)
단군 | 2023.01.31 | 추천 0 | 조회 30
단군 2023.01.31 - 30
48567 함수/공식
New 조건부 서식 문의 엑셀파일첨부파일 (2)
최치곤 | 2023.01.31 | 추천 0 | 조회 33
최치곤 2023.01.31 - 33
48563 함수/공식
New 다중조건 만족하는 값 가져오기.. 이거 아무리해도 안되네요.. ㅜㅜ 엑셀파일 (6) 답변완료
주니수합 | 2023.01.31 | 추천 0 | 조회 44
주니수합 2023.01.31 - 44
48560 함수/공식
New 월별 이익계산하기 질문 드리빈다. 첨부파일 (2)
에공 | 2023.01.31 | 추천 0 | 조회 24
에공 2023.01.31 - 24
48559 VBA
New 인쇄폼관련 질문 드립니다. 엑셀파일첨부파일 (2)
최승호 | 2023.01.31 | 추천 0 | 조회 28
최승호 2023.01.31 - 28
48556 함수/공식
New 엑셀초보ㅜㅜ 등급표 작성관련 도움 부탁드립니다! 엑셀파일첨부파일 (4)
엑셀초보등장 | 2023.01.31 | 추천 0 | 조회 27
엑셀초보등장 2023.01.31 - 27
48552 VBA
New (심각)매크로 실행시 엑셀 응답없음 및 엑셀 속도 느림 첨부파일 (1) 답변완료
실무자 | 2023.01.31 | 추천 0 | 조회 32
실무자 2023.01.31 - 32
48544 함수/공식
New 현재 시간에 가장 가까운 시간을 불러오는 방법이 있을까요? 첨부파일 (2)
열심맨 | 2023.01.31 | 추천 0 | 조회 44
열심맨 2023.01.31 - 44
48541 함수/공식
New IF AND 중첩 도움 부탁드립니다! 첨부파일 (7)
Nalae | 2023.01.31 | 추천 0 | 조회 59
Nalae 2023.01.31 - 59
48540 VBA
New .xlsm에서 실행한 매크로 결과를 .xlsx로 저장할 때 오류 해결법 (2) 답변완료
나지 | 2023.01.31 | 추천 0 | 조회 37
나지 2023.01.31 - 37
48538 함수/공식
New 엑셀 구글스프레드시트 질문 첨부파일 (5) 답변완료
Hwan | 2023.01.31 | 추천 0 | 조회 49
Hwan 2023.01.31 - 49
48536 함수/공식
New 엑셀 데이터 채우기 첨부파일 (1)
쨈빛 | 2023.01.31 | 추천 0 | 조회 33
쨈빛 2023.01.31 - 33
48529 함수/공식
New 수식이 나타내는 바가 동일한데 결과값이 달라지는 요상한 오류... 첨부파일 (2)
| 2023.01.31 | 추천 0 | 조회 46
2023.01.31 - 46