如何把一系列数字填到不同单元格
刚学VB 如何 把下面的数字以逗号为界限 分别填到不同单元格1,1,10.1,1,2,,,,
1,1,1111,122,2333,,,,
Private Sub Form_Load() Dim SourceString As String Dim OutputSegment() As String Dim i As Integer SourceString = "1,1,1111,122,2333 " SourceString = Replace(SourceString, ",", ",") OutputSegment = Split(SourceString, ",") For i = 0 To UBound(OutputSegment) Text1.Text = Text1.Text & OutputSegment(i) & " " Next End Sub