求助一个excel vba问题

2025年03月13日 01:26

有3个网友回答

网友（1）：

'不需要具体到哪列，直接恢复显示可以用以下代码
If ActiveSheet.FilterMode Then
    ActiveSheet.ShowAllData
End If 

'如果要查找具体是哪列做了筛选，可以用以下代码查找
If ActiveSheet.FilterMode Then
    For i = 1 To 10
        If ActiveSheet.AutoFilter.Filters(i).On Then
            ‘添加你的代码
        End If
    Next
End If

网友（2）：

应该不是强制声明变量的问题。
inputbox返回值为字符，cells的行列坐标需要数值，所以需要声明其为数值。
如果不加声明，可以将代码改为如下形式（转化字符为数字）。可以一试。
cells(y+0,x+0).select

网友（3）：

可以做，源文件发出来。