VB中如何将Textbox中的数据集合逐行读取，并每行为一组数据分别输出，我现在做了一行，请高手帮忙！！

你可以分两步。
第一步，使用Split将TextBox1Text按行分开，各行存入一个数组。
第二步，使用Split将一行分开，各组数据存入一个数组。
如果要整体处理，那么代码是这样的：
Dim var() As String
var = Split(TextBox1Text, vbCrLf)
Dim i As Integer, j As Integer
For i = 0 To varLength - 1
Dim s() As String
s = Split(Replace(var(i), " ", "+"), "+")
Dim str(varLength - 1, sLength - 1) As String
For j = 0 To sLength - 1
str(i, j) = s(j)
Next
Next
二维数组str饱含了你要的所有数据，你可以使用了。
如果你要朱行进行处理，那就更简单了。“Dim str(varLength - 1, sLength - 1) As String”和“str(i, j) = s(j)
”都不需要了，你可以在
For j = 0 To sLength - 1
next
中做你想做的事情了。
希望对你有所帮助。祝你顺利！

Private Sub Command1_Click()
Dim a(1 To 10) As Integer, i As Integer, j As Integer
For i = 1 To 10 '输入十个数
a(i) = InputBox("enter data 10个数")
Print a(i);
Next i
Print
For i = 10 To 2 Step -1 '用冒泡排序法对这十个数进行排序
For j = 1 To i - 1
If a(j) > a(j + 1) Then
t = a(j): a(j) = a(j + 1): a(j + 1) = t
End If
Next j
Next i
For i = 1 To 10 '输出验证
Print a(i);
Next i
End Sub

s = InputBox("请输入数值，多个数值之间用半角逗号隔开")
Text1Text = Join(Split(s, ","), " ")
'或者：Text1Text = Replace(s, ",", " ")

VB卸载，只能告诉你思路了。
1、用“工程”菜单“导入”micsoft office11或12类，总之是office的动态连接库
2、通过循环把list中的所有项保存到数组a
3、再用循环，把a的每个元素分割为3列，并且分别存入3个数组(如b,c,d )
4、创建office对象后新建一个excel工作簿，并把它赋值给一个变量，下面就可以通过该变量对工作薄内的工作表（最好也赋值给变量，这里假设为MySheet）进行系列 *** 作了。
5、把上面得到的3个数组分别赋值给工作表的3个列就可以了，如MySheetcolumns(1)=b
6、保存该工作薄、关闭excel，以栈的逻辑反向释放所用对象的资源，即把用到的对象按初始顺序相反的方向设置为nothing。到此，EXCEL的调用结束。

---