Question

Sub CombineColumns()
Dim rng As Range
Dim iCol As Integer
Dim lastCell As Integer

Set rng = ActiveCell.CurrentRegion
lastCell = rng.Columns(1).Rows.Count + 1

For iCol = 2 To rng.Columns.Count
   Range(Cells(1, iCol), Cells(rng.Columns(iCol).Rows.Count, iCol)).Cut
   ActiveSheet.Paste Destination:=Cells(lastCell, 1)
   lastCell = lastCell + rng.Columns(iCol).Rows.Count
Next iCol
End Sub

这个宏有助于我在一个单元格中组合多个列。它们可能已合并，我的问题是每个数据之间至少有5行空白。

以下是旧数据的示例（尚未组合） A B C. 1单身已婚 2已婚结婚 3单

使用上面的宏时，会发生以下情况： A B C. 1单 2 3 4 五 6 7月结婚 8 Maried 9单 10 11 12 13 14 15结婚已婚16岁

我的工作表中的列：A-SR，很多。如果我只有几个，我可以手动删除空行。

如何删除这些空行，必须在上面的宏中添加一些内容，将多列组合成一列，并连续粘贴数据？

谢谢！

Answer 1

请尝试使用以下内容替换End Sub：

Columns("A:A").Select
    Selection.SpecialCells(xlCellTypeBlanks).Select
    Selection.Delete Shift:=xlUp
End Sub

如果我想删除空白单元格，我应该在此宏中添加什么？

1 个答案: