想要利用VBA实现分列，怎么操作

yanwinda

想要把数据进行分列，分两列显示，
例如：
[tr][/tr]
[tr][/tr]
[tr][/tr]

想要吧A列的数据拆分，品名显示在前，FDD显示在后，句号不显示。用VBA代码怎么实现

各位老师帮忙写下代码，最好能注释说明下，谢谢了。VBA小白求教

182197315

Sub 分列()
Dim n%
n = [A65536].End(xlUp).Row
Application.DisplayAlerts = False
Range("A1:A" & n).TextToColumns DataType:=xlDelimited, OtherChar:="。"
Application.DisplayAlerts = True
End Sub

yanwinda

182197315 发表于 2016-7-26 11:58
Sub 分列()
Dim n%
n = [A65536].End(xlUp).Row

这组代码没用呀，没反应

yanwinda

求老师们指导下呀

awsa888

yanwinda 发表于 2016-7-26 14:48
求老师们指导下呀

录制呗，多简单的事，不用求人。

zhangzhang

Public Sub ttt()
Dim arr, brr, Tmp
Dim i&
arr = Range("A1").CurrentRegion
ReDim brr(1 To UBound(arr), 1 To 2)

For i = 1 To UBound(arr)
    Tmp = VBA.Split(arr(i, 1), "。")
    brr(i, 1) = Tmp(0)
    brr(i, 2) = Tmp(1)
Next i

Range("A1").Resize(UBound(brr), 2) = brr
End Sub

zhangzhang

。。。。。。。。。。。。

wuliu56

录制宏就行了。


sub test()
Application.DisplayAlerts = False
Columns("A:A").TextToColumns Destination:=Range("a1"), OtherChar:="。"
Application.DisplayAlerts = True
end sub

yanwinda

awsa888 发表于 2016-7-26 14:56
录制呗，多简单的事，不用求人。

录制没用，录制完只有选区，没有执行码

awsa888

yanwinda 发表于 2016-7-26 15:10
录制没用，录制完只有选区，没有执行码

你啥版本的EXCEL？