как установить диапазон

Question

Пожалуйста, исправьте следующее:

Dim FirstCellRow As Integer
FirstCellRow = 2

Dim LastCellRow As Integer
LastCellRow = 50

Dim FirstCell As Range
FirstCell = Cells(FirstCellRow, "G")

Dim LastCell As Range
LastCell = Cells(LastCellRow, "G")

Dim Data As Range
Set Data = Range(FirstCell:LastCell)

Я не хочу использовать эту функцию: set Data = Range ("G2: G52") .

Answer 1

Dim FirstCellRow As Integer
FirstCellRow = 2

Dim LastCellRow As Integer
LastCellRow = 50

Dim FirstCell As Range
Set FirstCell = Cells(FirstCellRow, "G")

Dim LastCell As Range
Set LastCell = Cells(LastCellRow, "G")

Dim Data As Range

'You can use 3 type mothod
Set Data = Range(FirstCell, LastCell)
Set Data = Range("G" & FirstCellRow, "G" & LastCellRow)
Set Data = Range("G" & FirstCellRow & ":" & "G" & LastCellRow)