如何把同一单元格内的文本上面加粗下面正常文字。

橙先生

如何把同一单元格内的文本上面加粗下面正常文字。举例如：图片，感谢感谢，几百个呢，一个一个弄太麻烦了。如何批量解决，谢谢大神。

小凡、、、

vba写个简单的循环

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&, n&
   
    With Range("B4", Cells(Rows.Count, "B").End(xlUp))
        ar = .Value
        For i = 1 To UBound(ar)
            n = InStr(ar(i, 1), vbLf)
            With .Cells(i, 1)
                .Characters(1, n - 1).Font.Bold = True
                .Characters(n + 1, Len(ar(i, 1))).Font.Bold = False
            End With
        Next i
    End With
    Beep
End Sub

橙先生

gwjkkkkk 发表于 2024-6-26 19:55
Option Explicit
Sub TEST1()
    Dim ar, i&, n&

谢谢哥。但是我小白，不懂vba是什么。