複製/粘貼第n行的次數（根據單元格的值）

-1

我需要一個代碼，其中第8列的單元格將被連接並複製到另一個表單（第一個空單元格中的ofc），但它們需要複製n次。取決於第23列單元格的值。複製/粘貼第n行的次數（根據單元格的值）

因此，每個副本都是相同的，但是複製一個低於其他值。

例如：

我有RIF50G 2B中的「H2」和MAEU3P在「N2」。在「W2」中，我有「4」。所以我需要在另一個表中：

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

如果colUmn「W」中的值爲0，那麼該行不需要被複制！

從上述將被刷新，並且每個餘運行代碼，值和字串時間將是不同的所有小區

數據（它僅僅是從較大的代碼的一部分，其中我導入一些數據）

此外，當它以這種方式完成複製第一行，我需要爲每一行完成，直到最後一行。

來源

2016-05-30 Ivan Kočiš

您到目前爲止嘗試過哪些方法，以及您的方法如何工作？爲了獲得問題的答案，您應該創建一個小而易於理解的示例，以便其他人可以將其複製/粘貼到IDE中，以便輕鬆幫助您追蹤特定錯誤。 –

如果您自願提供了您嘗試過的代碼（工作與否），那麼可以回答這麼多小問題。 – Jeeped

基於列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

來源

2016-05-30 22:38:24 Jeeped

複製/粘貼第n行的次數（根據單元格的值）

回答

相關問題