'j表示数组的第几列 a(i, j) = Split(tmp, ＂|＂)(j - 1) '把tmp用”|“符号切割成5段,依次保存到数组第i行的5个列中 Next Loop Close #,xcfCsk

Sub Macro1()' Selection.TextToColumns Destination:=Range("B1"), DataType:=. TrailingMinusNumbers:=TrueEnd Sub勾选其他,输入空格即可分列

运用数组这个概念,用split这个函数去查找中间的分隔符,然后循环依次向后在单元格中赋值.

Sub 分离() For i = 2 To 7 a = Cells(i, 1) '取1组拼音 If Mid(a, 2, 1) = "h" Then '第2个为"h"则执行 b = Mid(a, 1, 2) '取前2个字符 Cells(i, 2) = b '赋值到单元格 a = .

Sub 拆分字符串()Dim str As StringDim n As Integerstr = [a1].Valuen = Application.Ceiling(Len(str) / 12, 1)Debug.Print nFor r = 2 To n + 2 Cells(r, 1).Value = Mid(str, (r - 2) * 12 + 1, 12)Next rEnd Sub

Sub 分列() Sheets(＂数据＂).Select'激活“数据”工作表 Selection.ClearContents'清除“数据”表中,当前选中区域的内容 Range(＂B3＂).Select'选中B3单元格 ActiveSheet.Paste'粘贴 ActiveSheet.Paste'粘贴 Sheets(＂统计＂).Select'激活“统计”工作表 End Sub你的代码里根本没有分列啊~

A列按” , “号分裂:Sub test() Columns(＂a:a＂).TextToColumns Destination:=Range(＂A1＂), DataType:=xlDelimited, TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 1), Array(2, 1)), TrailingMinusNumbers:=True End Sub

一、对于第1、3两个问题,我写的这个宏可以完美解决,代码如下:Sub 分列() '以空格为分隔符,连续空格只算1个.对所选中的单元格进行处理 Dim m As Range, .

在b1中输入=left(a1,find(＂,＂,a1)-1)在c1中输入=substitute(a1,b1&＂,＂,＂＂)选定b1:c1下拉填充.

private sub commandbutton1_click()dim r1, r2, i as integerdim arr r1 = 1 r2 = 1 do until cells(r1, 1) = ＂＂ arr = split(cells(r1, 2).value, ＂;＂) for i = 0 to ubound(arr) cells(r2, 3) = cells(r1, 1) cells(r2, 4) = arr(i) r2 = r2 + 1 next r1 = r1 + 1 loopend sub祝你成功!