Question

我有一个从1 000 000到9 999 999 (Total: 9,000,000)的数字序列。我已经在excel中生成了它们，我想以下列格式匹配它们

最后6位数字：

 1. XXX XXX (For example, 000 000 or 111 111 or 222 222)
 2. X00 000 (For example, 100 000 or 200 000 or 300 000)
 3. XYY YYY (For example, 122 222 or 233 333 or 411 111)
 4. XY0 000 (For example, 230 000 or 750 000 or 120 000)
 5. XYZ ZZZ (For example, 231 111 or 232 222 or 233 333)
 6. X00 Y00 (For example, 200 300 or 100 400 or 500 600)
 7. XXX Y00 (For example, 333 300 or 666 600 or 777 700)
 8. XXX YYY (For example, 111 333 or 222 555 or 555 666)
 9. XX YY ZZ (For example, 11 22 33 or 22 33 44 or 44 55 66)
 10. X0 Y0 Z0 (For example, 10 20 30 or 30 40 50 or 60 70 80)

excel 2013中是否可以使用regex或vba？

由于我对Excel没有相关知识，我是否应该寻求某人的帮助来获得这种匹配的简单程序？

Answer 1

您可以使用VBA，但我相信您需要单独设置每个分类，并确保它们在一个顺序中以便不重叠。

这是一个部分示例，显示了一些您应该能够扩展的VBA技术。我只处理了最右边的6位数，最初构造了一个字符串;并且还将每个数字放入数组元素中以使测试公式更简单。

Option Explicit
Function Classify(N As Long) As String
  Dim I As Long
  Dim S(1 To 6) As String
  Dim sN As String
sN = Format(Right(N, 6), "000000")
For I = 1 To 6
    S(I) = Mid(sN, I, 1)
Next I

If Left(sN, 3) = Right(sN, 3) Then
    Classify = "XXX XXX"
ElseIf S(1) <> 0 And Mid(sN, 2) = 0 Then
    Classify = "X00 000"
ElseIf S(1) <> 0 And Mid(sN, 2) Like WorksheetFunction.Rept(S(2), 5) Then
    Classify = "XYY YYY"
ElseIf S(1) <> 0 And S(2) <> 0 And S(1) <> S(2) And Mid(sN, 3) = 0 Then
    Classify = "XY0 000"
elseif ...


End If


End Function

在excel 2013中匹配数字序列与模式

1 个答案: