复制/粘贴行 n 次（根据单元格中的值）

Question

我需要一个代码，其中第 8 列和第 14 列的单元格将被连接并复制到另一个工作表（第一个空单元格中的 ofc），但它们需要被复制 n 次。 取决于第 23 列中单元格的值。

所以每个副本都将是相同的，但复制一个在另一个下面。

例如：

我在“H2”中有 RIF50G 2B，在“N2”中有 MAEU3P。 在“W2”中，我有“4”。 所以我需要在另一张纸上写这个：

RIF50G 2B MAEU3P    
RIF50G 2B MAEU3P    
RIF50G 2B MAEU3P    
RIF50G 2B MAEU3P    

如果列“W”中的值为 0，则不需要复制该行！

来自上面提到的所有单元格的数据将被刷新，每次我运行代码时，值和字符串都会不同（它只是我导入一些数据的较大代码的一部分）

另外，当它以这种方式完成第一行的复制时，我需要对每一行都这样做，直到最后一行。

Answer 1

基于 W 列中的值的简单Range.Resize应该足以重复连接的值。

Dim rw As Long
With Worksheets("Sheet1")
    For rw = 2 To .Cells(Rows.Count, "W").End(xlUp).Row
        If CBool(.Cells(rw, "W").Value2) Then _
            Worksheets("another sheet").Cells(Rows.Count, "A").End(xlUp).Offset(1, 0).Resize(.Cells(rw, "W").Value2, 1) = _
                .Cells(rw, "H").Value2 & Chr(32) & .Cells(rw, "N").Value2
    Next rw
End With