Sub sdf()
    Dim v As Variant, ar As Range
    On Error Resume Next
    With ActiveSheet.UsedRange
        With Intersect(.Offset(4 - .Row), .Cells)
            For Each v In Array(xlCellTypeFormulas, xlCellTypeConstants)
                For Each ar In .SpecialCells(v, 23).EntireRow.Areas
                    Intersect(ar, .Parent.[B:B]).Value = .Parent.Name
            Next ar, v
        End With
    End With
End Sub

let
    fn=(t)=>let
        Col     = Table.ColumnNames(t),
        GroupBy = List.RemoveMatchingItems(Col,{Col{1},Col{5}}),
        List    = {{Col{1}, each Text.Combine(List.Transform(Table.Column(_,Col{1}),Text.From),",")},
                   {Col{5}, each List.Sum(Table.Column(_,Col{5}))}}
    in Table.ReorderColumns(Table.Group(t,GroupBy,List),Col),    
    Source    = Excel.CurrentWorkbook(){[Name="Таблица1"]}[Content],
    Source1   = Excel.CurrentWorkbook(){[Name="Таблица2"]}[Content],
    Merge     = Table.NestedJoin(fn(Source),{"Столбец1","Столбец4","Столбец8"},fn(Source1),{"Столбец1","Столбец4","Столбец8"},"2",3),
    Group     = Table.Group(Merge, {"2"}, {{"1", each Table.RemoveColumns(_,{"2"}), type table}})[[1],[2]],
    Transform = Table.FromRecords(Table.TransformRows(Group,(r)=>
                    Record.TransformFields(r,{
                        {"1",each Table.ReplaceValue(_,null,r[2]{0}[Столбец1],Replacer.ReplaceValue,{"Столбец1"})},
                        {"2",each Table.ReplaceValue(_,null,r[1]{0}[Столбец1],Replacer.ReplaceValue,{"Столбец1"})}
                    }))),
    ColN      = List.Zip(List.Transform(Table.ColumnNames(Source),each {_,"1."&_,"2."&_})),
    Result    = Table.ExpandTableColumn(Table.ExpandTableColumn(Transform, "1", ColN{0}, ColN{1}),"2", ColN{0}, ColN{2})
in
    Result

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim r As Range
    On Error Resume Next
    For Each r In Target.Rows
        With r.Cells(1, 1)
            If Not Intersect([$X$13:$X$18], .Cells) Is Nothing Then
                .Offset(1).EntireRow.Hidden = (.Value = "")
                For Each v In Array(Array("Заявление на деньги", 50), _
                    Array("Маршрутный лист", 7), _
                    Array("СЗ по прибытию", 11), _
                    Array("Авансовый отчет", 12))
                    xx(Evaluate("'" & v(0) & "'!A1"), .Row - 12, v(1)).Hidden = (.Value = "")
                Next
            End If
        End With
    Next
End Sub
Function xx(ByRef r As Range, i, n) As Range
    Set xx = r.Offset(, i * n).Resize(, n).EntireColumn
End Function

#If VBA7 <> 1 Then
    Function ЕСЛИОШИБКА(ByVal проверяемое_значение As Variant, ByVal значение_если_ошибка As Variant) As Variant
    Dim i As Long, j As Long
        If IsArray(проверяемое_значение) Then
            On Error Resume Next
            j = UBound(проверяемое_значение, 2)
            If Err Then
                Err.Clear
                For i = 1 To UBound(проверяемое_значение)
                    If IsError(проверяемое_значение(i)) Then проверяемое_значение(i) = значение_если_ошибка
                Next
            Else
                For i = 1 To UBound(проверяемое_значение)
                    For j = 1 To UBound(проверяемое_значение, 2)
                        If IsError(проверяемое_значение(i, j)) Then проверяемое_значение(i, j) = значение_если_ошибка
                    Next
                Next
            End If
        Else
            If IsError(проверяемое_значение) Then проверяемое_значение = значение_если_ошибка
        End If
        ЕСЛИОШИБКА = проверяемое_значение
    End Function
#End If

=АРГУМЕНТ("a";95)*АРГУМЕНТ("b";95)*РЕЗУЛЬТ(95)
=ВОЗВРАТ(ВЫЧИСЛИТЬ("еслиошибка(a;b)"))

='имя книги.xls'xx

=ИНДЕКС($A$A;$B$1)

=ПОДСТАВИТЬ(ПОДСТАВИТЬ(B2;СИМВОЛ(13);); "</p><p>Если Вам";"</p>"&A2&"<p>Если Вам")

=--СЖПРОБЕЛЫ(ПСТР(ПОДСТАВИТЬ(ПОДСТАВИТЬ(A3;B3&"№";)," ";"         ");1;9))

Sub colorize()
          Dim p As Paragraph, prev&, b As Boolean
1         On Error GoTo colorize_Error

11        Application.ScreenUpdating = 0
21        With CreateObject("vbscript.regexp")
31            .Global = False: .Pattern = "^\d+\.\d+\s"
41            For Each p In ThisDocument.Paragraphs
51                If p.Next Is Nothing Then
61                    If .test(p.Range.Text) Then
71                        p.Range.HighlightColorIndex = IIf(b, 3, 7)
81                    ElseIf prev > 0 Then
91                        p.Parent.Range(prev - 1, p.Range.End).HighlightColorIndex = IIf(b, 3, 7)
101                   End If
111               ElseIf .test(p.Range.Text) Then
121                   If prev > 0 Then
131                       p.Parent.Range(prev - 1, p.Previous.Range.End).HighlightColorIndex = IIf(b, 3, 7)
141                   End If
151                   b = Not b
161                   prev = p.Range.Start + 1
171               End If
181           Next
191       End With
201       Application.ScreenUpdating = 1
211       On Error GoTo 0
221       Exit Sub
colorize_Error:
231       MsgBox "Error " & Err.Number & " (" & Err.Description & _
              ") in procedure colorize of VBA Document ThisDocument on line " & Erl & vbLf & _
              "paragraphs.count: " & Paragraphs.Count & ",  current paragraph: " & Range(0, _
              p.Range.End).Paragraphs.Count
End Sub

Dim sh As Worksheet
    For Each sh In Sheets(Array("Лист3", "Лист4"))
        With sh.UsedRange.Interior
            If .Color = vbRed Then .Color = vbBlue Else .Color = vbRed
        End With
    Next

Option Explicit
Function UsedRangeByCodeName(sCodeName$) As Range
    Set UsedRangeByCodeName = ThisWorkbook.VBProject. _
        VBComponents(sCodeName). _
        Properties("usedrange").Object
End Function
Sub test()
    Dim MyCollection As New Collection
    Dim v, r As Range, r1 As Range, r2 As Range, addr$
    For Each v In Array("Лист3", "Лист4")
        MyCollection.Add UsedRangeByCodeName(CStr(v)), v
    Next
    With Application.FindFormat
        .Clear
        With .Interior
            .PatternColorIndex = xlAutomatic
            .Color = vbBlue
            .TintAndShade = 0
            .PatternTintAndShade = 0
        End With
    End With
    For Each r In MyCollection
        Set r1 = r.Find(What:="", After:=r(1, 1), LookIn:=xlFormulas, LookAt:= _
        xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
        , SearchFormat:=True)
        If Not r1 Is Nothing Then
            addr = r1.Address
            Set r2 = r1
            Do
                If r1.Address <> addr Then Set r2 = Union(r2, r1)
                Set r1 = r.Find(What:="", After:=r1, LookIn:=xlFormulas, LookAt:= _
                    xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _
                    , SearchFormat:=True)
            Loop While Not r1 Is Nothing And r1.Address <> addr
        End If
        If Not r2 Is Nothing Then r2.Interior.Color = 255: Set r2 = Nothing
    Next
End Sub

function commas() {
var key = 'api';
var secret = 'secret';

var baseUrl = "https://exchange.com";
var endPoint = "/public/api/ver1/smart_trades";
var pointParams = "?account_id=xxx&scope=finished";
var queryString = endPoint + pointParams;
var signature = Utilities.computeHmacSha256Signature(queryString, secret);
signature = signature.map(function(e) {return ("0" + (e < 0 ? e + 256 : e).toString(16)).slice(-2)}).join("");

var hparams = {
    'method': 'get',
    'headers': {'APIKEY': key,
                'Signature': signature},
    'muteHttpExceptions': true
};

var data = chunk(UrlFetchApp.fetch(baseUrl + queryString , hparams).getContentText(),5000);
Logger.log(data)
var ss = SpreadsheetApp.getActive();
var sheet = ss.getSheetByName("rates");
var raw = sheet.getRange(13,1).offset(0, 0, data.length).setValue(data)
}
function chunk(a,b){
  return Array.apply(null, new Array(Math.ceil(a.length/b))).
  map(function (c, d) {return [a.substr(d*b,b)];});
}

var data = BtwBraces(UrlFetchApp.fetch(baseUrl + queryString , hparams).getContentText());

function BtwBraces(a){
  return a.split(/[{}]/g).
  filter(function(a){return a;}).
  map(function (a){return [a];})
}

function myFunction() {
    var ss = SpreadsheetApp.getActive();
    var sheet = ss.getSheetByName("Лист1");
    var data = BtwBraces(Array.apply(null, Array(3000)).reduce(function(a, b) {
        return a + "{" + Array.apply(null, Array(Math.floor(Math.random() * 20) + 1)).reduce(function(a, b) {
            a.push("\"" + Array.apply(null, Array(2)).reduce(function(a, b) {
                a.push(Math.random(this).toString(36).slice(2, Math.floor(Math.random() * 10) + 3));
                return a
            }, []).join("\":\"") + "\"");
            return a
        }, []).join(",") + "}"
    }, ""));
    var raw = sheet.getRange(1, 1).offset(0, 0, data.length).setValues(data);
}
function BtwBraces(a) {
    return a.split(/[{}]/g).
    filter(function(a) {return a}).
    map(function(a) {return [a]})
}

Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.Address <> "$B$12" Then Exit Sub
    Cells((([F15] - 1) \ 3 + 1) * 2, 4 - (([F15] - 1) Mod 3)) = Target
End Sub