☰

Excel 中如何保留每五行

tag-icon • tag-icon microsoft-excel database macros vba manipulation
Excel 中如何保留每五行

我在 Excel 中有一个包含 3084 行的数据集。我需要删除 4 行，然后保留一行：删除星期二、星期三、星期四、星期五，但保留星期一以创建一个每周而不是日常的数据集。

  • 注：数据为与日期一致 不是一周中的某一天所以我不能简单地过滤掉星期二等等[日期显示为2000 年 6 月 14 日]）。

有什么方法可以做到这一点，而不必手动浏览并一次删除四行？

答案1

选择附近的一列并在第一行上书写=MOD(ROW(A1),5)。这将用数字 0-4 填充该列中的所有行。然后只需自动过滤掉要删除的行即可：
Data > Filter > AutoFilter

编辑：由于这是一个重复的日期，你可能还会使用过滤时使用通配符， IE14-*

答案2

您也可以尝试 VBA 解决方案 - 可能需要根据您的问题进行细微修改，但这给出了总体思路。此子程序假设您激活了第一行中的第一个单元格，然后运行子程序。

Sub sbDelete4Keep1()

    Dim rngProcess As Range
    Dim lCntr As Long
    Set rngProcess = ActiveCell
    lCntr = 1
    While Not IsEmpty(rngProcess.Offset(1, 0))
        Range(rngProcess, rngProcess.Offset(3, 0)).EntireRow.Delete
        Set rngProcess = ActiveCell.Offset(lCntr, 0)
        lCntr = lCntr + 1
    Wend

End Sub

相关内容