求助：合并空值单元格

吹吹热带风暴 · 发表于 2017-10-25 16:20

数据表如下，需要合并A3至A6（A4、A5、A6为空值无数据），合并A7至A9（A8、A9为空值无数据）。
目前只能选到第一个非空单元格A3（代码如下），还没能够实现选取A3至A6。求高手指导。谢谢

Dim rng As Range
Set rng = Sheet1.Range("A1").End(xlDown)
rng.Select

	A
1	EXCEL
2	EXCEL
3	EXCEL
4
5
6
7	EXCEL
8
9
10	EXCEL

xgy一飞 · 发表于 2017-10-25 19:44

642825738可交流

excelhomecoming · 发表于 2017-10-25 23:07

用xlup，记录非空单元格，再使用xlup，合并这个区域间的，思路就这样

吹吹热带风暴 · 发表于 2017-10-27 09:24

excelhomecoming 发表于 2017-10-25 23:07
用xlup，记录非空单元格，再使用xlup，合并这个区域间的，思路就这样

对，目前只进行到第一步，选择到了第一个空单元格上面的“A3”，下一步要找到“A6”，这步进行不下去了

excelhomecoming · 发表于 2017-10-28 23:43

你那么下一步到a7了应该，得offset(-1)

		自动登录	找回密码
密码			免费注册