Question

我正在寻找一个Excel公式来自动删除所有偶数或偶数行。

示例：我想删除A2，A4，A6，...和A500行，所以手动操作很痛苦！

Answer 1

尝试使用以下公式添加列：

X2 = isEven(row(X2);任何行都没问题

然后：

选择范围。
按列X排序。
根据需要删除 true 或 false 。

Answer 2

尝试第1行：

=ISODD(ROW())

复制到西装。过滤该列并取消选中要保留的行（例如，取消选中FALSE以保留偶数行）。删除所有可见或根据您的选择删除除Row1以外的所有可见内容。

Answer 3

使用excel公式可能无法删除行，请使用vba自动执行此过程;如果你想删除奇数行然后将startatrow更改为1，请使用以下代码，如果是偶数则将其保留为2.我假设你有一个包含完整数据集的列，让我们说列A（你可以相应地改变它）

Sub deleteAlternateRow()  

    Dim startAtRow, rowCounter, lastrow As Long  
    lastrow = Cells(Rows.Count, 1).End(xlUp).Row
    startAtRow = 2 
    For rowCounter = startAtRow To lastrow step 2 
        Rows(rowCounter).Select  
        Selection.Delete Shift:=xlUp  
    Next  
    End Sub

用于删除行的Excel公式

3 个答案: