วิธีคัดลอกการจัดรูปแบบแหล่งที่มาของเซลล์การค้นหาเมื่อใช้ Vlookup ใน Excel

ในบทความก่อนหน้านี้เราได้พูดถึงการรักษาสีพื้นหลังเมื่อค่า vlookup ใน Excel ในบทความนี้เราจะแนะนำวิธีการคัดลอกการจัดรูปแบบเซลล์ทั้งหมดของเซลล์ผลลัพธ์เมื่อทำ Vlookup ใน Excel กรุณาดำเนินการดังนี้

คัดลอกการจัดรูปแบบแหล่งที่มาเมื่อใช้ Vlookup ใน Excel ด้วยฟังก์ชันที่ผู้ใช้กำหนดเอง

คัดลอกการจัดรูปแบบแหล่งที่มาเมื่อใช้ Vlookup ใน Excel ด้วยฟังก์ชันที่ผู้ใช้กำหนดเอง

สมมติว่าคุณมีตารางตามภาพด้านล่างที่แสดง ตอนนี้คุณต้องตรวจสอบว่าค่าที่ระบุ (ในคอลัมน์ E) อยู่ในคอลัมน์ A หรือไม่และส่งคืนค่าที่สอดคล้องกันด้วยการจัดรูปแบบในคอลัมน์ C โปรดทำดังนี้เพื่อให้บรรลุ

1. ในแผ่นงานมีค่าที่คุณต้องการ vlookup ให้คลิกขวาที่แท็บแผ่นงานแล้วเลือก ดูรหัส จากเมนูบริบท ดูภาพหน้าจอ:

2. ในการเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน โปรดคัดลอกโค้ด 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 คลิก เครื่องมือ > อ้างอิง. จากนั้นตรวจสอบไฟล์ รันไทม์ Microsoft Script กล่องใน เอกสารอ้างอิง - VBAProject กล่องโต้ตอบ ดูภาพหน้าจอ:

5 กด อื่น ๆ + Q ปุ่มเพื่อออกจากไฟล์ Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

6. เลือกเซลล์ว่างที่อยู่ติดกับค่าการค้นหาจากนั้นป้อนสูตร =LookupKeepFormat(E2,$A$1:$C$8,3) เข้าไปใน สูตรบาร์แล้วกดปุ่ม เข้าสู่ กุญแจ

หมายเหตุ: ในสูตร E2 มีค่าที่คุณจะค้นหา $ ก $ 1: $ C $ 8 คือช่วงของตารางและตัวเลข 3 หมายความว่าค่าที่สอดคล้องกันที่คุณจะส่งคืนจะอยู่ในคอลัมน์ที่สามของตาราง โปรดเปลี่ยนตามที่คุณต้องการ

7. เลือกเซลล์ผลลัพธ์แรกจากนั้นลาก Fill Handle ลงเพื่อให้ได้ผลลัพธ์ทั้งหมดพร้อมกับการจัดรูปแบบตามที่แสดงภาพด้านล่าง

ปลดล็อก Excel Magic ด้วย Kutools AI

• การดำเนินการอย่างชาญฉลาด: ดำเนินการกับเซลล์ วิเคราะห์ข้อมูล และสร้างแผนภูมิ ทั้งหมดนี้ขับเคลื่อนด้วยคำสั่งง่ายๆ
• สูตรที่กำหนดเอง: สร้างสูตรที่ปรับแต่งโดยเฉพาะเพื่อปรับปรุงขั้นตอนการทำงานของคุณ
• การเข้ารหัส VBA: เขียนและใช้งานโค้ด VBA ได้อย่างง่ายดาย
• การตีความสูตร: เข้าใจสูตรที่ซับซ้อนได้อย่างง่ายดาย
• การแปลข้อความ: ทลายกำแพงด้านภาษาภายในสเปรดชีตของคุณ

ปรับปรุงความสามารถ Excel ของคุณด้วยเครื่องมือที่ขับเคลื่อนด้วย AI ดาวน์โหลดเดี๋ยวนี้ และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน!

บทความที่เกี่ยวข้อง:

• วิธี vlookup และส่งคืนสีพื้นหลังพร้อมกับค่าการค้นหาใน Excel
• วิธี vlookup และรูปแบบวันที่ส่งคืนแทนตัวเลขใน Excel
• วิธีใช้ vlookup และ sum ใน Excel
• วิธีการส่งคืนค่า vlookup ในเซลล์ที่อยู่ติดกันหรือถัดไปใน Excel
• วิธีการ vlookup ค่าและส่งคืนจริงหรือเท็จ / ใช่หรือไม่ใช่ใน Excel?