将普通字体提取到新单元格

Question

我有多个使用粗体和普通字体的单元格，我希望仅将非粗体的字体提取到新单元格中。有人知道我该怎么做吗？

谢谢

Answer 1

您可以在我链接的帖子中做与Siddarth所做的相反的操作，例如：

使用此：

Sub Test()

Dim mystring As String

For i = 1 To Len(Range("A1").Value)
    If Range("A1").Characters(i, 1).Font.FontStyle = "Regular" Then
        mystring = mystring & Mid(Range("A1").Value, i, 1)
    ElseIf Len(mystring) > 0 Then
        Debug.Print Trim(mystring)
        mystring = ""
    End If

    If i = Len(Range("A1").Value) Then
        Debug.Print Trim(mystring)
    End If
Next i

End Sub

返回：