復制/粘貼行 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