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

时间:2017-11-03 13:31:59

标签: excel excel-vba vba

我有一个excel文件,其中包含以下数据 Original data

enter image description here 我想合并出现在它之前的所有空单元格(自动),如下所示 after merging should look like this enter image description here

由于文件很多,因此无法手动执行,因此需要查找使用脚本或其他方法的方法。 想要使用autoit但无法做到这一点。 请帮助:)

任何时候都没有完成vba代码,但可以直到谷歌的帮助

.attr

1 个答案:

答案 0 :(得分:1)

在我能够做的一些谷歌搜索之后我曾经处于相同的情况,我现在没有我的脚本,但是你的代码看起来很简单,只需要进行以下更改,你就可以实现你想要的。 试一试。

我假设 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