VBA按列拆分数据至All_total工作表前的问题排查

• 核心问题：默认新建工作表的位置是工作簿末尾，你需要在创建工作表时显式指定插入位置为All_total工作表之前。

• 错误写法示例（导致新建表在末尾）：

Sheets.Add ' 默认在工作簿最后添加新表

• 正确写法（指定插入到All_total之前）：

Sheets.Add Before:=ThisWorkbook.Sheets("All_total")

• 批量拆分场景的适配逻辑：
  如果是循环创建拆分后的工作表，把创建新表的代码替换成上面的指定位置写法即可。示例如下：

Dim newSheet As Worksheet
' 创建新表并插入到All_total之前
Set newSheet = ThisWorkbook.Sheets.Add(Before:=ThisWorkbook.Sheets("All_total"))
newSheet.Name = "你的拆分表名称" ' 替换为你的实际命名规则
' 后续将筛选后的数据复制到newSheet的代码...

• 注意事项：
  • 确保工作簿中确实存在名为All_total的工作表，避免触发运行时错误；
  • 批量创建时，每次调用Sheets.Add(Before:=...)都会把新表插在All_total的前一位，最终所有拆分出的表都会排在All_total之前，最后创建的表会最靠近All_total。

内容的提问来源于stack exchange，提问作者justbeinghonest49