如何在Excel中合并连续的空单元格

我有一个像下面的数据原始数据的Excel文件

我想合并所有空单元格（自动）之前出现，如下图合并后应该看起来像这样

由于有很多文件，不能手动执行，所以寻找方法来使用脚本或其他东西。 想到使用autoit，但不能。 请帮忙 ：）

没有做任何vba代码，但可以达到谷歌的帮助下

Sub abc() Dim a As Integer Dim b As Integer Dim c As Integer b=1 For a = b To 308 If Cells(a, c) = "" Then Range(Cells(a, c), Cells(a - 1, c)).Merge End If Next End Sub 

Answer 1

我曾经在一些Googlesearch之后遇到了同样的情况，我现在没有我的脚本，但是你的代码看起来很简单，而且下面的变化可以实现你正在寻找的东西。 试一试。

我认为C是你需要做这个合并的列计数，308是你的行数。

Sub abc() Dim a As Integer Dim b As Integer Dim c As Integer For c = 1 To 4 b = 3 For a = b - 1 To 308 If Cells(a, c) = "" Then Range(Cells(a, c), Cells(a - 1, c)).Merge Else b = a End If Next Next End Sub