如何在excel中将另一个工作表的文本设为粗体

Question

美好的一天！

我目前正在研究某些东西，我尝试使用VBA将描述之前的单词加粗，我不知道正确的方法，但是我想做的是将“-”之前的单词加粗。有谁可以帮助我吗？非常感谢。.

[]

Answer 1

欢迎来到SO。如果您是新手，请在tour上查看"help center".和更多有用的信息

关于您的问题，请尝试以下操作：

Sub MAKE_IT_BOLD(ByVal ThisRange As Range)

Dim rng As Range
Dim Pos As Integer

For Each Rng In ThisRange
    Pos = InStr(1, Rng.Value, "-", vbTextCompare) - 1
    If Pos > 0 Then Rng.Characters(1, Pos).Font.Bold = True
Next Rng

End Sub

此子项将检查ThisRange中的每个单元格，并将找到字符串中第一个-的位置。如果找到该位置，则它将使所有字符从1到-的位置变为粗体。

我希望您可以根据需要修改此代码。