如何将一个Excel表格拆分成两部分

如果你需要将一个Excel表格拆分成两部分，可以使用Excel自带的宏命令文件来完成这个任务。下面是详细的步骤：

1. 打开需要拆分的Excel表格，按下“Alt”和“F11”键打开Visual Basic编辑器；
2. 在编辑器中点击“插入”菜单，然后选择“模块”；
3. 将下面的代码复制粘贴到新建的模块中。

Sub SplitWorksheet()

Dim wks As Worksheet

Dim wksNew As Worksheet

Dim rng As Range

Dim lngRows As Long

Dim lngCount As Long

Dim strName As String

Set wks = ActiveSheet

Set rng = wks.Range("A1")

lngRows = wks.UsedRange.Rows.Count

Do

If rng.Value Mod 2 = 0 Then

'if row number is divisible by 2 then it's even and add to new worksheet

If wksNew Is Nothing Then

Set wksNew = Worksheets.Add

strName = wks.Name & " Part 1"

End If

wksNew.Range("A" & lngCount + 1).Value = rng.Value

lngCount = lngCount + 1

Else

'if row number is not divisible by 2 then it's odd and add to current worksheet

If Not wksNew Is Nothing Then

Set wksNew = Worksheets.Add

strName = wks.Name & " Part 2"

End If

rng.Offset(1, 0).EntireRow.Cut _

Destination:=wksNew.Range("A" & lngCount + 1)

lngCount = lngCount + 1

End If

Set rng = rng.Offset(1, 0)

Loop Until rng.Row > lngRows

'cleanup and naming

If Not wksNew Is Nothing Then

Application.DisplayAlerts = False

wksNew.Delete

Application.DisplayAlerts = True

End If

wks.Name = strName

End Sub

1. 点击“运行”菜单，选择“SplitWorksheet”命令，Excel会将表格自动拆分成两个新的工作表；
2. 最后，保存拆分后的工作表并关闭宏编辑器。