Страницы: 1
RSS
Необходимо суммировать строки если в другим столбце таблицы есть объединение ячеек, Необходимо суммировать строки если в другим столбце таблицы есть объединение ячеек
 
Добрый день.
В столбце С необходимо суммировать строки если есть объединение ячеек и поместить результат в первую строку диапазона следующего столбца (D).
Количество столбцов и наполнение таблицы может быть разным, главный признак - объединение ячеек. Если нет объединения ячейки, то значение просто переносится в соседний столбец.
Если возможно, то макросом. Выделяешь необходимый диапазон столбца с данными - нажимаешь макрос - заполняется соседний столбец.
Изменено: Zagadka - 11.11.2025 14:16:25
 
Цитата
Zagadka написал: Выделяешь необходимый диапазон столбца с данными - нажимаешь макрос - заполняется соседний столбец.
Выделить два столбца (ЕГРН и Рыночная стоимость по участкам) и нажать на кнопку
Код
Sub SumIfMerge()
Dim iCl As Range
Dim iAr As Range
Dim iSum As Double
On Error Resume Next
Application.ScreenUpdating = False
Application.EnableEvents = False
For Each iCl In Selection.Columns(1).Cells
  iSum = 0
  If iCl.MergeCells Then
    For Each iAr In iCl.MergeArea.Cells
      iSum = iSum + iAr.Offset(, 1)
    Next
    iCl.MergeArea.Areas(1).Offset(, 2) = iSum
  Else
    iCl.Offset(, 2) = iCl.Offset(, 1)
  End If
Next
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub
Согласие есть продукт при полном непротивлении сторон
 
Вариант 2
Выделить только столбец с данными и запустить макрос. Объединенные ячейки определяются по 1му столбцу
Скрытый текст
Согласие есть продукт при полном непротивлении сторон
 
Всё работает, спасибо!
 
Исходные данные: именованный диапазон (A1:C39) с именем «data»
pq (на выходе столбец)
pq (на выходе таблица)
Страницы: 1
Читают тему
Наверх