Question

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

因此每个副本都是相同的，但是复制一个副本。

例如：

我在“H2”中有RIF50G 2B，在“N2”中有MAEU3P。在“W2”中我有“4”。所以我需要另外一张表：

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

如果colUmn“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

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

1 个答案: