心飞路漫的博客

Sub 拆分总表() Sheets(1).Select Ro = [A65536].End(3).Row '根据第A列提取最大行数 Co = [XFD1].End(1).Column '根据第1行提取最大列数 Dim i As Integer, sht As Worksheet NullName = "【空数据】" m = InputBox("按第几列拆分？" & Chr(10) & Chr(10) & "列序数范围：1 至 "