在使用Autofilter时,将数字转换为字符串可以解决这个问题。 示例代码如下:
Sub filterByString() Dim ws As Worksheet Set ws = ThisWorkbook.Worksheets("Sheet1")
'在A列中输入数字
ws.Range("A1:A10").Value = Application.Transpose(Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10))
'将数字转换为字符串
ws.Range("A1:A10").NumberFormat = "@"
'使用Autofilter并以字符串作为条件
ws.Range("A1:A10").AutoFilter Field:=1, Criteria1:="5"
End Sub