Question

EXCEL Vba当单元格中输入数字，自动向下合并

当单元格中输入字数回车的时候，这个单元格自动向下合并单元格，合并的单元格数为所输入的数。比如在A1输入4回车后，则A1 A2 A3 A4四个单元格自动合并。
应该要用change事件吧

Answer 1

sub ab()
dim a%,b%
a = ActiveCell.Row

b = ActiveCell.Column
Range(Cells(a, b), Cells(a + 4, b)).Select ’这里a+4表示4行合并，如果是其他数目可以更改
Selection.Merge
With Selection
.HorizontalAlignment = xlCenter ‘居中，如果不要可以删掉
.VerticalAlignment = xlCenter
End With
End Sub

追问

你这个得点击运行才能合并， 我要的是在表格中随便输入一个数，回车后直接可以合并，代码是在后台运行的而不是点击运行时才运行。而且仅在第一列输入数才会合并，在其它列输入数不会进行合并。请问有更好的方案提供一下吗？

Answer 2

这样的自动监测方式要谨慎使用。。很容易造成数据丢失。。
如果你仅仅为了学习，研究，可以找个空白表尝试。。

贴出代码来是害了大家，所以就不贴出来。。
如果是你自己表内做，最好发你的表格过来。。我给你建议。。私聊解决这个问题。。

Answer 3

Sub test()
With ActiveSheet
.Range(Cells(1, 1), Cells(Cells(1, 1), 1)).Merge

End With
End Sub

Answer 4

合并excel机器人可以自动将同一文件夹中的excel按自定义行数进行合并。合并excel：https://store.uibot.com.cn/robots/detail/918.html