значение ячейки Increment и смещение

Question

Dim storenum As Integer, cellval As Range, cellval1 As Range 
cellval = Range("A6").Select 
cellval1 = Range("A7").Select 
Select Case cellval 
    Case Is = Range("A6").Activate 
    Range("A6").Value = 1 

    End Select 
Select Case cellval1 
    Case Is = Range("A7").Activate 
    Range("A7").Value = 2 


End Select 

Когда кнопка команды щелкнул A6 будет иметь значение 1, а затем перейти к A7, если нажатие кнопки снова будет увеличиваться на 1, что даст 2.

EDIT: Как сделать значение оставайтесь одинаково, даже одна ячейка удаляется. Я думаю, что использовать с Static, но я не знаю, как правильно это сделать, я все время получаю ошибки.

Answer 1

Попробуйте использовать Public Variable так:

Public n As Long '~~> Declare a public variable at the top of the module 

---

Тогда в ваших суб попробовать что-то вроде этого:

With Sheets("Sheet1").Range("A6").Offset(n, 0) '~~> change to suit 
    If n = 0 Then 
     .Value = 1 
    Else 
     .Value = .Parent.Range(.Address).Offset(-1, 0) + 1 
    End If 
    n = n + 1 
End With