如何压缩列并将其复制到另一个工作表？

Question

我有多个excel文件的数据，如下所示：

我想要折叠列B，以便它只列出它们之间没有空格的数字并删除列C.我还需要列L移动到列J并删除空格，使其看起来与列B相同。 / p>

这是最终解决方案的样子：

到目前为止，我一直在复制和粘贴，然后搜索空白单元格并删除它们。我在编写代码时遇到问题，因为每个类别中的数据量和它们之间的空格在每个文件上都会发生变化。谢谢你的帮助。

Answer 1

您可以使用下面的内容循环和删除行。您必须使用多个选项对其进行调整以将x移动到右侧。

Sub FormatCollapse()

For i = 1 to 1000
    If IsEmtpy(Range("A" & i ).Value) And IsEmtpy(Range("B" & i ).Value) Then
        Rows(i).delete
    End If
Next

End sub

您可以使用相同的概念循环遍历列和表