在MS Excel中，我需要删除每一个备用行AUTOMATICALLY而不是MANUALLy，它怎么可以用EXCEL来完成？
已经在超级用户问：
在MS Excel中，我需要删除每个备用行AUTOMATICALLY而不是手动。
基本上我正在一个Excel电子表格，我不得不删除每一个备用行，因为它搞乱了我的结果。
它是一组4000个随机生成的数据集。
因此，删除2000个wud大约需要30分钟，可以在30秒内用EXCEL单独完成，避免编程？
有没有什么窍门在MS Excel中做到这一点？
在一个新的列（如“X”）使用
=MOD(ROW(L2),2) 并扩大整个集合的列。 这应该给你一个0和1的交替序列。现在自动筛选，只select0（或1），然后点击删除。
编辑：如果你不使用英文excel，你可能需要查看你的本地版本的function。 例如在德国，它将是REST（ZEILE（X1），2））。 MOD是模函数，LINE应该给你当前的行号。
你的问题甚至有它自己的知识库文章： 如何删除Excel工作表上的其他所有涉及一些编程的行 – 你不会得到解决。 但至less它是复制粘贴编程;-)
Sub Delete_Every_Other_Row() ' Dimension variables. Y = False ' Change this to True if you want to ' delete rows 1, 3, 5, and so on. I = 1 Set xRng = Selection ' Loop once for every row in the selection. For xCounter = 1 To xRng.Rows.Count ' If Y is True, then... If Y = True Then ' ...delete an entire row of cells. xRng.Cells(I).EntireRow.Delete ' Otherwise... Else ' ...increment I by one so we can cycle through range. I = I + 1 End If ' If Y is True, make it False; if Y is False, make it True. Y = Not Y Next xCounter End Sub
@ user524100：我认为你必须使用一个macros，幸运的是你可以从这里得到一个macros：http://www.bridgetonova.com/2009/07/how-to-delete-every-other -ROWfunction于excel.html