根据单元格中的值复制当前列下的整行

Question

code that covers my problem

我正在尝试根据单元格中的值复制当前列下的整行。 当 A1 中为 5 时，则复制 5 次。 我发现的代码仅限于一行中的几列。

Answer 1

使用代码在新工作表中重新创建表格。

要更新您可以替换的代码

Sheet2.Range("A" & currentNewSheetRow).Value2 = Sheet1.Range("A" & currentRow).Value2
Sheet2.Range("B" & currentNewSheetRow).Value2 = Sheet1.Range("B" & currentRow).Value2
Sheet2.Range("C" & currentNewSheetRow).Value2 = Sheet1.Range("C" & currentRow).Value2

与

    Sheet2.Range("A" & currentNewSheetRow).entirerow.Value2 = Sheet1.Range("A" & currentRow).entirerow.Value2

这将复制整行的值。