小试牛刀，正则表达式的应用

在我们小区，每年9月份小区会以自愿的方式举办一次聚餐，以达到交流促进邻里关系的目的
在微信接龙的方式下会收到如下的数据：

参加人员接龙

我试过EXCEL的自动填充

image.png

不是很理想，里面会有一些错误，而且对文字的数不能做统计。 有没有比较理想的方式可以较快速地得到我要的结果呢？

这个时候，我想起了正则表达式，从《自学是门手艺》里面有讲到正则表达式，现 在学VBA又看到了正则表达式，正好遇到这次聚餐接龙，要对人员进行统计，就边学边开始用了。

坚持一惯的做法，遇到问题，先将问题拆解，拆解成一个个可以解决的小问题，小问题解决了，大问题也会得到解决。
先有一个大概的图如下：

问题拆解

整个解题过程的步骤图如下：

image.png

每一步可以细分为更小的步骤：
这里以提取大人数为例：

提取大人数.gif

将各个步骤完成之后，我们利用编好的程进行操作，如图：

操作过程.gif

从一段接龙数据，到整理过后的数据

image.png

最后贴上两段代码：
提取大人数的代码如下：

Sub 提取大人数()
Dim regx As Object, mat, n%, k, rng, rngs
Set rngs = Sheet4.Range("a2:a" & Cells(Rows.Count, 1).End(xlUp).Row)
Set regx = CreateObject("vbscript.regexp")
Range("B2:e" & Cells(Rows.Count, 1).End(xlUp).Row).ClearContents
With regx
    .Global = True
    .Pattern = "\D(个|個)?大人"
    
    For Each rng In rngs
        Set mat = .Execute(rng)
        For Each k In mat
            n = n + 1
            Cells(rng.Row, n + 1) = Left(k, 1)
        Next
        n = 0
    Next
  End With
End Sub

由文字变数字的代码：

Sub 更改数字()
Dim rng, rngs As Range
Dim i%
Dim dic As New Dictionary
Dim arr
arr = Sheet4.Range("K2:L" & Cells(Rows.Count, 11).End(xlUp).Row)
Set rngs = Sheet4.Range("B2:C" & Cells(Rows.Count, 
2).End(xlUp).Row)
'定义字典
 For i = 0 To UBound(arr, 1) - 1
 If Not dic.Exists(arr(i + 1, 1)) Then     
    dic.Add arr(i + 1, 1), arr(i + 1, 2)
 End If
 Next
For Each rng In rngs
For i = 0 To dic.Count - 1
     rng.Replace what:=dic.Keys(i), replacement:=dic.Items(i)
    Next
  Next
End Sub

总结：
现在社会产生的数据越来越多，对于同我们生活相关的信息，怎样与数据相处，从而帮助我们做决策越来越重要，学会编程不一定是去当程序员，而是手上多一个工具解决问题。
学知识的过程，只有将知识用起来，才会让自己越学越有劲，在实践中对知识的消化会更好。