excel表格里多行单元格多行合并函数格式
Sub合并多行单元格()
        Dim rng As Range
        Dim xRows As Integer
        Dim myRng As Range
        On Error Resume Next
        Set rng = Selection       
merge函数        xRows = Application.InputBox("输入要合并的行数", "填写行数", Type:=1)
        If xRows > 0 Then
            Set myRng = rng.Resize(xRows, rng.Columns.Count)
            myRng.Merge
        Else
            MsgBox "请输入一个有效数字", vbCritical
        End If
End Sub

版权声明：本站内容均来自互联网，仅供演示用，请勿用于商业和其他非法用途。如果侵犯了您的权益请与我们联系QQ:729038198，我们将在24小时内删除。