Option Explicit
Option Base 1
Sub SplitData()
Application.ScreenUpdating = False
Application.DisplayAlerts = False
Dim self As Worksheet
Set self = ActiveSheet
Dim nLastRowNum As Long
Dim nLastColumnNum As Long
Dim i As Long
' 删除其他的sheet
For i = Sheets.Count To 1 Step -1
If Sheets(i).Name <> self.Name Then
Sheets(i).Delete
End If
Next i
Application.DisplayAlerts = True
Application.ScreenUpdating = True
'获取全部数据范围
nLastRowNum = Cells(Rows.Count, 1).End(xlUp).Row
nLastColumnNum = Cells(nLastRowNum, Columns.Count).End(xlToLeft).Column
'获取标题
Dim titleRange As Range
Set titleRange = Application.InputBox(prompt:="请选择标题区域:", Type:=8)
' 有效数据开始行
Dim nRowValidData As Long
nRowValidData = titleRange.Row + titleRange.Rows.Count
' 获取拆分列的信息,只需要列号
Dim splitColumnRange As Range
Set spl
根据某一列拆分Excel为多个表格
最新推荐文章于 2025-06-29 16:31:18 发布