Дело в том, что таблица большая и еще много столбцов макросом заполняется в примере я привела только три столбца, также необходимо заполнять по всем трем фио только если в ячейках А2, А3, А4 указаны города, если например в ячейке А1 стоит город, а в ячейке А2 нет то таблицу заполняем только по одному городу, если есть в двух ячейках то по двум городам, если в трех по по трем.... то же самое и по ячейкам В2, В3, В4
Sub Лист()
index_row = Cells(2, 17)
town = Cells(2, 1)
fio = Cells(2, 2)
fio1 = Cells(3, 2)
fio2 = Cells(4, 2)
i = index_row - 1
If index_row = 5 Then i = 5
index_town = 5
Do
If Cells(i, 1) <> "" Then
index_town = i
End If
i = i - 1
Loop Until Not (i <> 4 And Cells(i + 1, 1) = "")
If Cells(index_town, 1) = "" Or Cells(index_town, 1) <> town Then
Cells(index_row, 1) = town
index_town = index_row
End If
If Cells(2, 2) = " " Then
Exit Sub
End If
Cells(index_row, 2) = fio
Range("C" & index_row).Select
ActiveCell.FormulaR1C1 = _
"=R[-6]C[4]+R[-6]C[5]+R[-6]C[6]"
Cells(2, 17) = index_row + 1
If Cells(3, 2) = "" Then
Exit Sub
End If
Cells(index_row + 1, 2) = fio1
Range("C" & index_row + 1).Select
ActiveCell.FormulaR1C1 = _
"=R[-6]C[4]+R[-6]C[5]+R[-6]C[6]"
Cells(2, 17) = index_row + 2
If Cells(4, 2) = "" Then
Exit Sub
End If
Cells(index_row + 2, 2) = fio2
Range("C" & index_row + 2).Select
ActiveCell.FormulaR1C1 = _
"=R[-6]C[4]+R[-6]C[5]+R[-6]C[6]"
Cells(2, 17) = index_row + 3
End Sub
