当前位置：文江博客话题详情

Excel删除行的公式

发布于 2024-11-27 17:28:50 字数 87 浏览 0 评论 0原文

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

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

原文

分享到QQ

分享到微博

如果你对这篇内容有疑问，欢迎到本站社区发帖提问参与讨论，获取更多帮助，或者扫码二维码加入 Web 技术交流群。

发布评论

需要登录才能够评论，你可以免费注册一个本站的账号。

晒暮凉 2024-12-04 17:28:50

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

X2 = isEven(row(X2); 任何行都可以

然后：

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

回复收藏 0 原文

柳絮泡泡 2024-12-04 17:28:50

在 Row1 中尝试：

=ISODD(ROW())

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

Try in Row1:

=ISODD(ROW())

copied down to suit. Filter that column and uncheck the rows you wish to retain (eg uncheck FALSE to keep the even numbered rows). Delete all visible or, depending upon your choice, all visible other than Row1.

回复收藏 0 原文

药祭#氼 2024-12-04 17:28:50

使用 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

Deleting rows may not be possible using excel formula, use vba for automating this process; use the following code if you want to delete odd rows then change startatrow to 1 and if even number then leave it at 2. I am assuming you have a column with complete dataset, lets say column A (you can change it accordingly)

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

回复收藏 0 原文

~没有更多了~