2018年1月11日
Excel删除空白行和列
摘要： Sub DeleteEmptyRows()Dim LastRow As Long, r As LongLastRow = ActiveSheet.UsedRange.Rows.CountLastRow = LastRow + ActiveSheet.UsedRange.Row - 1For r = LastRow To 1 Step -1If WorksheetFunction.CountA(Ro... 阅读全文
posted @ 2018-01-11 10:36 梦想（胡大利） 阅读(416) 评论(0) 推荐(0) 编辑