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