Excel自动分列VBA程序.docxVIP

Option Explicit Private Sub cmdStart_Click() 获取最大行数、列数和数据区域 Dim MAXROW As Integer Dim MAXCOLUMN As Integer MAXROW = 2 MAXCOLUMN = 2 MAXROW = ActiveWorkbook.ActiveSheet.UsedRange.Rows.Count MAXCOLUMN = ActiveWorkbook.ActiveSheet.UsedRange.Columns.Count Dim FirstRow As Integer Dim BlankColumn As Integer Dim CutCount As Integer Dim OptionNumber As Integer Dim i As Integer If chkFirstRow.Value = True Then FirstRow = 1 Else FirstRow = 0 End If If chkBlankColumn.Value = True Then BlankColumn = 1 Else