如何将此VBA转换成行合并呢？

jinjin901024

此代码可以合并列的单元格，但是我需要合并行的，有没有大神可以帮忙解决一下！参考代码附上，备注：这个是合并列的，我要的事合并行的。
Sub 合并相同列单元格()     
Dim l%, i%     
Application.DisplayAlerts = False     
k% = InputBox("请输入合并单元格所在列")     
l = [A65536].End(xlUp).Row     
For i = l To 2 Step -1      
    If Cells(i, k) = Cells(i - 1, k)   Then         
    Range(Cells(i - 1, k), Cells(i,   k)).Merge         
    End If     
Next     
Application.DisplayAlerts = True     
End Sub

kimmyyang

1. Sub test()
   
2. Dim q%, i%
   
3. Application.DisplayAlerts = False
   
4. q = Sheet1.UsedRange.Columns.Count
   
5. For i = q To 2 Step -1
   
6. If Cells(1, i) = Cells(1, i - 1) Then
   
7. Range(Cells(1, i), Cells(1, i - 1)).Merge
   
8. End If
   
9. Next
   
10. Application.DisplayAlerts = True
    
11. End Sub
    

复制代码

jinjin901024

kimmyyang 发表于 2019-3-14 09:36

这个有办法让他选择行么？    这个默认应该是第一样

kimmyyang

jinjin901024 发表于 2019-3-14 10:33
这个有办法让他选择行么？    这个默认应该是第一样

可以，你可以参考你那个列修改下，自己尝试摸索下，不然总是别人给你现成的，你没法进步的！

lsc900707

kimmyyang 发表于 2019-3-14 10:35
可以，你可以参考你那个列修改下，自己尝试摸索下，不然总是别人给你现成的，你没法进步的！

说的有理，自己要多动手测试。

jinjin901024

kimmyyang 发表于 2019-3-14 10:35
可以，你可以参考你那个列修改下，自己尝试摸索下，不然总是别人给你现成的，你没法进步的！

搞定了， 谢谢