Как перед каждым жирным словом ставить символ # и каждым не жирным черным -?

Question

[Даулет Даулет]

Есть такой текст, мне нужно поставить символ решетки # перед каждым вопросом (выделен жирным) и символ минус - перед каждым не правильным ответом. (если минус нельзя ставить то можно пока ставить 00 символ не важен)

можете подсказать как это быстро сделать?

Правильные ответы я уже отфильтровал и поставил символ * перед каждым вручную но это долго ((

Answer 1

[Григорий Боев]

Sub AddSharpToBoldText()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell.Font.Bold = True Then
            cell.Value = "# " & cell.Value
        End If
    Next cell
End Sub

Sub AddMinusSignToRedText()
    Dim cell As Range
    For Each cell In ActiveSheet.UsedRange
        If cell.Font.Color = RGB(255, 0, 0) Then
            cell.Value = "- " & cell.Value
        End If
    Next cell
End Sub

Comments

[Даулет Даулет]

Это формула для EXEL?

[Григорий Боев]

Даулет Даулет, скрипт на VBA