求助VBA写法

gwjkkkkk

，，，，，，，，，

sunya_0529

WPS里的JSA练习一下——

13602822168

micch 发表于 2024-6-28 18:00
为什么都是每次都循环5个数字合并呢。实际上不需要循环啊，开始合并5个数字后，每次都去掉一个补一个就行了 ...

对！！！

13602822168

gwjkkkkk 发表于 2024-6-28 19:09
Option Explicit
Sub TEST1()
    Dim ar, br, cr, i&, j&, k&

如果要取7行数据合并，应该改哪里？谢谢！！

准提部林

合併指定行數//..by.准提部林
來一個塞一個..省去中間循環...
Sub Test_A1()
Dim Arr, Brr, xD, R&, C%, i&, j%, PX%, N&
Set xD = CreateObject("Scripting.Dictionary")
Arr = [G1].CurrentRegion
R = UBound(Arr): C = UBound(Arr, 2)
ReDim Brr(1 To R, 1 To C):  PX = 5 '指定合併行數  
For j = 1 To C
    xD.removeall: N = 0
    For i = 1 To R
        If Arr(i, j) <> "" Then xD(i) = Arr(i, j)
        If xD.Count < PX Then GoTo i01
        N = N + 1: Brr(N, j) = Join(xD.items, "")
        xD.Remove xD.keys()(0)
i01: Next i
Next j
Cells(PX, "u").Resize(R, C) = Brr
End Sub