请大佬帮忙写个vba（更新了源数据文件）

动感超人biubiu

请大佬帮忙写个vba（更新了源数据文件）内容解释不到位，请谅解！


A2开始  取前面2条路（每次都是取2条路）  各10行  至右边  H列范围
如果  有不足10行的  路名  就填充 空行  补成 10行

liulang0808

建议楼主结合附件内容解释下具体需求

3190496160

针对附件，具体描述你的需求，目前只是摆出一个文件，没有任何文字性说明，没法知道你想干嘛的

动感超人biubiu

liulang0808 发表于 2022-12-8 17:08
建议楼主结合附件内容解释下具体需求

源数据  按顺序提取  2条路名10行  不足10行 插入空行补充至10行

动感超人biubiu

3190496160 发表于 2022-12-8 20:30
针对附件，具体描述你的需求，目前只是摆出一个文件，没有任何文字性说明，没法知道你想干嘛的

源数据  按顺序提取  2条路名10行  不足10行 插入空行补充至10行

liulang0808

Sub 按钮1_Click()
    Set d = CreateObject("scripting.dictionary")
    r = Cells(Rows.Count, 1).End(3).Row
    arr = [a1].Resize(r, 5)
    r = 2
    For j = 2 To UBound(arr)
        If Len(arr(j, 1)) > 0 Then
            d(arr(j, 1)) = d(arr(j, 1)) & "," & j
        End If
    Next j
    Application.ScreenUpdating = False
    For Each kk In d.keys
        brr = Split(d(kk), ",")
        For j = 1 To UBound(brr) Step 10
            For i = 0 To 9
                If j + i <= UBound(brr) Then
                    For k = 1 To 5
                        Cells(r + i, k + 6) = arr(Val(brr(j + i)), k)
                    Next k
                End If
            Next i
            r = r + 10
        Next j
    Next kk
    Application.ScreenUpdating = True
End Sub

liulang0808

需求没看太懂，模拟了自认为看懂了的部分

ykcbf1100

如果按照楼主4楼的说法，应该是满足要求了。

动感超人biubiu

liulang0808 发表于 2022-12-8 22:57
需求没看太懂，模拟了自认为看懂了的部分

按2条路提取
第1条路“新兴路”提取10个
第2条路“新晓路”提取10个
后面不足10个的路空行填充

动感超人biubiu

ykcbf1100 发表于 2022-12-9 09:33
如果按照楼主4楼的说法，应该是满足要求了。

这个接近了，  

新兴路和新晓路  要把剩下的都要 按10个 提取完

空行的地方不要有内容