在 case 语句中使用命名单元格来结束自动过滤器不起作用

Question

我想为代码使用单元格定义名称而不是实际单元格引用（大小写“$L$75”）来识别自动过滤器的数据结尾。目前只是用单元格定义的名称错误替换单元格引用。过滤器不可供用户使用，这就是为什么它不只是设置为 table.

Sub X_HideBlankRows_Angebot()

 ' ***** Hide Blank rows in Kosten Table

 ' x - Defined Cell Names ANKosten
 ' x                      ANKostenEndCell

Sheets("5_Angebot").Select

Dim c As Range
Dim i As Integer
Dim rng As Range
Set rng = Range("ANKosten")        ' x
i = rng.Cells(1, 1).Column - 1

For Each c In Range("ANKosten")    ' x
    Select Case c.Address
    Case "$L"
       c.AutoFilter Field:=c.Column - i, Criteria1:="inUse", _
         Visibledropdown:=False
    Case Else
       c.AutoFilter Field:=c.Column - i, _
         Visibledropdown:=False
 End Select
Next

Range("B51").Select

End Sub

Answer 1

如果要比较地址并作为参考的命名范围，则必须使用该范围的地址。

Case Range("NameOfRange").Address

在 case 语句中使用命名单元格来结束自动过滤器不起作用

Using named cell in case statment to end autofilter not working

excel

vba

reference