h8nor

Настоящий стандарт устанавливает единицы физических величин (далее - единицы), применяемые в стране: наименования, обозначения, определения и правила применения этих единиц.

• В примере указана ссылка на ячейку с текущей датой. Если необходимо привязаться к дате на ПК, то формула в 2:44 будет: =$E5<СЕГОДНЯ()
  
• В Excel даты представляются в виде чисел. Поэтому для выделения цветом разницы в 30 дней (и старше) задаём формулу для условного форматирования: =$E5<СЕГОДНЯ()-29

В Excel все даты сохраняются в виде целых чисел, а все значения времени — в виде десятичных дробей. В этой системе Excel может выполнять со значениями даты и времени операции сложения, вычитания и сравнения, как и с любыми другими числами. Операции со всеми значениями дат производятся с использованием этой системы.

merge = Cells(1, 2).MergeArea.Address(RowAbsolute:=False, ColumnAbsolute:=False)

1. Excel 2007 и старше:
   
2. Разработать алгоритм, затем написать макрос. Программ не существует.

• lanmarket.ua/stats/rasshirennye-nastrojki-mikrotik...
• asp24.com.ua/blog/dinamicheskij-sheiping-v-mikrotik
• wiki.mikrotik.com/wiki/%D0%A0%D1%83%D0%BA%D0%BE%D0...
• www.technotrade.com.ua/Articles/how_to_limit_throu...

1. Понимание основ программирования (переменные/операторы/логические операции/циклы)
   
2. Понимание объектной структуры
   
3. Понимание поставленной задачи

Option Explicit
Option Base 1
'123456789012345678901234567890123456h8nor@ya567890123456789012345678toster56789

Sub Merge_by_Rows() ' Без форматирования границ
  Dim i As Integer, j As Integer, cnt As Integer
  Dim arr() As Variant, s As String
  
  With ActiveSheet.UsedRange ' Кол-во столбцов определяется по 1-й строке
    arr = Range(Cells(1, 1), Cells(.Rows.Count + 1, Range("A1").End(xlToRight).Column))
  End With
  
  cnt = 1: s = get_Row(arr, cnt)
  For i = LBound(arr, 1) + 1 To UBound(arr, 1)
    If get_Row(arr, i) <> s Then
      For j = LBound(arr, 2) To UBound(arr, 2)
        With ActiveSheet.Range(Cells(cnt, j), Cells(i - 1, j)).Offset(, UBound(arr, 2))
          .Merge
          .HorizontalAlignment = xlCenter
          .VerticalAlignment = xlCenter
          .Value = arr(cnt, j)
        End With
      Next j
      cnt = i: s = get_Row(arr, cnt)
    End If
  Next i
End Sub

Function get_Row(ByVal arr As Variant, ByVal num_Row As Integer) As String
  Dim j As Integer
  
  For j = LBound(arr, 2) To UBound(arr, 2)
    get_Row = WorksheetFunction.Trim(get_Row & " " & arr(num_Row, j))
  Next j
End Function