VBA求助

武器二恶趣味

哪位大神给个宏代码
如上图，E列最终为合并单元格
合并的数量取决于I列数量 - 1

saiqiu

Sub 合并()
Application.DisplayAlerts = False
Dim x, y
Dim rg As Range
y = Range("i1").Value
Set rg = Range("e1")
For x = 1 To y
Set rg = Union(rg, Cells(1, x + 3))
Next x
rg.Merge

Application.DisplayAlerts = True

End Sub
是这个意思吗？

saiqiu

Sub 合并()
Application.DisplayAlerts = False
Dim x, y
Dim rg As Range
y = Range("i1").Value
Set rg = Range("e1")
For x = 1 To y
Set rg = Union(rg, Cells(1, x + 4))
Next x
rg.Merge

Application.DisplayAlerts = True
End Sub
是不是就这样？

saiqiu

Sub 合并()
Application.DisplayAlerts = False
Dim x, y
Dim rg As Range
y = Range("i1").Value
Set rg = Range("e1")
For x = 1 To y
Set rg = Union(rg, Cells(1, x + 4))
Next x
rg.Merge

Application.DisplayAlerts = True

End Sub
这样？

吧123456789

Function hb(a, b)
    For Each i In a
        If n < b Then
            n = n + 1
            s = s & ";" & i.Value
        End If
    Next
    hb = Mid(s, 2, 99)
End Function
a是要合并的区域，b是个数  ；是连接符号