Доброго времени суток! Есть задача в макросе в том числе отсортировать таблицу (не сортируя шапку) по нескольким столбцам.
-по столбцу B (от А до Я)
- затем по столбцу C (от А до Я)
- затем по столбцу D (по возрастанию)
- затем по столбцу E (по возрастанию)

Есть код (как часть процедуры)

With ActiveSheet.Sort
       .SortFields.Clear
       .SortFields.Add Key:=Range("B2")
       .SortFields.Add Key:=Range("C2")
       .SortFields.Add Key:=Range("D2")
       .SortFields.Add Key:=Range("E2")
       .SetRange Range("B2:G")
       .Apply
   End With


Но сортировка не работает, таблица не меняется. В чем может быть ошибка?

Большое спасибо!

Подскажите, а как теперь поменять диапазон объединяемых ячеек на ячейки BCD

Большое спасибо!    

На листе 1 - какие ячейки сцепить в таблице (она может быть длинной)
На листе 2 - как должно получиться сцепление.

Добрый день!

Подскажите, пожалуйста, как средствами VBA построчно сцепить ячейки в цикле?
Например, нам надо во всей таблице сцепить ячейки в столбцах последовательно L, K, N.
И вывести результат в столбец на другой лист.
Как это сделать именно с помощью макроса?

Пробовал. Нормально это работать не будет. Нужно, чтобы значения с кавычками вставлялись в ячейки таблиц уже без кавычек. А значения без кавычек вставлялись как есть

Я думал, проще добавить/переписать здесь несколько строк, вместо того чтобы искать решение с нуля. Но пока не могу догадаться, что именно исправить.

Добрый день! Есть макрос, который читает JSON-файл и заполняет ячейки значениями из атрибутов этого файла. Есть функция, которая предполагает, что соответствующее ему значение обрамлено кавычками, например created: "26.03.2025".
Но есть атрибуты, значения которых без кавычек, например целые числа, например status: 4.
И тогда эти значения заполняются в таблицу некорректно. Ставится запятая, следующая за значением атрибута.

Как переписать функцию, чтобы она могла обрабатывать значения как с кавычками, так и без?

Function ReadAttribute(content As String, attr As String, pos As Long) As String    
pos = InStr(pos, content, """" & attr & """")    
If pos = 0 Then        Exit Function
   End If
   
   Dim s As Long
   Dim e As Long
   s = InStr(pos + 1, content, ":") + 2
   
   If Mid(content, s - 1, 4) = "null" Then
       ReadAttribute = "null"
   Else
       e = InStr(s, content, """")
       ReadAttribute = Mid(content, s, e - s)
   End If
End Function

Большое спасибо! Постараюсь доработать под остальные условия.

Добрый день! Подскажите, как средствами VBA сделать следующие действия.

- Фильтровать уникальные значения по столбцу L и добавлять их в любой условный столбец на втором листе, к примеру в столбец A.
- Для каждого уникального значения из столбца L выбирать соответствующие ему значения из столбца K (строк может получиться несколько) и добавлять эти значения в столбец B на втором листе.

Для других столбцов нужно делать примерно то же самое, но я уже сориентируюсь по аналогии этих двух.
Может, у кого-нибудь есть примеры кода?
Нужно именно средствами VBA, т.к. таблицы обычно огромные.