Excel에서 Vlookup을 사용할 때 조회 셀의 원본 서식을 복사하려면 어떻게 해야 하나요?

이전 기사에서 우리는 Excel에서 vlookup 값을 할 때 배경색을 유지하는 방법에 대해 논의했습니다. 이번 글에서는 Excel에서 Vlookup을 수행할 때 결과 셀의 모든 셀 서식을 복사하는 방법을 소개하겠습니다. 아래 단계를 따르세요.

사용자 정의 함수를 사용하여 Excel에서 Vlookup을 사용할 때 원본 서식 복사하기

사용자 정의 함수를 사용하여 Excel에서 Vlookup을 사용할 때 원본 서식 복사하기

아래 스크린샷에 표시된 것처럼 테이블이 있다고 가정합니다. 이제 지정된 값(열 E에 있는)이 열 A에 있는지 확인하고, 해당 값과 함께 열 C의 서식을 반환해야 합니다. 이를 달성하려면 아래 단계를 따르세요.

1. 찾고자 하는 값을 포함한 워크시트에서 시트 탭을 마우스 오른쪽 버튼으로 클릭하고 상황에 맞는 메뉴에서 코드 보기 를 선택합니다. 스크린샷 참조:

2. 열리는 Microsoft Visual Basic for Applications 창에서 아래 VBA 코드를 코드 창에 복사하세요.

VBA 코드 1: 서식과 함께 값을 Vlookup하고 반환하기

Sub Worksheet_Change(ByVal Target As Range)
'Update by Extendoffice 20211203
    Dim I As Long
    Dim xKeys As Long
    Dim xDicStr As String
    On Error Resume Next
    Application.ScreenUpdating = False
    Application.CutCopyMode = False
    xKeys = UBound(xDic.Keys)
    If xKeys >= 0 Then
        For I = 0 To UBound(xDic.Keys)
            xDicStr = xDic.Items(I)
            If xDicStr <> "" Then
                Set xRg = Application.Range(xDicStr)
                xRg.Copy
                Range(xDic.Keys(I)).PasteSpecial xlPasteFormats
            Else
                Range(xDic.Keys(I)).Interior.Color = xlNone
            End If
        Next
        Set xDic = Nothing
    End If
    Application.ScreenUpdating = True
    Application.CutCopyMode = True
End Sub

3. 그런 다음 삽입 > 모듈 을 클릭하고 아래 VBA 코드 2를 모듈 창에 복사합니다.

VBA 코드 2: 서식과 함께 값을 Vlookup하고 반환하기

Public xDic As New Dictionary
'Update by Extendoffice 20211203
Function LookupKeepFormat(ByRef FndValue, ByRef LookupRng As Range, ByRef xCol As Long)
    Dim xFindCell As Range
    On Error Resume Next
    Application.ScreenUpdating = False
    Set xFindCell = LookupRng.Find(FndValue, , xlValues, xlWhole)
    If xFindCell Is Nothing Then
        LookupKeepFormat = " "
        xDic.Add Application.Caller.Address, " "
    Else
        LookupKeepFormat = xFindCell.Offset(0, xCol - 1).Value
        xDic.Add Application.Caller.Address, xFindCell.Offset(0, xCol - 1).Address(External:=True)
    End If
    Application.ScreenUpdating = True
End Function

4. 도구 > 참조 를 클릭합니다. 그런 다음 참조 – VBAProject 대화 상자에서 Microsoft Script Runtime 상자를 체크합니다. 스크린샷 참조:

5. Alt + Q 키를 눌러 Microsoft Visual Basic for Applications 창을 종료합니다.

6. 조회 값 옆의 빈 셀을 선택하고 수식 =LookupKeepFormat(E2,$A$1:$C$8,3) 을 수식 표시줄 에 입력한 후 Enter 키를 누릅니다.

참고: 수식에서 E2 는 조회할 값을 포함하고 있으며, $A$1:$C$8 은 테이블 범위이고, 숫자 3은 반환할 해당 값이 테이블의 세 번째 열에 위치함을 의미합니다. 필요에 따라 변경하세요.

7. 첫 번째 결과 셀을 선택한 상태로 유지하고 채우기 핸들을 아래로 드래그하여 아래 스크린샷에 표시된 대로 모든 결과와 그 서식을 가져옵니다.

Kutools AI로 엑셀의 마법을 풀다

• 스마트 실행: 셀 작업 수행, 데이터 분석 및 차트 생성 - 간단한 명령어로 모든 것을 처리합니다.
• 사용자 정의 수식: 작업을 간소화하기 위한 맞춤형 수식을 생성합니다.
• VBA 코딩: 손쉽게 VBA 코드를 작성하고 실행합니다.
• 수식 해석: 복잡한 수식도 쉽게 이해할 수 있습니다.
• 텍스트 번역: 스프레드시트 내 언어 장벽을 허물어 보세요.

AI 기반 도구로 엑셀 활용 능력을 강화하세요. 지금 다운로드하여 그 어느 때보다 높은 효율성을 경험해 보세요!

관련 기사:

• Excel에서 Vlookup을 사용하여 배경색과 함께 조회 값을 반환하는 방법은 무엇인가요?
• Excel에서 Vlookup을 사용하여 날짜 형식 대신 숫자를 반환하는 방법은 무엇인가요?
• Excel에서 Vlookup과 합계를 사용하는 방법은 무엇인가요?
• Excel에서 인접하거나 다음 셀에 있는 Vlookup 반환값을 얻으려면 어떻게 해야 하나요?
• Excel에서 Vlookup 값을 조회하고 참/거짓 또는 예/아니오를 반환하려면 어떻게 해야 하나요?