如何根据列中的单元格值复制行？

Sub CopyData() Updateby Extendoffice Dim xRow As Long Dim VInSertNum As Variant xRow = 1 Application.ScreenUpdating = False Do While (Cells(xRow, "A") <> "") VInSertNum = Cells(xRow, "D") If ((VInSertNum > 1) And IsNumeric(VInSertNum)) Then Range(Cells(xRow, "A"), Cells(xRow, "D")).Copy Range(Cells(xRow + 1, "A"), Cells(xRow + VInSertNum - 1, "D")).Select Selection.Insert Shift:=xlDown xRow = xRow + VInSertNum - 1 End If xRow = xRow + 1 Loop Application.ScreenUpdating = False End Sub

备注：在上面的代码中，字母 A 表示您数据范围的开始列，以及字母 D 是您要基于其复制行的列字母。 请根据需要更改它们。

Tips：要应用此 根据单元格值复制行/列 功能，你应该 下载 Kutools for Excel 第一。

最佳办公生产力工具

在Word，Excel，PowerPoint中启用选项卡式编辑和阅读，发布者，Access，Visio和Project。 在同一窗口的新选项卡中而不是在新窗口中打开并创建多个文档。 每天将您的工作效率提高50％，并减少数百次鼠标单击！