此代碼將有一個彈出窗口詢問範圍。
我想設置一個修復範圍。
我嘗試以下,但其中非正在Excel Marco設置範圍。地址
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
使用'Range'的參數都是字符串,那麼接下來需要在報價時:'工作表(「Sheet1」)。範圍(「A1:O300」)' –