VBA复制数据到指定位置
    Sub CopyCurrentRegion()
    Sheets(“sheet1”).Range(“A1”).CurrentRegion.Copy Sheets(“sheet2”).Range(“A1”)
    End Sub

    Vba 从sheet1复制筛选数据当sheet2
    【VBA】复制单元格区域到其他区域 - 图1