excel表格纵行怎么合并

1.excel 怎样进行批量纵向合并

只限于 AB列

Sub 指定区域的数据合并（）

Dim rng As Range

Set rng = Application.InputBox（"请选择需要处理的区域"， "提示选择"， ， ， ， ， ， 8）

x = rng.Row

y = rng.Column

xrow = rng.Rows.Count

xcolumn = rng.Columns.Count

For n = 1 To xrow

Range(Cells(x + n - 1, "A"), Cells(x + n - 1, "b")).Select

Selection.Merge

Next

End Sub