Excel 删除文末的大量空行
的有关信息介绍如下:可以拷贝50行,特殊粘贴_数值 到另外的表格就行了.这样就会起到瘦身的作用旁歼.'用这段程序可以搞定,自己以前编的.65536可以调整,是行数,如果,你的文''件到多少行可以确定的话,会使程序运行时间短些.Public Sub clear_empty_row() '删除空白行''''''''''''''''''''''''''快捷键 ctrl+D'''''''''雀启州'''''''''''''''Dim count As IntegerDim y As Integer '删除空白的中间行delete empaty rowFor count = 65536 To 1 Step -1 '65536 is the maximum number of no blank line. For y = 1 To 256 If Cells(count, y) <>顷蔽 "" Then GoTo jump End If Next y Rows(count).Deletejump: Next countEnd Sub