帮我写一段代码：execl拆分工作表

你可以使用以下代码来拆分 Excel 工作表：Sub Split_Worksheet()
'定义变量 Dim WS As Worksheet, WS_Name As String, WS_Count As Integer '以下代码仅适用于活动工作表 Set WS = ActiveSheet '获取活动工作表的名称 WS_Name = WS.Name '计算要拆分的工作表的数量 WS_Count = Application.WorksheetFunction.Max(1, Application.WorksheetFunction.Ceiling(WS.Range("A1").CurrentRegion.Rows.Count / 500, 1)) '重复拆分工作表 For i = 1 To WS_Count '拆分工作表 WS.Range("A1").CurrentRegion.Offset(500 * (i - 1), 0).Resize(500, WS.Range("A1").CurrentRegion.Columns.Count).Copy '添加新工作表 Sheets.Add After:=Sheets(Sheets.Count) ActiveSheet.Name = WS_Name & " (" & i & ")" '粘贴数据到新工作表 ActiveSheet.Range("A1").PasteSpecial xlPasteValues '清除剪贴板 Application.CutCopyMode = False Next i End Sub