微电脑世界98|技术世界|疑难解答: Excel中怎样快速删除空行?

来源:百度文库 编辑:神马文学网 时间:2024/04/26 06:39:53
Excel 中 怎 样 快 速 删 除 空 行 ?
---- 我 将 很 多 文 本 文 件 导 入Excel, 这 些 文 本 文 件 包 含 许 多 空 行, 我 不 得 不 逐 个 删 除 它 们。 请 问 有 什 么 办 法 能 够 快 速 删 除 全 部 空 行 ?
---- 如 果 行 是 无 序 的( 即 行 的 顺 序 无 关 紧 要), 那 么 最 好 的 办 法 是 选 择 全 部 数 据 后 根 据 某 一 列 排 序。 很 显 然, 空 行 都 集 中 到 了 工 作 簿 的 下 面, 您 可 以 方 便 地 删 掉 它 们。
---- 如 果 行 的 顺 序 不 可 改 变, 您 就 得 创 建 一 个 宏, 让 它 对 工 作 簿 进 行 逐 行 检 查, 一 旦 发 现 是 空 行 就 进 行 删 除。 注 意, 删 掉 一 行 后, 总 行 数 会 发 生 变 化, 因 此 循 环 必 须 是 从 后 往 前 的( 即 先 检 查 行 号 最 大 的 一 行, 再 检 查 倒 数 第 二 行, 最 后 检 查 第 一 行)。 您 可 以 这 样 创 建 宏: 在Excel 5 或 者Excel 95 中, 请 选 择“Insert”*“Macro”*“Module”, 在 工 作 簿 中 插 入 一 个 新 模 块 表, 输 入 下 述 宏:Sub DeleteEmptyRows()LastRow=ActiveSheet.UsedRange.Rows.CountApplication.ScreenUpdating=FalseFor r=LastRow To 1 Step-1If Application.CountA(Rows(r)) =0Then Rows(r).DeleteNext rEnd Sub---- 如 果 您 是 在Excel 97 中, 选 择“Tools”*“Macro”*“Visual Basic Editor”*“Insert Module” 后 输 入 上 述 宏。
---- 运 行 该 宏 之 前, 应 先 切 换 到 工 作 簿, 选 择“Tools”*“Macro”( 在Excel 97 中 选 择“Tools”*“Macro”*“Macros”), 在 宏 对 话 框 中 选 择“DeleteEmptyRows” 并 执 行 它, 即 可 删 除 空 行。 注 意, 因 为 该 删 除 操 作 不 可 恢 复, 因 此 建 议 在 执 行 宏 之 前 做 一 个 备 份。