VBA for Excel 2007 и выше

Question

Я написал код VBA, который смотрит на столбец, находит следующую ячейку в этом столбце, которая содержит данные, и устанавливает ячейки между ними как диапазон. Это было первоначально написано для книги Excel 2003. И, конечно же, эта же команда не работает для книги 2007 года и выше. Может ли кто-нибудь помочь перевести это на 2010 Excel VBA.

Вот исходный код:

Dim first As Integer 
Dim Last As Integer 
Dim i As Integer 
Dim n As Integer 

n = Worksheets("Sheet1").Range("A:A").Cells.SpecialCells(xlCellTypeConstants).Count - 2 
Range("A3").Select 

For i = 1 To n 
    first = (ActiveCell.Row + 1) 
    Selection.End(xlDown).Select 
    Last = (ActiveCell.Row - 1) 
    Range("J" & first & ":J" & Last).Select 
    Selection.Value = "=J$" & (first - 1) 
    Range("A" & Last + 1).Select 
Next i 

Когда я запускаю его в Excel 2010. Вместо того чтобы найти следующую ячейку в столбце А, который содержит данные, которые он просто выделить весь столбец.

Спасибо заранее.

Answer 1

Sub GoDownList() 
Dim first As Integer 
Dim Last As Integer 
Dim i As Integer 
Dim n As Integer 

first = Range("A3").Row 
Last = Range("A3").End(xlDown).Row 
Range("J" & first & ":J" & Last).Value = "=J$" & (first - 1) 

Do 
    first = Range("A" & Last).End(xlDown).Row 
    Last = Range("A" & first).End(xlDown).Row 
    Range("J" & first & ":J" & Last).Value = "=J$" & (first - 1) 
    If Range("A" & Last).End(xlDown).Row > 1000000 Then 
     Exit Do 
    End If 
Loop 
End Sub 

Я думаю, что ваш код не работает, потому что вы использовали Selection.Value вместо Selection.Formula.