sht作为一个工作表对象 Dim i,k,j As Integer '定义变量 i,k,j 作为一个整数类型对象 Dim m As Integer '定义变量 m 作为一个整数类型对象 表示 客户端输入的拆分列数 Dim irow As Integer '定义变量 irow 作为一个整数类型对象 代表的是...
i,j As Integer Dim irow As Integer '这个说的是一共多少行 Dim l As Integer l=InputBox("请输入你要按哪列分")'删除无意义的表 Application.DisplayAlerts=False If Sheets.Count>1 Then For Each sht1 In Sheets If sht1.Name<>"数据...