调整一个单元格删除macros来覆盖许多列

我现在有一个工作簿，执行以下过程：

1. 在[工作表1]中input数据后，macros在数据集底部的[工作表2]中创build一个logging。
2. 根据[工作表2]中众多公式列，从[工作表2]中取出一个新数据集，并将其作为值复制到[工作表3]中。

到目前为止，一切正常运行。

在[图表3]中，每一列都将被单独处理，以用于下拉目的。 一旦数据到达[工作表3]，这些列中的每一列都可能有几个从[工作表2]复制的空白，导致它们在实际数据之前将所有这些空白sorting，使得下拉难看。

我已经创build了一个macros来删除这些空白，但它只是为第一列：

Sub Delete_Cell() Dim lrow As Long For lrow = Cells(Cells.Rows.Count, "A").End(xlUp).row To 2 Step -1 If Cells(lrow, "A") = "" Then Cells(lrow, "A").delete Next lrow End Sub 

我需要一个适应这个macros，它会告诉它为列A到J做到这一点。

任何帮助表示赞赏。

谢谢

Answer 1

考虑：

 Sub Delete_Cell() Dim lrow As Long, lcol As Long For lcol = 1 To 10 For lrow = Cells(Rows.Count, lcol).End(xlUp).Row To 2 Step -1 If Cells(lrow, lcol) = "" Then Cells(lrow, lcol).Delete End If Next lrow Next lcol End Sub