使用VBA，选中不连续的多行，将复制到另一个表格中

Authority1000

各位大大帮忙看下，这个问题要如何解决

第一步，在选择的时候，不一定要选中固定的列，选中一行中任意单元格，都视为选中了该行


复制过来的内容，是不带公式的

请看附件 求助.zip (205.64 KB, 下载次数: 11)

2024-5-7 12:14 上传

点击文件名下载附件

蓝桥玄霜

报价单的例子：

lln0618

Sub 报价单()
'
' 报价单 宏
'

'
Set ws = ActiveSheet '设ws为当前表格
Set ws2 = Sheets("报价单") '

For Each cel In Selection '遍历选中的单元格
a = cel.Row ' 选中单元格的行号
b = cel.Column ' 选中单元格的列号

If Cells(a, b) <> "" Then
hs = ws2.Range("B1048576").End(xlUp).Row + 1 '获取报价单表格最后一行行号
ws.Rows(a & ":" & a).Copy Destination:=ws2.Rows(hs & ":" & hs) '复制行到另一个表格
End If

Next

Cells(1, 1).Select



    报价单5.8.zip (21.83 KB, 下载次数: 7)

2024-5-8 16:35 上传

点击文件名下载附件

End Sub

Authority1000

谢谢，我是新手小白
我参考两位老师，自己优化了一下

Sub cr()

    Dim cel As Range
    Dim Arr
    Dim n%
    Dim Myr&
   
    'Sheet2.Activate
    Arr = [B2].CurrentRegion
   
   
   
    For Each cel In Selection.Rows

        n = cel.Row

        Myr = Sheet1.Cells(Sheet1.Rows.Count, 2).End(xlUp).Row + 1
        Sheet1.Cells(Myr, 2).Resize(1, UBound(Arr, 2)) = Application.Index(Arr, n - 1, 0)
        

    Next
   

   
    Sheet1.Select
     

End Sub

taller

mafect

taller 发表于 2024-5-9 00:10

简单粗暴