如何用excel vba 复制多行数据

多重选区造成复制失败，需要用union将选区合并为一个。请修改那个扩展选区到整行()如下：

Sub 扩展选区到整行()

Union(SelectionEntireRow, Selection)Select

End Sub

看你写这么多， 也没看明白你要做什么

是你自己 选中区域， VBA 替你插入 ？

还是VBA 依次选中 每一行， 自己插入？？？？

自己 选中区域， VBA 替你插入:

选中后 ，Alt+F8 运行下面的宏

Sub 宏1()

selectionentirerowselect

SelectionCopy

SelectionInsert Shift:=xlDown

ApplicationCutCopyMode = False

end sub

不知道你的条件行在哪1行，现假设为第1行

For j = 1 to Cells(2,ColumnsCount)End(1)Column

If Cells(1,,j) = 0 Then

Columns(j)Hidden = True

End If

Next

同样，不知道你的条件列在哪1列，现假设为第1列

For i =1 to [A65536]End(3)Row

If Cells(i,1) = 0 Then

Rows(i)Hidden = True

End If

Next

这里需要注意的是，如果处理的是同一张表格，那么你的条件行与条件列都要不参加隐藏 *** 作，代码开头For j = 1 to应改为For j = 2 to。如果你有表头，那么你的条件行或列将都为2，这时应改为For j = 3 to。

for i=1 to 100

Columns(i)Select

With SelectionInterior

ColorIndex = 40

Pattern = xlSolid

End With

next i

for i=1 to 100

rows(i)Select

With SelectionInterior

ColorIndex = 40

Pattern = xlSolid

End With

next i

以上就是关于如何用excel vba 复制多行数据全部的内容，包括:如何用excel vba 复制多行数据、怎样用VBA实现选择单元格所在的整行、如何用VBA代码选中不连续的几行或者几列等相关内容解答，如果想了解更多相关内容，可以关注我们，你们的支持是我们更新的动力！