Excel启用vb编辑，要在选项中自定义功能区把开发工具加上。 上次简单使用vb处理一些excel数据，现学了一下。把代码存着，以后备用。
' 定义按钮点击事件 Private Sub CommandButton1_Click() ' 选择当前工作簿1 Worksheets(1).Select ' 如果处理多数据时，就false掉excel的实时更新 Application.ScreenUpdating = False ' 定义变量int型 Dim line As Integer Dim col As Integer ' 赋值变量 line = 1 col = 2 Dim high As Integer ' 获取表格最大行数 'high = Application.WorksheetFunction.CountA(Columns(1).EntireColumn) ' 循环遍历从1到1000 For i = 1 To 1000 'Step 3 ' 定义字符串 Dim str As String ' 定义数组 Dim arr1() As String 'Dim arr2() As String Dim arrLength1 As Integer 'Dim arrLength2 As Integer ' 获取表格值，并对表格赋值 'Cells(line, 2).Value = Cells(i, 1) str = Cells(i, 1) ' if then else endif判断语句 If str = "" Then line = line + 1 col = 2 Else ' 划分字符串 arr1() = Split(str, " ") ' 获取字符串长度 arrLength1 = UBound(arr1) For j = 0 To 1 'arrLength1 ' 表格赋值 Cells(line, col).Value = arr1(j) col = col + 1 ' For循环结束标志 Next Cells(line, col).Value = "v" col = col + 1 Cells(line, col).Value = "-" col = col + 1 End If 'arr1() = Split(str, " ") 'arrLength1 = UBound(arr1) 'If 0 = i Mod 2 Then ' For j = 0 To 1 'arrLength1 ' Cells(line, col).Value = arr1(j) ' col = col + 1 ' Next 'End If 'str = Cells(i + 2, 1) 'arr2() = Split(str, " ") 'arrLength2 = UBound(arr2) 'If 0 = i Mod 2 Then ' For m = 0 To arrLength2 ' Cells(line, 2 + arrLength1 + 1 + m + 1).Value = arr2(m) ' Next 'End If 'Cells(line, 2 + arrLength1 + 1 + arrLength2 + 1 + 1).Value = Cells(i + 3, 1) 'line = line + 1 ' For循环结束标志 Next ' 当所有数据处理完后，使excel刷新表格 Application.ScreenUpdating = True ' 函数结束 End Sub