Лично я не морочился бы с формулами, а использовал бы простенькую UDF [vba]
Код
Public Function Propusk(RR As Range, N As Integer) As String
Counter = 0
For i = 1 To RR.Rows.Count If Trim((RR.Cells(i, 1).Value)) <> "" Then Counter = Counter + 1 If Counter = N Then Propusk = RR.Cells(i, 1).Value Exit For End If End If Next i
End Function
[/vba]
Лично я не морочился бы с формулами, а использовал бы простенькую UDF [vba]
Код
Public Function Propusk(RR As Range, N As Integer) As String
Counter = 0
For i = 1 To RR.Rows.Count If Trim((RR.Cells(i, 1).Value)) <> "" Then Counter = Counter + 1 If Counter = N Then Propusk = RR.Cells(i, 1).Value Exit For End If End If Next i
Мало того, что я в формулах не очень разбирась, про макросы молчу но потыкав, показалось, что он выполняюет обратную ф-цию убирает пробелы и фориурует сптсок без пробелов, а мне необходимо оставлять каждую 4 строчку пустой
Мало того, что я в формулах не очень разбирась, про макросы молчу но потыкав, показалось, что он выполняюет обратную ф-цию убирает пробелы и фориурует сптсок без пробелов, а мне необходимо оставлять каждую 4 строчку пустойLiliput101
Добрый день. По данным в примере можно так (инструкция: скачать файл, открыть, нажать на кнопку. макросы должны быть разрешены) [vba]
Код
Sub ins_rows() For r = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1 If Not IsEmpty(Cells(r, 4).Value) Then s1 = Replace(Replace(Cells(r, 4), Chr(34), ""), "!", "") s2 = Replace(Replace(Cells(r - 1, 4), Chr(34), ""), "!", "") If s2 <> s1 Then Rows(r).Insert End If Next End Sub
[/vba]
Добрый день. По данным в примере можно так (инструкция: скачать файл, открыть, нажать на кнопку. макросы должны быть разрешены) [vba]
Код
Sub ins_rows() For r = Cells(Rows.Count, 4).End(xlUp).Row To 2 Step -1 If Not IsEmpty(Cells(r, 4).Value) Then s1 = Replace(Replace(Cells(r, 4), Chr(34), ""), "!", "") s2 = Replace(Replace(Cells(r - 1, 4), Chr(34), ""), "!", "") If s2 <> s1 Then Rows(r).Insert End If Next End Sub