Получить последнюю ячейку с данными в столбце в Excel 2007

Question

Я пытаюсь написать макрос для создания графиков в Excel 2007. Я не знаю, сколько ячеек будет в диапазоне для одной из серии данных (это может быть где-то от 50 до 1000) , Я гуглил это и нашел ответы, но они есть по всей карте, и те немногие, что я пробовал, не помогли мне вообще.

Я новичок в макросах vba, но я опытный программист.

Я нашел такие примеры, как:

Sub FindLast2()
    x = ActiveSheet.UsedRange.Rows.Count
    ActiveCell.SpecialCells(xlLastCell).Select
End Sub

Я не уверен, работает ли это и работает ли, как бы я включил это в свой макрос

Вот мой макрос в его нынешнем виде:

Sub temp_graph_5()
'
' temp_graph_5 Macro
'

'
    Sheets.Add After:=Sheets(Sheets.Count)
    Sheets(2).Select
    Sheets(2).Name = "Temperature"
    ActiveSheet.Shapes.AddChart.Select
    ActiveChart.ChartType = xlLine
    ActiveChart.SetSourceData Source:=Sheets(1). _
        Range("B2:B324")
    ActiveChart.SeriesCollection(1).Name = "=""Temperature"""

End Sub

'B324' - это раздел, который мне нужен, чтобы быть переменным.

Любая помощь очень ценится.

Answer 1

Этот код может помочь достичь того, что вам нужно:

 Sub temp_graph_5()
    Dim myRng As Range
    Dim lastCell As Long

    //Get range to be plotted in chart
    lastCell = Worksheets(1).Range("B2").End(xlDown).Row
    Set myRng = Worksheets(1).Range("B2:B" & lastCell) 

    //Add worksheet and name as "Temperature"
    Dim newSheet As Worksheet

    Set newSheet = Worksheets.Add(After:=Worksheets(Worksheets.Count))
    newSheet.Name = "Temperature"
    newSheet.Select

    //Add a new chart in Temperature and plot values from sheet 1
    Charts.Add

    With ActiveChart
        .ChartType = xlLine
        .SetSourceData Source:=myRng, PlotBy:=xlColumns
        .Location Where:=xlLocationAsObject, Name:="Temperature"
    End With

End Sub

Answer 2

sub test()
last_row_all = Range("A65536").End(xlUp).Row
msgbox last_row
end sub