[已解决]请教如何复制不连续的选中单元格对应的行？

daniel32

请教如何复制不连续的选中单元格对应的行？如，B2，C4现在被选中，如何操作直接复制到这两个单元格对应的行？

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-12-30 15:53

Sub ddd()
Dim rg As Range
Set rg = Selection
rg.EntireRow.Copy Range("a20")
End Sub

跳转到最佳答案楼层

yyyydddd8888

Sub ddd()
Dim rg As Range
Set rg = Selection
rg.EntireRow.Copy Range("a20")
End Sub

daniel32

yyyydddd8888 发表于 2013-12-30 15:53
Sub ddd()
Dim rg As Range
Set rg = Selection

上面代码可以，谢谢，不知道有没有手工操作的呢？

yyyydddd8888

daniel32 发表于 2013-12-30 15:58
上面代码可以，谢谢，不知道有没有手工操作的呢？

没有办法手工操作。你可以加一个按钮，这样就方便了。