qq_44084125: Range("A1").EntireRow.Delete '从后往前遍历合并后的工作表第一列数据 For i = Cons To 3 Step -1 '判断是否是需要删除的字段名，“序号”是表格中当前字段开头的名字 If Range("A" & i) = "单据号" Then '如果是，执行删除 这段里面A1改成A2，单据号改成你标题的第一列的文字