Question

所以我一直在使用一些宏编码来根据一列中的值来过滤行。这对我在一般意义上所做的工作起了作用，但是我需要做一些更具体的事情。我一直在使用的是：

 Dim c As Range, x As Integer
'other code here
Set c = shtMaster.Range("Y5")  'Start search in Row 5
'other code  here
While Len(c.Value) > 0
        'If value in column Y ends with specified value,copy to report sheet
        If c.Value Like "*2130" Or c.Value Like "*0853" Then
'rest of macro follows

我一直试图弄乱If行，这样我就可以为前四位和后四位添加条件，而不是只使用基于最后四位的值。例如，我可能希望在列Y中搜索前四位数为“1234 *”但其后四位数不是“* 5678”的所有值。所以，如果我有一个电子表格：

     Column Y  
第1行12345678
  第2行12341234
  第3行12340000

然后它会拉第2行和第3行而不是第1行。我想使用上面的结构，因为这就是所有内容已经写好的，但我似乎无法正确使用语法。我想要用我已编写的结构做什么？如果有，有什么建议吗？感谢。

Answer 1

If c.Value Like "1234*" And Not c.Value Like "*5678" Then 

'Values start with 1234 and do not end in 5678.

End If

根据前四位数字和最后四位数字过滤一行是一列

1 个答案: