範圍類的刪除方法失敗

Question

我有一些代碼，我正在使用索引（匹配）基於單元格與下拉菜單。當用戶選擇某種安全性時，會輸出一個CUSIP，然後粘貼來自bloomberg的公式以將數據輸出到excel中。

然後我繼續創建一個表，但想過濾使用自動篩選器的表，並刪除不滿足過濾標準的行，但似乎沒有工作出於某種原因！我還插入了一個ActiveX控件窗體按鈕，這樣當用戶雙擊下拉菜單時，他們可以搜索安全性並自動完成。

請幫忙，謝謝！

Sub INDEX_MATCH_CUSIP_TO_SHORTDESCRIPTION() 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

Sheets("Sheet4").Range("B3:E100").Delete 

Range("B2").Select 
test = Application.WorksheetFunction.Index(Sheets("DEX Spread Report (Corp)").Range("B7:B1600"),   Application.WorksheetFunction.Match(ActiveCell.Value, Sheets("DEX Spread Report (Corp)").Range("D7:D1600"), 0), 1) 
ActiveCell.Offset(1, 0).Value = test 

Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 

End Sub 

Sub BBRG_FORMULAS_FOR_SECURITY() 

Application.ScreenUpdating = False 
Application.Calculation = xlCalculationManual 

Dim CUSIPS As String 

    Sheets("Sheet4").Select 
    Range("B2").Select 

CUSIPS = ActiveCell.Offset(1, 0).Value 

ActiveCell.Offset(2, 0).Value = "=BDS(""" & CUSIPS & """ & ""& CUSIP"",""ALL_HOLDERS_PUBLIC_FILINGS"", ""STARTCOL=1"", ""ENDCOL=1"")" 
ActiveCell.Offset(2, 1).Value = "=BDS(""" & CUSIPS & """ & ""& CUSIP"",""ALL_HOLDERS_PUBLIC_FILINGS"", ""STARTCOL=6"", ""ENDCOL=8"")" 


Application.ScreenUpdating = True 
Application.Calculation = xlCalculationAutomatic 


End Sub 


Sub Create_Table_and_AutoFilter() 

Dim wksDest As Worksheet 
Dim LastRow As Long 
Dim rng  As Range 
Dim rngDelete As Range 

Sheets("Sheet4").Select 
Set wksDest = Worksheets("Sheet4") 

LastRow = Cells(Rows.Count, 2).End(xlUp).row 
LastRow1 = Cells(Rows.Count, 2).End(xlUp).row 

ActiveSheet.ListObjects.Add(xlSrcRange, Range(Cells(4, 2), Cells(LastRow, 5)), , xlYes).Name = "HoldersTable" 

With wksDest 
Set rng = Range(Cells(4, 2), Cells(LastRow1, 5)) 
rng.AutoFilter Field:=1, Criteria1:="<=1000" 
Set rngDelete = rng.SpecialCells(xlCellTypeVisible) 
rng.AutoFilter 
rngDelete.EntireRow.Delete 
End With 

End Sub 

Answer 1

你最有可能試圖刪除表頭

嘗試從With wksDest的代碼與下面的代碼段代入End With：

With wksDest.Range(Cells(4, 2), Cells(LastRow1, 5)) 
    .AutoFilter Field:=1, Criteria1:="<=1000" 
    If Application.WorksheetFunction.Subtotal(103, .Cells.Resize(,1)) > 1 Then .offset(1).Resize(.Rows.Count - 1).SpecialCells(xlCellTypeVisible).EntireRow.Delete 
    .AutoFilter 
End With