У меня есть лист Excel с промежуточными итогами, который я использую для согласования учетной записи. Промежуточные итоги находятся в столбцах F и H. Когда они сбалансируются, я хочу удалить все строки в этой группе промежуточных итогов.
На этом листе формула промежуточного итога включает строки, которые она вычисляет (в этом случае я хочу удалить из строк 104-109, поэтому могу получить 104 из формулы =SUBTOTAL(9,F104:F108)
, поэтому я пытался извлечь первую строку, а затем передать ее в диапазон удаляемых строк.
ОБНОВЛЕНИЕ: изменен скрипт
Упростил, но по-прежнему получаю несоответствие типов в строке Rows(y & ":" & i).EntireRow.Delete
.
Sub QuickKill()
Dim i
Dim y
For i = 1910 To 1 Step -1
If Range("F" & i).Value = Range("H" & i).Value Then
y = Mid(Range("F" & i).Formula, 14, CInt(Len(i)))
Rows(y & ":" & i).EntireRow.Delete
End If
Next i
Конец сабвуфера
Любая помощь / руководство очень ценится! Заранее спасибо.
MsgBox Range("F" & i).DirectPrecedents.Address
- person Slai   schedule 23.09.2016