这个可以批量吗 excel怎么把两个单元格的内容合并为一个

发布网友 发布时间：2022-02-26 00:23

我来回答

共2个回答

热心网友 时间：2022-02-26 01:52

Sub Macro1()
Dim i As Long
Dim rng1 As Variant
Dim rng2 As Range
On Error Resume Next
Set rng1 = Application.InputBox("请选择需要操作的列或区域", "选择一列或一个区域", Type:=8)
If rng1 Is Nothing Then Exit Sub
On Error GoTo 0
Application.DisplayAlerts = False
Set rng2 = Intersect(rng1, ActiveSheet.UsedRange)
If rng2 Is Nothing Then
   If MsgBox("选定区域无内容，是否继续？", vbYesNo + vbExclamation) = vbNo Then Exit Sub
   For Each r In rng1
        i = i + 1
        If i Mod 2 = 0 Then
        Union(r, r.Offset(-1, 0)).Merge
        End If
    Next
Else
    For Each r In rng2
        i = i + 1
        If i Mod 2 = 1 Then
        temp = r.Value
        Else
        temp = temp & r.Value
        Union(r, r.Offset(-1, 0)).Merge
        r.Offset(-1, 0) = temp
        End If
    Next
End If
Application.DisplayAlerts = True
End Sub

 运行后，会弹出一个对话框，选择你要操作的列，或者一部分区域就可以了

有什么问题请追问

追答

你不知道怎么把运行代码?

下面帮你做好一个工作表，你下载去看看

只能一列一列批量合并，

不能多列