如何在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到-位置的所有字符都加粗。

我希望您能够根据您的需求调整此代码。