Excel 宏编码实现，指定列的字符串截取

1、打开Excel凭证，启用宏，ALT+F11 或 菜单“视图”-"宏-查看宏"

Sub 分割字符串1()
Dim i As Integer
Dim b() As String
Dim length '用length表示数组的长度
Dim sublength
Dim bb() As String '筛选日期 2 点
For i = 2 To 20000
b() = Split(Cells(i, 6).Value, "_")
length = UBound(b) - LBound(b) + 1

If (length > 1) Then
bb() = Split(b(1), ".")
sublength = UBound(bb) - LBound(bb) + 1
If (sublength < 2) Then
Cells(i, "g") = b(1)
End If

End If

Next i
End Sub

'截取摘要里的核算项，即取第一个下划线后面的所有字符（x），如果x是2017.1.31这样带有2个点的日期的格式，会忽略掉

'F列是摘要 ，G列是截取的核算项

2、运行即可

完成摘要里核算数据抓取