在 Excel 2010 中,使用 VBA,如何在找到某个字符时拆分字符串?
Let say A1
= "This is a | test of | the | emergency broadcast signal"
我将其分配给一个变量,例如
strColumnA = Range("A" & CStr(currRow)).Value
现在我想在工作表 2 的末尾追加 4 个新行。所有 A 列,例如:
A1 = "This is a"
A2 = "test of"
A3 = "the"
A4 = "emergency broadcast signal"
有任何想法吗?
使用它是因为不需要循环,而且离开也很重要Application.Trim()
in:
Sub test()
Dim r As Variant, s As String
s = [a1].Value
r = Split(Application.Trim(s), "|")
[b1].Resize(UBound(r, 1) + 1) = Application.Transpose(r)
End Sub
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)