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

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

这是我的旧数据示例（尚未合并） A、B、C 1单身已婚 2已婚 3单

使用上述宏后，发生了以下情况： A、B、C 1单 2. 3. 4. 5. 6. 7已婚 8玛丽 9单 10 11 12 13 14 15已婚 16已婚

我的工作表中的列：A-SR，这是很多。如果只有几个，我可以手动删除空白行。 如何删除这些空行，必须在上面的宏中添加一些东西，以便将多个列合并为一列，并连续粘贴数据

---

谢谢

请尝试将末端接头替换为：

列（“A:A”）。选择
Selection.SpecialCells（xlCellTypeBlanks）。选择
选择。删除移位：=xlUp
端接头

我打算建议“宁可使用内联函数也不要使用宏”，然后我意识到C并不是唯一的编程语言。

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