Excel formula 用于删除行的Excel公式

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

---

示例：我想删除A2、A4、A6等行，和500，所以手动操作是一种痛苦

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

X2=isEven（行（X2）；

任何行都可以

然后：

• 选择范围
• 按X列排序
• 根据您的需要删除正确或错误

尝试第1行：

=ISODD(ROW())  

---

向下复制以适应。筛选该列并取消选中要保留的行（例如取消选中FALSE以保留偶数行）。删除所有可见的行，或者根据您的选择，删除除第1行以外的所有可见行。

使用excel公式可能无法删除行，请使用vba自动化此过程；如果要删除奇数行，请使用以下代码，然后将StartRow更改为1，如果是偶数，则将其保留为2。我假设您有一个包含完整d的列ataset，比如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