В качестве варианта примените макрос.
Sub Numering_MergeCells()
I = 1
For Each S In Selection
If Not S.MergeCells Then
S.Offset(0, -1).Value = I
I = I + 1
End If
If S.MergeCells Then
N = Application.WorksheetFunction.Find(":", S.MergeArea.Address) - 1
If S.Address = Left(S.MergeArea.Address, N) Then
S.Offset(0, -1).Value = I
I = I + 1
End If
End If
Next
End Sub
Пример применения на рисунке ниже
Можно сделать нумерацию и в самих ячейках, тогда в макросе надо поменять все вхождения S.Offset(0, -1).Value на s.value.
Успеха Вам!