Question

Excel VB 批量删除 多个工作表 某月以上的数据（保留下个月）

1234
56

1月

6786
9856

2月

多个工作表，只保留最后一个月数据，其他删除，最后一个月是2月，就保留2月数据
这个人的数据也是这样的，都是C列的某行写月份，下行写数据，保留最后一个月的数据（这里是保留3月份的数据，绿色的行删除）

Answer 1

Sub test()
For i = 1 To Sheets.Count
    With Sheets(i)
    ARow = .Range("A65536").End(xlUp).Row
    For j = ARow To 1 Step -1
        If .Range("A" & j) = "日期" Then
            myrow = j - 1
            j = 1
        End If
    Next j
    .Rows("1:" & myrow).Delete
    End With
Next i
End Sub

追问

.Rows("1:" & myrow).Delete
运行时，总是提示这行“类型不匹配”
我觉得应该是某各工作表的数据里面、没有“3月份”的数据，因为他3月份没上班，请假了，所以报错，要加什么语句呢？（如果某个工作表没有3月份的数据的话，就删除这个工作表吧）

追答

这段代码是检索每个工作表的A列最末一个值为“日期”的单元格
再将这个“日期”上面的单元格删除掉
所以要求每个工作表的数据要符合规范：就算当月没有数据，那行标题行（如第2行、第18行、第30行这种）也得复制上去
这样不管工作表的最后是2月份也好、是3月份也好，都只保留最后那个月的数据

追问

你好厉害呀
就是有个小问题：不能改成根据“月份”判断吗？如果这个工作表没有3月份的数据，就删除这个工作表(有时候有些员工3月份没上班的)

追答

Sub test()
Application.DisplayAlerts = False
myMonth = InputBox("请输入欲保留的最后的月份：" _
    & vbCrLf & vbCrLf & "以下文本框中，只输入纯数字1、2、3。。。11、12，不要输入任何字母、汉字、空格或其他符号！", _
        "保留月份", Default)
For i = Sheets.Count To 1 Step -1
    myrow = 0
    With Sheets(i)
    ARow = .Range("C65536").End(xlUp).Row
    For j = ARow To 1 Step -1
        If .Range("C" & j) = myMonth & "月份" Then
            myrow = j - 1
            j = 1
        End If
    Next j
    If myrow = 0 Then
        Sheets(i).Delete
    Else
        .Rows("1:" & myrow).Delete
    End If
    End With
Next i
Application.DisplayAlerts = True
End Sub

Answer 2

要看你具体的Excel文档，不好妄自揣测。(如果不方便可以根据实际情况模拟数据)

追问

我已经加了图片说明了

Answer 3

把需要的表复制留下，其他全部扔掉

Answer 4

看你这个表真的很难处理，一个表里面把所有的月份都写全了，并且没有按照规律写。东一块西一块；
图片是看不懂了，是不是你所有的表都是这样？
你发表格吧

追问

嗯 ，都是这样的格式，都是C列某行写月份，下一行写数据