Tách ký tự number và giữ nguyên color text

[vukhacdiep]

Tôi muốn loại bỏ số và giữ nguyên màu của chữ
Ví dụ: HAPPY NEW YEAR 2022
Xin các thầy giúp đỡ viết code như thế nào ạ

 

[BuiQuangThuan]

Tôi muốn loại bỏ số và giữ nguyên màu của chữ
Ví dụ: HAPPY NEW YEAR 2022
Xin các thầy giúp đỡ viết code như thế nào ạ

Sao trong bài viết thì viết tiếng Việt được mà tiêu đề lại không thế bạn?

 

[vukhacdiep]

Sao trong bài viết thì viết tiếng Việt được mà tiêu đề lại không thế bạn?

em mới gia nhập nên chưa biết cách trình bày, mong các thầy thông cảm

 

[bebo021999]

Bôi đen vùng chứa chuỗi rồi nhấn nút "LOAI BO SO"

Option Explicit
Sub LoaiBoSo()
Dim i&, j&, cell As Range, k As String, st As String, arr(1 To 10000, 1 To 3)
Application.ScreenUpdating = False
For Each cell In Selection
    st = "": j = 0
    For i = 1 To Len(cell)
        k = Mid(cell, i, 1)
        If Not IsNumeric(k) Then
            j = j + 1
            arr(j, 1) = k: arr(j, 2) = cell.Characters(i, 1).Font.Color
            arr(j, 3) = cell.Characters(i, 1).Font.Bold
        End If
    Next
    For i = 1 To j
        st = st & arr(i, 1)
    Next
    cell.Value = st
    For i = 1 To j
        With cell.Characters(i, 1).Font
            .Color = arr(i, 2)
            .Bold = arr(i, 3)
        End With
    Next
Next
Application.ScreenUpdating = True
End Sub

 

[vukhacdiep]

Bôi đen vùng chứa chuỗi rồi nhấn nút "LOAI BO SO"

Option Explicit
Sub LoaiBoSo()
Dim i&, j&, cell As Range, k As String, st As String, arr(1 To 10000, 1 To 3)
Application.ScreenUpdating = False
For Each cell In Selection
    st = "": j = 0
    For i = 1 To Len(cell)
        k = Mid(cell, i, 1)
        If Not IsNumeric(k) Then
            j = j + 1
            arr(j, 1) = k: arr(j, 2) = cell.Characters(i, 1).Font.Color
            arr(j, 3) = cell.Characters(i, 1).Font.Bold
        End If
    Next
    For i = 1 To j
        st = st & arr(i, 1)
    Next
    cell.Value = st
    For i = 1 To j
        With cell.Characters(i, 1).Font
            .Color = arr(i, 2)
            .Bold = arr(i, 3)
        End With
    Next
Next
Application.ScreenUpdating = True
End Sub

em cảm ơn thầy rất nhiều ạ

 

[huuthang_bd]

em cảm ơn thầy rất nhiều ạ

Ủa, tưởng bạn hỏi công thức chứ.

 

[VetMini]

Ủa, tưởng bạn hỏi công thức chứ.

Ở trên có nói nhờ viết code mờ.
Chỉ khác là đáng lẽ viết hàm thì code trên cho luôn cả cụm "bầm một phát" (sub)