在Excel中编写宏程序以切断数据，通常意味着要将数据从一个工作表或工作簿移动到另一个工作表或工作簿，或者根据特定条件对数据进行筛选和分割。以下是一个简单的宏示例，它将根据用户输入的行数将工作表中的数据切割成多个新工作簿，每个新工作簿包含指定行数的数据（不包括标题行）：
```vba
Sub SplitExcel（）
Dim r As Long, c As Long, i As Long, totalRows As Long, fileCount As Long, startRow As Long
Dim wsSource As Worksheet, wsDest As Worksheet
Dim filename As String
' 关闭屏幕更新和显示警告
Application.ScreenUpdating = False
Application.DisplayAlerts = False
' 获取用户输入的行数
On Error Resume Next
tRow = Val（Application.InputBox（"请您输入需要切割的行数？"））
On Error GoTo 0
' 如果用户未输入行数，则退出宏
If tRow = 0 Then
MsgBox "您未输入行数，程序退出!"
Exit Sub
End If
' 获取源工作表和目标工作簿
Set wsSource = ActiveSheet
fileCount = IIf（tRow Mod 20000 = 0, （tRow - 1） \ 20000 + 1, （tRow - 1） \ 20000 + 2）
' 循环创建新工作簿并复制数据
For i = 1 To fileCount
' 创建新工作簿
Application.Workbooks.Add
Set wsDest = ActiveWorkbook.Sheets（1）
' 设置起始行
startRow = （i - 1） * 20000 + 1
' 复制标题行
wsSource.Rows（1）.Copy Destination:=wsDest.Rows（1）
' 复制数据行
wsSource.Rows（startRow To startRow + tRow - 2）.Copy Destination:=wsDest.Rows（2）
' 保存新工作簿
filename = "数据切割-" & i & ".xlsx"
wsDest.SaveAs Filename:=filename
' 关闭新工作簿
wsDest.Parent.Close SaveChanges:=False
Next i
' 恢复屏幕更新和显示警告
Application.ScreenUpdating = True
Application.DisplayAlerts = True
MsgBox "数据切割完成，已创建 " & fileCount & " 个新工作簿。"
End Sub
```
在VBA编辑器中运行此宏时，它会提示用户输入需要切割的行数，然后根据输入的行数创建新的工作簿，并将数据从源工作表复制到新工作簿中。每个新工作簿包含20000行数据（不包括标题行）。
请注意，这个宏假设数据从第二行开始，第一行是标题行。如果您的数据结构不同，您可能需要调整代码以适应您的具体情况。此外，宏在运行时会关闭新创建的工作簿，如果您希望保留这些工作簿，请移除关闭工作簿的代码。
如果您需要在其他编程环境中切断数据，例如在数据库或脚本中，请提供更多的上下文信息，以便我能够提供更具体的帮助。
