很简单的吧。筛选A列不为空[A1].CURRENTREGION.AutoFilter Field:=1, Criteria1:="<>"复制就是COPY TO 注意是可见单元格SpecialCells(xlCellTypeVisible)存储就是THISWORKBOOK.PATH
高级筛选完全可以满足要求
可以录制宏