如何在粗体​​Excel 2016中对冒号前的文本进行格式化？

Question

我有一个派生自SQL数据库的表，该数据库有一列我希望以粗体显示冒号之前的所有文本。 1个单元格中的示例文本是：

Position: Front
emb_type: text
thread_color: Sky
font_type: Serif2
text_line_1: PS
text_line_2: 
text_line_3: 
logo_code:

理想情况下，每次刷新数据源时，它都会引用列I和Apply。

非常感谢任何帮助。

由于

克雷格

Answer 1

试试这个短宏（对于 A 列 ：

Sub PreColon()
    Dim i As Long, N As Long, s As String, j As Long

    N = Cells(Rows.Count, "A").End(xlUp).Row
    For i = 1 To N
        s = Cells(i, 1)
        j = InStr(1, s, ":")
        If j <> 0 Then
            Cells(i, 1).Characters(1, j - 1).Font.Bold = True
        End If
    Next i
End Sub

结果：