检查字段是否以X空格开头

时间:2015-03-26 07:42:39

标签: excel vba

这就是我得到的,但它似乎“忽略”我给它的空间,任何想法?

Sub test()
With ActiveSheet
    .AutoFilterMode = False
    With Range("a1", Range("a" & Rows.Count).End(xlUp))
        .AutoFilter 1, "      *"
        On Error Resume Next
        .Offset(1).SpecialCells(12).EntireRow.Select
    End With
    .AutoFilterMode = False
End With
End Sub

编辑: 这就是我试图选择的字段的样子:

 (lotsofspaces)         (ID)        (Description) 
                     1-123454-154 - Hello World

2 个答案:

答案 0 :(得分:1)

Microsoft Excel使用波形符(〜)作为标记来指示下一个字符是文字​​。尝试使用

.AutoFilter 1, "~ ~ ~ ~ ~ ~ ~*"

答案 1 :(得分:0)

基于srj19的想法的可能解决方法。

用彩色空格替换X个数字连续的空格,然后按颜色过滤。