如何在导出到其他工作表时自动删除空白行/单元格？

Question

我有几个原始数据文件，其中某些行/单元格没有数据。当我将数据移动/导出到其他工作表时，如何自动删除这些空行/单元格。我应该使用什么公式来做到这一点？

为了更清楚地解释，我在下面附上了图片。

Answer 1

我想向您推荐一个宏（VBA 代码），它将帮助您删除使用范围内的所有空行，然后您可以导出工作表。

Sub DeleteEmptyRows()

  Dim lastRow As Long
  LastRow = ActiveSheet.UsedRange.Row - 1 + _
      ActiveSheet.UsedRange.Rows.Count

  Application.ScreenUpdating = False

  For r = LastRow To 1 Step -1
  If Application.CountA(Rows(r)) = 0 Then    
    Rows(r).Delete
  End if

Next r

End Sub

怎么运行的：

• 按下Alt+F11打开 VB 编辑器。
• 将此代码复制并粘贴为标准模块。
• 最后运行此宏。

Answer 2

如果仅选择包含数据的单元格，然后进行复制/粘贴，则可以轻松完成此操作：

1. 突出显示整个范围 (A2:A13)，
2. 按 F5（转到），
3. 点击特殊...，
4. 选择“常量”，然后确定
5. Ctrl-C 复制
6. 粘贴到新位置 (B2)

如果这些是公式而不是常量，您可以在步骤 4 中选择“公式”。