Option Explicit
'разработка от: bedvit-Виталий Б.
'для форума: http://www.planetaexcel.ru/forum
'версия: 10 от 20/05/2020
'действие: Перевести условное форматирование в обычное для текущего листа - 0(False), для всей книги - 1(True)
'если 0 (для текущего листа) - обрабатывается выделенный диапазон, если диапазон из одной ячейки - весь лист.
'если 1 (для всей книги) - обрабатывается всё условное форматирование
'сохраняет структуру/группировку листа.

Sub RUN(): ConditionalFormatToFormat 0: End Sub

Sub ConditionalFormatToFormat(Optional AllWorksheets As Boolean = False)
Dim W As String, tW As String, WS As Worksheet, Rn As Range, ac, r As Range, A As Long
If MsgBox("Форматы не входящие в стандартные (гистограммы и значки), будут утеряны! Продолжить?", vbExclamation + vbYesNo) = vbYes Then
    With Application: .ScreenUpdating = False: .DisplayAlerts = False: .EnableEvents = False: ac = .Calculation: .Calculation = -4135: .StatusBar = "BE: обработка данных...": End With
    W = ActiveWorkbook.name
    On Error Resume Next 'обработка ошибок в случае отсутствия условного формата на листе
    
    If AllWorksheets Then
        For Each WS In Worksheets
            Err.Clear
            Set Rn = WS.Cells.SpecialCells(xlCellTypeAllFormatConditions)
            GoSub Go_
        Next
    Else
        Set WS = ActiveSheet
        Err.Clear
        If Selection.CountLarge = 1 Then Set Rn = Cells.SpecialCells(xlCellTypeAllFormatConditions) Else Set Rn = Selection.SpecialCells(xlCellTypeAllFormatConditions)
        GoSub Go_
    End If
    With Application: .ScreenUpdating = True: .DisplayAlerts = True: .EnableEvents = True: .Calculation = ac: .StatusBar = False: End With
End If
Exit Sub

Go_:
If Err = 0 Then
    tW = Environ("temp") & "\" & CreateObject("Scripting.FileSystemObject").GetTempName()
    Workbooks.Add
    For A = 1 To Rn.Areas.count
        Set r = Rn.Areas(A):    r.Copy
        Range(r(1, 1).Address, r(r.Rows.count, r.Columns.count).Address).PasteSpecial Paste:=xlPasteValues 'значения
        Range(r(1, 1).Address, r(r.Rows.count, r.Columns.count).Address).PasteSpecial Paste:=xlPasteAllUsingSourceTheme 'формат
        Application.CutCopyMode = False
    Next
    ActiveWorkbook.SaveAs FileName:=tW, FileFormat:=xlWebArchive, CreateBackup:=False
    Workbooks(Dir(tW)).Close 0
    Workbooks.Open FileName:=tW
    For A = 1 To Rn.Areas.count
        Set r = Rn.Areas(A)
        Range(r(1, 1).Address, r(r.Rows.count, r.Columns.count).Address).Copy:  r.PasteSpecial Paste:=xlPasteFormats
        Application.CutCopyMode = False
    Next
    Workbooks(Dir(tW)).Close 0: Kill tW 
    Rn.Cells.FormatConditions.Delete 'удаляем условное форматирование
End If
Return
End Sub

...PasteSpecial Paste:=xlPasteAllUsingSourceTheme
...PasteSpecial Paste:=xlPasteValues

Sub Test()
Dim t#: t = Timer
[a2] = Application.Run("FindInCSV", "C:\Users\bvv\Downloads\пример_структуры_1_ГБ.csv", "ASD123FGH456")
[a3] = "Time, sec: " & Timer - t
End Sub

Sub Test()
Dim t#: t = Timer
Debug.Print Application.Run("FindInCSV", "C:\Users\...\Downloads\пример_структуры_1_ГБ.csv", "ASD123FGH456")
Debug.Print "Time, sec: "; Timer - t
End Sub

bVBA.ConvertFormatImage File, ConvertToFile, 3 'формат

Sub QR_Generate()
Dim bVBA As Object: Set bVBA = CreateObject("BedvitCOM.VBA") 'позднее связывание
Dim OutFile As String: OutFile = "C:\QR.bmp"
Dim QRcodeText As String: QRcodeText = "https://www.planetaexcel.ru/forum/index.php?PAGE_NAME=message&FID=1&TID=71988&TITLE_SEO=71988-generatsiya-qr-kodov-v-eksel&MID=1050801#message1050801"

ActiveSheet.Shapes.SelectAll: Selection.Delete
If bVBA.QRcodePrint(QRcodeText, OutFile) = 0 Then [a1].Select: ActiveSheet.Pictures.Insert (OutFile)
 
End Sub