excel、wps 使用vba实现按内容拆分工作表

这是计算机选手初学vba的现场。

操作说明

将代码放入需要拆分的工作簿，并在目标工作表选中要拆分的列，

注意事项

需要先选中需要拆分的数据列，否则会报错

代码

'按内容拆分工作簿并调整格式
Dim 拆分列, rowNum, iserr%, index_col As Long
Sub 拆分工作簿()
'
' 拆分工作簿 Macro
'
    Dim Data, col, i As Long, j As Long, TargetCount As Long, RowCount As Long ', WBName%
    Dim ActiveWB As String, PathStr As String, arr
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False
    Call 拆分列_不重复值   '获取列的不重复值-返回数组：拆分列
    If iserr = 1 Then iserr = 0: Exit Sub '取消退出
    ActiveWB = ActiveWorkbook.Name
    Call 获取文件夹路径(PathStr)  '获取文件夹的存储路径
    'WBName = Application.InputBox("请输入文件名后缀：", "操作提示！", "2023年7月销售统计", , , , , 2) '报错：类型不匹配
    'If WBName = False Then iserr = 1: Exit Sub  '如果点击了取消按钮，则退出过程。
    On Error Resume Next '后续出错，程序不中断
    
    Data = Range("A1").CurrentRegion.Value  '待拆分数据写入数组data
    col = Range("A1:" & Replace(Cells(1, UBound(Data, 2)).Address(False, False), "1", "") & rowNum)