TO RAY!

ytsunwj

这是你要的VB源代码，文件中包含自动宏，请将宏安全性设为“中”
  
Private Sub CommandButton1_Click()
'TextToColumns将包含文本的一列单元格分解为若干列。Comma   Variant 类型，可选。如果该值为 True，则 DataType 为 xlDelimited 且以逗号为分隔符。
Range("a1").Select
Selection.TextToColumns DataType:=xlDelimited, _
    ConsecutiveDelimiter:=True, Comma:=True
    Range("D1").Activate
    TextBox1.Text = ActiveCell
End Sub

ytsunwj

ytsunwj

ytsunwj