วิธีการทำข้อความส่วนที่เป็นตัวหนาเมื่อเชื่อมสองคอลัมน์ใน Excel
ในแผ่นงาน Excel หลังจากเชื่อมค่าเซลล์สองค่าเข้ากับสูตรแล้วคุณอาจพบว่าส่วนนั้นจะไม่เป็นตัวหนาของข้อความในเซลล์สูตรรวม สิ่งนี้อาจจะน่ารำคาญในบางครั้งคุณจะทำอย่างไรกับข้อความส่วนที่เป็นตัวหนาเมื่อเชื่อมสองคอลัมน์ใน Excel เข้าด้วยกัน
ข้อความส่วนที่เป็นตัวหนาเมื่อเชื่อมสองคอลัมน์ด้วยรหัส VBA
ข้อความส่วนที่เป็นตัวหนาเมื่อเชื่อมสองคอลัมน์ด้วยรหัส VBA
ตัวอย่างเช่นฉันมีข้อมูลสองคอลัมน์ตอนนี้ฉันต้องการรวมสองคอลัมน์นี้เป็นคอลัมน์เดียวและจัดรูปแบบค่าแรกเป็นตัวหนาตามภาพหน้าจอต่อไปนี้:
1. กด ALT + F11 คีย์เพื่อเปิด Microsoft Visual Basic สำหรับแอปพลิเคชัน หน้าต่าง
2. คลิก สิ่งที่ใส่เข้าไป > โมดูลและวางรหัสต่อไปนี้ในไฟล์ โมดูล หน้าต่าง.
รหัส VBA: ข้อความส่วนที่เป็นตัวหนาเมื่อเชื่อมสองคอลัมน์เข้าด้วยกัน:
Sub JoinCellsWithBoldFormatForFirstWord()
'Updateby Extendoffice 20160725
Dim xRg As Range
Dim xTxt As String
Dim xCell As Range
Dim I As Long
On Error Resume Next
If ActiveWindow.RangeSelection.Count > 1 Then
xTxt = ActiveWindow.RangeSelection.AddressLocal
Else
xTxt = ActiveSheet.UsedRange.AddressLocal
End If
LInput:
Set xRg = Application.InputBox("Please select the data range:", "Kutools for Excel", xTxt, , , , , 8)
If xRg Is Nothing Then Exit Sub
If xRg.Areas.Count > 1 Then
MsgBox "does not support multiple selections", vbInformation, "Kutools for Excel"
GoTo LInput
End If
If xRg.Columns.Count <> 2 Then
MsgBox "only two columns in the selection", vbInformation, "Kutools for Excel"
GoTo LInput
End If
Set xRg = xRg.Resize(xRg.Rows, 3)
On Error Resume Next
For Each xCell In xRg.Columns(3).Cells
xCell = xRg.Cells(xCell.Row, 1) & " " & xRg.Cells(xCell.Row, 2)
xCell.Font.Bold = False
xCell.Characters(1, Len(xRg.Cells(xCell.Row, 1))).Font.FontStyle = "Bold"
Next
End Sub
3. จากนั้นกด F5 คีย์เพื่อเรียกใช้รหัสนี้และกล่องพร้อมต์จะปรากฏขึ้นเพื่อเตือนให้คุณเลือกช่วงข้อมูลที่คุณต้องการรวมและเป็นตัวหนาดูภาพหน้าจอ:
4. จากนั้นคลิก OK และคำทั้งสองคำในแถวได้ถูกรวมเข้าด้วยกันในเซลล์ข้างช่วงข้อมูลและคำแรกจะเป็นตัวหนาเช่นกันดูภาพหน้าจอ:
สุดยอดเครื่องมือเพิ่มผลผลิตในสำนักงาน
เพิ่มพูนทักษะ Excel ของคุณด้วย Kutools สำหรับ Excel และสัมผัสประสิทธิภาพอย่างที่ไม่เคยมีมาก่อน Kutools สำหรับ Excel เสนอคุณสมบัติขั้นสูงมากกว่า 300 รายการเพื่อเพิ่มประสิทธิภาพและประหยัดเวลา คลิกที่นี่เพื่อรับคุณสมบัติที่คุณต้องการมากที่สุด...
แท็บ Office นำอินเทอร์เฟซแบบแท็บมาที่ Office และทำให้งานของคุณง่ายขึ้นมาก
- เปิดใช้งานการแก้ไขและอ่านแบบแท็บใน Word, Excel, PowerPoint, ผู้จัดพิมพ์, Access, Visio และโครงการ
- เปิดและสร้างเอกสารหลายรายการในแท็บใหม่ของหน้าต่างเดียวกันแทนที่จะเป็นในหน้าต่างใหม่
- เพิ่มประสิทธิภาพการทำงานของคุณ 50% และลดการคลิกเมาส์หลายร้อยครั้งให้คุณทุกวัน!