求教如何提取单元格中的部分加粗字符

s859521422 · 发表于 2022-12-3 16:30

本帖最后由 s859521422 于 2022-12-3 20:11 编辑

如图，求教大神如何用VBA代码把A列内加粗部分提取到B列中

图片.png

liulang0808 · 发表于 2022-12-3 16:34

Sub 按钮1_Click()
Application.ScreenUpdating = False
For j = 1 To Cells(Rows.Count, 1).End(3).Row
      str1 = ""
      For i = 1 To Len(Cells(j, 1))
         If Cells(j, 1).Characters(i, 1).Font.Bold = True Then
            str1 = str1 & Mid(Cells(j, 1), i, 1)
         End If
      Next i
      Cells(j, 3) = str1
Next
Application.ScreenUpdating = True
End Sub

liulang0808 · 发表于 2022-12-3 16:35

附件内容供参考。。。。

s859521422 · 发表于 2022-12-3 20:09

已经解决了，大佬太强了

s859521422 · 发表于 2022-12-3 20:09

Function getbold(SourceString)
str1 = ""
For i = 1 To Len(SourceString)
      If SourceString.Characters(i, 1).Font.Bold = True Then
            str1 = str1 & Mid(SourceString, i, 1)
      End If
Next i
getbold = str1

End Function

		自动登录	找回密码
密码			免费注册

[已解决] 求教如何提取单元格中的部分加粗字符

评分