จะทำให้ตัวอักษรตัวแรกในเซลล์ Excel เป็นตัวพิมพ์ใหญ่เฉพาะได้อย่างไร

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

ใช้ตัวพิมพ์ใหญ่เฉพาะตัวอักษรตัวแรกในเซลล์ Excel ด้วยสูตร
ใช้ตัวพิมพ์ใหญ่เฉพาะตัวอักษรตัวแรกในเซลล์ Excel ด้วยโค้ด VBA
ใช้ตัวพิมพ์ใหญ่เฉพาะตัวอักษรตัวแรกในเซลล์ Excel เป็นกลุ่มด้วย Kutools สำหรับ Excel

ใช้ตัวพิมพ์ใหญ่เฉพาะตัวอักษรตัวแรกในเซลล์ Excel ด้วยสูตร

คุณสามารถแปลงตัวพิมพ์ใหญ่ทั้งหมดเป็นขีด จำกัด แรกในรายการด้วยสูตรได้ กรุณาดำเนินการดังนี้

1. เลือกเซลล์ว่าง (กล่าวว่าเซลล์ C2) เพื่อค้นหาผลลัพธ์ที่แปลงแล้วและป้อนสูตร = เหมาะสม (B2) ลงในแถบสูตรแล้วกด เข้าสู่ กุญแจ

ชื่อที่เป็นตัวพิมพ์ใหญ่จะถูกแปลงเป็นตัวพิมพ์ใหญ่ทันทีในคอลัมน์วิธีใช้

2. เมื่อเลือกเซลล์ C2 แล้ว ให้ลากจุดจับเติมลงไปในรายการจนกระทั่งถึงเซลล์ที่คุณต้องการแปลงตัวพิมพ์ชื่อ

หมายเหตุ: ในสูตรโปรดเปลี่ยนการอ้างอิงเซลล์ตามรายการของคุณ

ใช้ตัวพิมพ์ใหญ่เฉพาะตัวอักษรตัวแรกในเซลล์ Excel ด้วยโค้ด VBA

นอกจากนี้ คุณสามารถรันโค้ด VBA ต่อไปนี้เพื่อแปลงชื่อตัวพิมพ์ใหญ่ทั้งหมดให้เป็นตัวพิมพ์ใหญ่ที่ถูกต้องในรายการได้

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

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

รหัส VBA: แปลงตัวพิมพ์ใหญ่ทั้งหมดเป็นขีด จำกัด แรกเท่านั้น

Sub Proper_Case()
	Dim xRg As Range
	Dim xCell As Range
	Dim xAddress As String
	Dim xUpdate As Boolean
	On Error Resume Next
	xAddress                    = Application.ActiveWindow.RangeSelection.Address
	Set xRg                     = Application.InputBox("Please select a range", "Kutools for Excel", xAddress, , , , , 8)
	Set xRg                     = Application.Intersect(xRg, ActiveSheet.UsedRange)
	If xRg Is Nothing Then Exit Sub
		xUpdate                    = Application.ScreenUpdating
		Application.ScreenUpdating = False
		For Each xCell In xRg.Cells
			If xCell.HasFormula = False Then
				xCell.Value = Application.WorksheetFunction.Proper(xCell.Value)
			End If
		Next
		Application.ScreenUpdating = xUpdate
	End Sub

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

ชื่อที่เป็นตัวพิมพ์ใหญ่ทั้งหมดในช่วงที่เลือกจะถูกแปลงเป็นตัวพิมพ์ใหญ่ทันที

ใช้ตัวพิมพ์ใหญ่เฉพาะตัวอักษรตัวแรกในเซลล์ Excel เป็นกลุ่มด้วย Kutools สำหรับ Excel

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

1. เลือกรายการที่คุณต้องการแปลงเคสจากนั้นคลิก Kutools > ข้อความ > เปลี่ยนกรณี. ดูภาพหน้าจอ:

2 ใน เปลี่ยนกรณี โปรดเลือกไฟล์ กรณีที่เหมาะสม จากนั้นคลิกตัวเลือก OK ปุ่ม

ชื่อที่เป็นตัวพิมพ์ใหญ่ทั้งหมดในรายการที่เลือกจะถูกแปลงเป็นตัวพิมพ์ใหญ่ทันที