[已解决]选取任意一行或连续多行，复制数据后删除，谢谢！

wengrobert

选取任意一行或连续多行，复制数据后删除，谢谢！

如：以下是选第2行，我想选取任意一行或连续多行，如何表示？

sub ruku()
Dim i As Integer
i = Sheets("入库").[a65536].End(xlUp).Row + 1
If ActiveCell = "" Then
    MsgBox "请先选择商品数据记录！"
Else
   
    Range("a2:e2").Select
    Selection.Copy Sheets("入库").Cells(i, 1)
    Range("a2:e2").EntireRow.Delete
   
 
   
   
End If
End Sub

最佳答案

月排行榜 / 总排行榜

liuliu66

2010-8-21 17:49

sub ruku()
Dim i As Integer
i = Sheets("入库").[a65536].End(xlUp).Row + 1
If ActiveCell = "" Then
    MsgBox "请先选择商品数据记录！"
Else   
    selection.Copy Sheets("入库").Cells(i, 1)
    selection.EntireRow.Delete
End If
End Sub

[此贴子已经被作者于2010-8-21 18:04:29编辑过]

跳转到最佳答案楼层

knifefox

怎么个任意法？ 随机？

还是要用参数 ROW("i:i").Copy

liuliu66

把代码中的单元格区域用selection.entirerow代替

liuliu66

sub ruku()
Dim i As Integer
i = Sheets("入库").[a65536].End(xlUp).Row + 1
If ActiveCell = "" Then
    MsgBox "请先选择商品数据记录！"
Else   
    selection.Copy Sheets("入库").Cells(i, 1)
    selection.EntireRow.Delete
End If
End Sub

[此贴子已经被作者于2010-8-21 18:04:29编辑过]

liuliu66

楼主试试，可以不