=ОБЪЕДИНИТЬ("
";ИСТИНА;ТЕКСТ(ЕСЛИ((B2:J2=0)*(A2:I2>0);B$1:J$1;"");"дд.ММ.гг"))

    With Application.Workbooks("Книга1.xlsx").SlicerCaches("Срез_Город")
        .SlicerItems("Москва").Selected = True
        .SlicerItems("Барнаул").Selected = False
        .SlicerItems("Краснодар").Selected = False
    End With

function myFunction() {
  //объявляем лист, с которым будем работать
  var Sheet = SpreadsheetApp.getActive().getSheetByName("Лист1");
  if(Sheet.getRange('A1').getValues()!=0){
    Sheet.getRange('A1').setValues(Sheet.getRange('A1').getValues());
  }
};

Sub df()
Dim coll As New Collection
Dim tex As String
Set Diap = ActiveSheet.Range("C4:C18")
For Each d In Diap
    If InStr(1, d.Value2, "Ï") Then
    coll.Add d
    If coll.Count > 1 Then rz = ","
    tex = tex + rz + d.Address
    End If
Next d

If tex <> "" Then
    ActiveSheet.Range(tex).Select
Else: ActiveSheet.Range("A1").Select
End If

End Sub

Sub Макрос1()
    Set knopka = ActiveSheet.Shapes(Application.Caller)
    c = knopka.TopLeftCell.Column
    
    ActiveSheet.Sort.SortFields.Clear
    ActiveSheet.Sort.SortFields.Add2 Key:=ActiveSheet.Range(ActiveSheet.Cells(9, c), ActiveSheet.Cells(23, c)) _
        , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal
    With ActiveSheet.Sort
        .SetRange Range("F8:M23")
        .Header = xlYes
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub