2016-09-23 39 views
1

此代碼將有一個彈出窗口詢問範圍。
我想設置一個修復範圍。
我嘗試以下,但其中非正在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 
+2

使用'Range'的參數都是字符串,那麼接下來需要在報價時:'工作表(「Sheet1」)。範圍(「A1:O300」)' –

回答

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

請提供一些上下文代碼 –

+0

這不提供問題的答案。一旦你有足夠的[聲譽](https://stackoverflow.com/help/whats-reputation),你將可以[對任何帖子發表評論](https://stackoverflow.com/help/privileges/comment);相反,[提供不需要提問者澄清的答案](https://meta.stackexchange.com/questions/214173/why-do-i-need-50-reputation-to-comment-what-c​​an- I-DO-代替)。 - [來自評論](/ review/low-quality-posts/17264090) – Omi