Работа с объединенными ячейками MergeCells

Sub ddd()
' Ser rn = Range("A1:M10")
 
 For Each r In Range("A1:M10") 'диапазон для поиска
    If r.Value = "Сумма" Then  ' поиск ячеки искомого текста
      If r.MergeCells Then
         r.Select  ' проверка на объединение
'      Debug.Print Selection.Address(ReferenceStyle:=xlRC, ColumnAbsolute:=True, RowAbsolute:=True);
      Debug.Print Selection.Column 'НАЧАЛЬНОЕ ЗНАЧЕНИЕ СТОЛБЦА
      Debug.Print Selection.Column + Selection.Columns.Count - 1 'КОЛ-ВО столбцов объединено
      
      For i = Selection.Row To 11
        For j = Selection.Column To Selection.Column + Selection.Columns.Count - 1
           If IsNumeric(Cells(i, j).Value) And Cells(i, j).Value  "" Then
              ColumnVal = j
              Debug.Print "Сначение суммы находится в столбце:" & ColumnVal
              Exit Sub
           End If
        Next j
      Next i
      
    End If
  End If
 Next
 
End Sub

Добавить комментарий

Ваш адрес email не будет опубликован.