VBA-instr(),left(),mid(),right()
Sub matclear()Dim matname(1000) As StringDim p1 As IntegerDim p2 As IntegerDim i As IntegerDim length As IntegerDim tempstr As Stringi = 1DoIf i = 1 Thenp1 = InStr(Cells(i, 1), “[”)p2 = InStr(Cells(i, 1), “]”)matname(i) = Mid(Cells(i, 1), p1 +
原创
2021-02-07 19:05:18 ·
2220 阅读 ·
0 评论