excel vba mid的用法

1^# 跳轉到 »

發表於 2015-6-11 14:27 | 顯示全部帖子

mid有函數和陳述式兩種用法

你這個用split比較好
下面給你參考，請小心使用，修改後沒辦法復原

Sub test()
Dim a, i, j
For i = 1 To 3
a = Split(Cells(i, 1), "@")
For j = 0 To UBound(a)
Cells(i, j + 2) = a(j)
Next j
Next i
End Sub

靜思自在 : 口說一句好話，如口出蓮花；口說一句壞話如口吐毒蛇。