TO RAY!

这是你要的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

原理就是用逗号为分隔符 将单元格分割，然后再定位到对应的单元格。

单元格中包含数字和英文 这种情况如果不拆分单元格的话 所有的公式就会返回#VALUE! 就是无法计算

明白了吧 ？呵呵