Excel 宏集 range.address

Question

此代碼將有一個彈出窗口詢問范圍。
我正在嘗試設置固定范圍。
我嘗試了以下但沒有一個工作

Set WorkRng.Address = Shee1.Range(A1, O300)   
Set WorkRng = Shee1.Range(A1, O300)

原始代碼：

xTitleId = "KutoolsforExcel"
Set WorkRng.Address = Worksheets("Sheet1").Range(A1, O300
Set WorkRng = Application.Selection`
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
xStr = Application.InputBox("Text", xTitleId, "", Type:=2)
Application.ScreenUpdating = False
For i = WorkRng.Rows.Count To 1 Step -1
    Set xRow = WorkRng.Rows(i)
    Set rng = xRow.Find(xStr, LookIn:=xlValues)
If rng Is Nothing Then
       xRow.Delete
    End If

Answer 1

Set WorkRng = Application.Selection
Set WorkRng = ActiveSheet.Range("E1:E800")