分隔符数字列相加问题？？？？
例子：
111-554-142-211 ...
315-524-544-114 ...
351-778-454-414 ...
...
列相加意思：
111+315+351 ...=777
554+524+778 ...=777
142+544+454 ...=1140
211+114+414 ...=739
得出结果如下（列与列相加 得出结果）：
777-1856-1140-739
说明：‘省略号’表示不固定“行”“列”
[最优解释]
同一个文件中，你的列数必须一致吧？
Dim sum() As Long, i As Long
Dim strLine As String, strItem() As String
Open App.Path & "\test.txt" For Input As #1
Line Input #1, strLine
strItem = Split(strLine, "-")
Redim sum(Ubound(strItem)) '测试列数
for i = 0 To Ubound(sum)
sum(i) = Val(strItem(i))
Next i
Do Until EOF(1)
Line Input #1, strLine
strItem = Split(strLine, "-")
If Ubound(strItem) = Ubound(sum) Then
For i = 0 To Ubound(sum)
sum(i) = sum(i) + Val(strItem(i))
Next i
End If
Loop
Close #1
strLine = ""
for i = 0 To Ubound(sum)
strLine = strLine & IIf(i = 0, "", "-") & CStr(sum(i))
Next i
Debug.Print strLine
Dim sum1 As Long, sum2 As Long, sum3 As Long, sum4 As Long
Dim strLine As String, strItem() As String
Open App.Path & "\test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
strItem = Split(strLine, "-")
If Ubound(strItem) = 3 Then
sum1 = sum1 + Val(strItem(0))
sum2 = sum2 + Val(strItem(1))
sum3 = sum3 + Val(strItem(2))
sum4 = sum4 + Val(strItem(3))
End If
Loop
Close #1
Debug.Print CStr(sum1) & "-" & CStr(sum2) & "-" CStr(sum3) & "-" & CStr(sum4)
