如何将我的范围设置为可变范围_Excel VBA

Question

我需要优化 VBA 代码的速度。

由于Range3并不总是150000行，有时会少，有时会多。

我想将 Range3 设置为基于实际行数的变量。

我当前的VBA代码

子道具()

将 Sheet3 设为字符串，将 Range3 设为字符串

Sheet3 =“原始数据”

范围3 =“B2：B150000”

Dim Rng1 作为范围 设置 Rng1 = Sheets(Sheet3).Range(Range3)

...

Answer 1

• 使用

  End(xlUp).Row

获取最后一行#

Sub PROP()
    Dim Sheet3 As String, Range3 As String
    Dim lastRow As Long
    Sheet3 = "Raw Data"
    Range3 = "B2:B"
    Dim Rng1 As Range
    With Sheets(Sheet3)
        lastRow = .Cells(.Rows.Count, 2).End(xlUp).Row
        If lastRow > 1 Then
            Set Rng1 = .Range(Range3 & lastRow)
            ' your code
        End If
    End With
End Sub