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

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

将复制整行的值。