vba 数据处理

Sub main()Dim n, i As Longn = 50For i = 1 To nu (i)NextEnd SubSub u(i)Dim pos As LongDim str1, str2 As String'ActiveSheet.Cells(i, 3) = ActiveSheet.Cells(i, 2)pos = InStr(Sheet1.Cells(i, 3), ",")If pos > 0 ThenSheet1.Rows(i + 1).Insertstr1 = Left(Sheet1.Cells(i, 3), pos - 1)str2 = Right(Sheet1.Cells(i, 3), Len(Sheet1.Cells(i, 3)) - pos)ActiveSheet.Cells(i + 1, 1) = ActiveSheet.Cells(i, 1)ActiveSheet.Cells(i + 1, 2) = str1ActiveSheet.Cells(i + 1, 3) = str2'Sheet1.Cells(i + 1, 1) = Sheet1.Cells.Range(i, 1)ElseActiveSheet.Cells(i + 1, 3) = ActiveSheet.Cells(i + 1, 2)i = i + 1End IfEnd Sub