用VBA合并单元格数据

ykcbf1100

q1342871134 发表于 2024-4-18 09:40
不是的，就是只有3列，随机合并鼠标定位到当前行，把当前行内容合并到上一行，同时下方数据上移至本行

按你的新要求重新写了一个。这个可以了。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.4.18
   
2.     With Sheets("原表")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 3)
   
5.         ReDim brr(1 To UBound(arr), 1 To UBound(arr, 2))
   
6.         Set Rng = Application.InputBox("请点击要合并行的单元格（向上合并）", Type:=8)
   
7.         If Not Rng Is Nothing Then
   
8.             lr = Rng.Row
   
9.         End If
   
10.         For i = 2 To UBound(arr)
    
11.             If i + 1 = lr Then
    
12.                 m = m + 1
    
13.                 For j = 1 To UBound(arr, 2)
    
14.                     brr(m, j) = arr(lr - 1, j) & Chr(10) & arr(lr, j)
    
15.                 Next
    
16.                 i = i + 1
    
17.             Else
    
18.                 m = m + 1
    
19.                 For j = 1 To UBound(arr, 2)
    
20.                     brr(m, j) = arr(i, j)
    
21.                 Next
    
22.             End If
    
23.         Next
    
24.     End With
    
25.     With Sheets("效果")
    
26.         .UsedRange.Offset(1) = ""
    
27.         .[a2].Resize(m, UBound(arr, 2)) = brr
    
28.     End With
    
29. End Sub
    

复制代码