Làm cách nào để trích xuất văn bản dựa trên màu phông chữ từ một ô trong Excel?
Nếu bạn có danh sách dữ liệu với một số văn bản màu đỏ trong mỗi ô trong Excel như được hiển thị như ảnh chụp màn hình bên dưới và bạn có biết cách chỉ trích xuất văn bản màu đỏ không? Bây giờ tôi sẽ giới thiệu một cách nhanh chóng để giải câu đố trích xuất văn bản dựa trên màu phông chữ từ một ô trong Excel.
Trích xuất văn bản dựa trên màu phông chữ từ mỗi ô
Trích xuất văn bản dựa trên màu phông chữ từ mỗi ô
Trong Excel, bạn chỉ có thể sử dụng hàm đã xác định để trích xuất văn bản dựa trên màu phông chữ.
1. nhấn Alt + F11 các phím với nhau để mở cửa sổ Microsoft Visual Basic for Applications.
2. nhấp chuột Chèn > Mô-đun và sao chép mã VBA theo sau vào cửa sổ bật ra.
VBA: Trích xuất văn bản dựa trên màu phông chữ
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. Sau đó lưu và đóng hộp thoại, đồng thời chọn một ô trống bên cạnh danh sách dữ liệu, nhập công thức này = GetColorText (A1) (A1 cho biết ô bạn muốn trích xuất văn bản), nhấn đăng ký hạng mục thi để nhận văn bản cần thiết, sau đó kéo nút điều khiển tự động điền để điền công thức vào phạm vi bạn muốn.
Bây giờ bạn có thể thấy tất cả các văn bản màu đỏ được trích xuất.
Mẹo: Trong mã VBA ở trên, bạn có thể thay đổi màu rgb trong tập lệnh này TextColor = RGB (255, 0, 0) thành màu khác để đáp ứng nhu cầu của bạn.
Các bài báo tương đối:
Công cụ năng suất văn phòng tốt nhất
Nâng cao kỹ năng Excel của bạn với Kutools for Excelvà trải nghiệm hiệu quả hơn bao giờ hết. Kutools for Excel Cung cấp hơn 300 tính năng nâng cao để tăng năng suất và tiết kiệm thời gian. Bấm vào đây để có được tính năng bạn cần nhất...
Office Tab Mang giao diện theo thẻ vào Office và giúp công việc của bạn dễ dàng hơn nhiều
- Cho phép chỉnh sửa và đọc theo thẻ trong Word, Excel, PowerPoint, Publisher, Access, Visio và Project.
- Mở và tạo nhiều tài liệu trong các tab mới của cùng một cửa sổ, thay vì trong các cửa sổ mới.
- Tăng 50% năng suất của bạn và giảm hàng trăm cú nhấp chuột cho bạn mỗi ngày!
