求助大神，表格细长如何vba将单列分为两列，以便打印，万分感谢

gaohuiexcelhome

感谢感谢啊

gaohuiexcelhome

ykcbf1100 发表于 2025-9-26 07:50

大神，我套用网上实际下载的数据，怎么不能进行累加计算，只能按文本进行合并了

ykcbf1100

gaohuiexcelhome 发表于 2025-10-30 12:13
大神，我套用网上实际下载的数据，怎么不能进行累加计算，只能按文本进行合并了

表的结构都改变了就不能直接套用原代码了。

重新写了一个代码。

ykcbf1100

1. Sub ykcbf()   '//2025.10.30
   
2.     Application.ScreenUpdating = False
   
3.     Application.DisplayAlerts = False
   
4.     Set d = CreateObject("Scripting.Dictionary")
   
5.     arr = Sheets("数据").Range("a1").CurrentRegion.Value
   
6.     ReDim brr(1 To UBound(arr), 1 To 5)
   
7.     On Error Resume Next
   
8.     For i = 2 To UBound(arr)
   
9.         If Len(arr(i, 1) & "") Then
   
10.             s = arr(i, 3) & " " & arr(i, 6)
    
11.             d(s) = d(s) + Val(arr(i, 8))
    
12.         End If
    
13.     Next
    
14.     k = d.keys: t = d.items
    
15.     For x = 0 To d.Count - 1 Step 2
    
16.         m = m + 1
    
17.         brr(m, 1) = Split(k(x))(0)
    
18.         brr(m, 2) = Split(k(x))(1)
    
19.         brr(m, 3) = t(x)
    
20.         brr(m, 4) = Split(k(x + 1))(1)
    
21.         brr(m, 5) = t(x + 1)
    
22.     Next
    
23.     With Sheets("汇总")
    
24.         .UsedRange.Offset(1).Clear
    
25.         Set Rng = .[a2].Resize(m, 5)
    
26.         Rng.Value = brr
    
27.         Rng.Borders.LineStyle = 1
    
28.         Rng.Sort Rng.Columns(1), 1
    
29.         For i = m + 1 To 2 Step -1
    
30.             Set Rng = .Cells(i, 1)
    
31.             If Rng.Value = Rng.Offset(-1).Value Then
    
32.                 With Rng.Offset(-1).Resize(2)
    
33.                     .Merge
    
34.                     .HorizontalAlignment = xlCenter
    
35.                     .VerticalAlignment = xlCenter
    
36.                 End With
    
37.             End If
    
38.         Next i
    
39.     End With
    
40.     Application.ScreenUpdating = True
    
41.     MsgBox "OK！"
    
42. End Sub
    

复制代码

gaohuiexcelhome

谢谢兄弟mua

gaohuiexcelhome

感谢大神，你是如何做到代码简单又优雅的？优质人类

sunya_0529

WPS里的JSA练习一下，可以指定分栏数量，默认为2——