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、運行即可

完成摘要里核算數據抓取