麻烦各位大神，如何根据数量批量粘贴

syaoraney

求助各位大神，
根据机器人数量（机器人数量所在的G列不是固定的，肯能会变成H列或者更多），然后复制a到d列的数据到新的sheet页里面，然后得到下面图片的结果

我写的程序写了一半，不知道为啥总是报错，

而且感觉写复杂了，麻烦各位大神帮忙整整，感谢

shiruiqiang

虽然没打开，但是：for each 后直接i=i+1，说明每个单元格数字加到i里面了。建议和下面的if换顺序试试还行不？

3190496160

Sub copy2()
Dim rng As Range
Dim ar As Variant
With Sheet1
    m = .Cells(2, Columns.Count).End(xlToLeft).Column
    Set rng = .Rows(2).Find("机器人数量", , , , , , 1)
    If rng Is Nothing Then MsgBox "找不到机器人数量字段！": End
    lh = rng.Column
    h = .Cells(Rows.Count, "a").End(xlUp).Row
    ar = .Range(.Cells(2, 1), .Cells(h, m))
    sl = Application.Sum(.Range(.Cells(3, lh), .Cells(h, lh)))
End With
Dim arr()
ReDim arr(1 To sl, 1 To UBound(ar, 2))
For i = 2 To UBound(ar, 1)
    If Trim(ar(i, lh)) <> "" Then
        If IsNumeric(ar(i, lh)) Then
            gs = ar(i, lh)
            For s = 1 To gs
                n = n + 1
                For j = 1 To 4
                    arr(n, j) = ar(i, j)
                Next j
                arr(n, 5) = "R" & Format(s, "00")
            Next s
        End If
    End If
Next i
With Sheet2
    .UsedRange = Empty
    .[a3].Resize(n, UBound(arr, 2)) = arr
End With
MsgBox "ok!"
End Sub

3190496160

3190496160

工作簿3.rar (18.6 KB, 下载次数: 6)

2022-12-28 17:17 上传

点击文件名下载附件

sdytsxd991122

sdytsxd991122

syaoraney

sdytsxd991122 发表于 2022-12-28 17:23

昂，哈哈，谢谢，明白了

syaoraney

3190496160 发表于 2022-12-28 17:17

谢谢哈~帮我弄出来这个