Excel Marco设置range.address

这段代码将有一个popup窗口要求范围。
我正在尝试设置一个修复范围。
我尝试了以下，但没有他们正在工作

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")