Страницы: 1
RSS
Как удалить из ячейки символ определенного размера
 
Добрый день!
Прошу помочь с следующей задачей.
У меня в экселе в ячейках данные записаны шрифтом размера 8, но в некоторых ячейках есть маленькие сноски, которые 5 шрифтом написаны. Они мне мешают и их как-то надо удалить. Удалить именно эти сноски, которые 5 шрифтом написаны.
Сделать это надо автоматически, в ручную не получится, т.к. в базе 180 тысяч таких ячеек.

Голову уже сломал как это сделать, не сгруппировать их не получается, никак не выделить.

Прошу помощи)
 
Доброе время суток.
Вариант для выделенных нескольких последовательных ячеек
Код
Public Sub DeleteTextWithFont5Size()
    Const sPattern = "<Font html:Size=""5""[\w\W]+?</Font>"
    Dim pReg As Object, sXml As String
    Set pReg = CreateObject("VBScript.RegExp")
    pReg.Global = True: pReg.Pattern = sPattern
    sXml = Selection.Value(xlRangeValueXMLSpreadsheet)
    Selection.Value(xlRangeValueXMLSpreadsheet) = pReg.Replace(sXml, " ")
End Sub
 
Супер! Спасибо!
Изменено: Александр Снов - 30.10.2020 15:07:29
Страницы: 1
Наверх