วิธีคัดลอกเฉพาะเส้นขอบของช่วงที่เลือกใน Excel

ในขณะที่ใช้ Microsoft Excel คุณสามารถคัดลอกเฉพาะค่าของเซลล์การจัดรูปแบบเซลล์สูตรเซลล์และอื่น ๆ จากช่วงที่มีฟังก์ชัน Paste Special ได้อย่างง่ายดาย แต่คุณเคยพยายามคัดลอกเฉพาะสไตล์เส้นขอบจากช่วงใน Excel หรือไม่? บทความนี้จะแสดงวิธีการคัดลอกเฉพาะขอบของช่วงที่เลือกไปยังช่วงใหม่ใน Excel

คัดลอกเฉพาะเส้นขอบของช่วงที่เลือกด้วยรหัส VBA

คัดลอกเฉพาะเส้นขอบของช่วงที่เลือกด้วยรหัส VBA

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

1 กด อื่น ๆ + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง

2 ใน Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่างคลิก สิ่งที่ใส่เข้าไป > โมดูลจากนั้นคัดลอกและวางโค้ด VBA ด้านล่างลงในหน้าต่างรหัส

รหัส VBA: คัดลอกเฉพาะเส้นขอบของช่วงที่เลือกใน Excel

Sub CopyBorders()
'Updated by Extendoffice 20211203
    Dim xRg, yRg As Range
    On Error Resume Next
    
    Set xRg = Application.InputBox("Select Range with Borders to Copy...", "Kutools For Excel", , , , , , 8)
    Set yRg = Application.InputBox("Select Cell to Apply Borders to range..", "Kutools For Excel", , , , , , 8)
    
    
    With yRg.Borders(xlEdgeLeft)
        .LineStyle = xRg.Borders(xlEdgeLeft).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeLeft).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeLeft).TintAndShade
        .Weight = xRg.Borders(xlEdgeLeft).Weight

    End With
    With yRg.Borders(xlEdgeTop)
        .LineStyle = xRg.Borders(xlEdgeTop).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeTop).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeTop).TintAndShade
        .Weight = xRg.Borders(xlEdgeTop).Weight
    End With
    With yRg.Borders(xlEdgeBottom)
        .LineStyle = xRg.Borders(xlEdgeBottom).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeBottom).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeBottom).TintAndShade
        .Weight = xRg.Borders(xlEdgeBottom).Weight
    End With
    With yRg.Borders(xlEdgeRight)
        .LineStyle = xRg.Borders(xlEdgeRight).LineStyle
        .ColorIndex = xRg.Borders(xlEdgeRight).ColorIndex
        .TintAndShade = xRg.Borders(xlEdgeRight).TintAndShade
        .Weight = xRg.Borders(xlEdgeRight).Weight
    End With

    With yRg.Borders(xlInsideHorizontal)
        .LineStyle = xRg.Borders(xlInsideHorizontal).LineStyle
        .ColorIndex = xRg.Borders(xlInsideHorizontal).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideHorizontal).TintAndShade
        .Weight = xRg.Borders(xlInsideHorizontal).Weight
    End With
    With yRg.Borders(xlInsideVertical)
        .LineStyle = xRg.Borders(xlInsideVertical).LineStyle
        .ColorIndex = xRg.Borders(xlInsideVertical).ColorIndex
        .TintAndShade = xRg.Borders(xlInsideVertical).TintAndShade
        .Weight = xRg.Borders(xlInsideVertical).Weight
    End With
End Sub

3 กด F5 กุญแจสำคัญในการเรียกใช้รหัส ในครั้งแรกที่โผล่ขึ้นมา Kutools สำหรับ Excel โปรดเลือกช่วงที่มีเส้นขอบที่คุณต้องการคัดลอกจากนั้นคลิกที่ไฟล์ OK ปุ่ม

4. ในวินาทีที่ Kutools สำหรับ Excel โปรดเลือกเซลล์ที่จะใช้เส้นขอบที่คัดลอกแล้วคลิก OK ปุ่ม. ดูภาพหน้าจอ:

จากนั้นคุณจะเห็นว่ามีเพียงสไตล์เส้นขอบของช่วงที่เลือกเท่านั้นที่จะถูกคัดลอกและนำไปใช้กับช่วงใหม่ ดังที่แสดงในภาพหน้าจอด้านล่าง

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

• วิธีคัดลอกและวางค่าโดยข้ามรายการที่ซ้ำกันใน Excel
• วิธีคัดลอกข้อมูลเซลล์ด้วยความสูงของแถวและความกว้างของคอลัมน์ใน Excel
• วิธีคัดลอกเซลล์เป็นค่าข้อความไม่ใช่สูตรใน Excel
• วิธีคัดลอกข้อมูลไปยังแถวว่างถัดไปของแผ่นงานอื่นใน Excel