Ссылочная ячейка VBA не изменяется при добавлении или удалении новой строки

Question

Private Sub Worksheet_Activate()    
If Range("K59").value = 0 Then    
Columns("K").EntireColumn.Hidden = True    
Else    
   Columns("K").EntireColumn.Hidden = False    
End If    
End Sub    

"Сэр, у меня есть следующий код, где ячейка K59 имеет значение суммы от K3 до K50. Это ноль, затем столбец скрытия столбца и показ столбца, если K59 имеет какое-либо значение. Но когда я добавляю или удаляю строку в моем Excel, тогда мой Итог прибудет в K60 или K58, но в VBA это только K59. Как эта ссылка "K59" автоматически изменяется, когда строка удаляется или добавляется в Excel "

Answer 1

Вы можете использовать этот код ниже для динамической ссылки на ячейку

Private Sub Worksheet_Activate()
If Range("K65000").End(xlUp).Value = 0 Then
Columns("K").EntireColumn.Hidden = True
Else
Columns("K").EntireColumn.Hidden = False
End If
End Sub

Answer 2

Вы можете использовать это, если хотите найти последнюю непустую ячейку в столбце K:

lastRow = Cells(Rows.Count, "K").End(xlUp).Row