วิธีการแยกข้อความตามสีฟอนต์จากเซลล์ใน Excel

หากคุณมีรายการข้อมูลที่มีข้อความสีแดงในแต่ละเซลล์ใน Excel ตามที่แสดงด้านล่างภาพหน้าจอและคุณรู้วิธีแยกข้อความสีแดงเท่านั้นหรือไม่? ตอนนี้ฉันจะแนะนำวิธีแก้ปริศนาอย่างรวดเร็วที่ดึงข้อความตามสีแบบอักษรจากเซลล์ใน Excel

แยกข้อความตามสีฟอนต์จากแต่ละเซลล์

แยกข้อความตามสีฟอนต์จากแต่ละเซลล์

ใน Excel คุณสามารถใช้ฟังก์ชันที่กำหนดเพื่อแยกข้อความตามสีฟอนต์เท่านั้น

1 กด Alt + F11 คีย์ร่วมกันเพื่อเปิดหน้าต่าง Microsoft Visual Basic for Applications

2 คลิก สิ่งที่ใส่เข้าไป > โมดูล และคัดลอกรหัส VBA ต่อไปนี้ไปยังหน้าต่างที่โผล่ขึ้นมา

VBA: แยกข้อความตามสีฟอนต์

Function GetColorText(pRange As Range) As String
'UpdatebyExtendoffice20220621
Dim xOut As String
Dim xValue As String
Dim i As Long
Dim TextColor
TextColor = RGB(255, 0, 0) 'colorindex RGB
xValue = pRange.Text
For i = 1 To VBA.Len(xValue)
  If pRange.Characters(i, 1).Font.Color = TextColor Then
  xOut = xOut & VBA.Mid(xValue, i, 1)
  End If
Next
GetColorText = xOut
End Function

3. จากนั้นบันทึกและปิดกล่องโต้ตอบแล้วเลือกเซลล์ว่างที่อยู่ถัดจากรายการข้อมูลพิมพ์สูตรนี้ = GetColorText (A1) (A1 หมายถึงเซลล์ที่คุณต้องการแยกข้อความ) ให้กด เข้าสู่ เพื่อรับข้อความที่ต้องการจากนั้นลากที่จับการป้อนอัตโนมัติเพื่อเติมสูตรในช่วงที่คุณต้องการ

ตอนนี้คุณสามารถเห็นข้อความสีแดงทั้งหมดถูกแยกออกมา

ปลาย: ในโค้ด VBA ด้านบนนี้ คุณสามารถเปลี่ยนสี rgb ในสคริปต์ TextColor = RGB(255, 0, 0) เป็นสีอื่นๆ ได้ตามที่คุณต้องการ

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

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

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

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

• แยกข้อความที่เป็นตัวหนาใน Excel เท่านั้น

• แยกค่าทศนิยมใน Excel

• แยกชื่อกลางใน Excel