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

Excel宏设置range.address

1 个答案: