Код достигает того, что мне нужно, он использует цель поиска, чтобы установить все ячейки в ноль в диапазоне столбцов I156, чтобы последняя ячейка в этом диапазоне регулировалась значением в ячейке в соответствующем столбце F.
My Вопрос заключается в использовании концепции в коде ниже, есть ли способ расширить код для поиска цели в других столбцах.
Столбцы поиска цели: I, R, AA, AJ, AS, BB Столбцы изменения переменных: F, O, X, AG, AP, AY
Любая помощь или совет будут полезны, если возможно.
Application.ScreenUpdating = False
Dim i As Long, lastrow As Long
With ActiveSheet
lastrow = Cells(Rows.Count, "I").End(xlUp).Row
For i = 156 To lastrow
Range("I" & i).GoalSeek Goal:=0, ChangingCell:=Range("F" & i)
Next i
End With
Application.ScreenUpdating = True
End Sub