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

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

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

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

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

End With
End Sub

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