用vba合并excel多个文件？

可以加这句删除活动工作表第一列空白单元格所在的行： ActiveSheet.Columns(1).SpecialCells(xlCellTypeBlanks).EntireRow.Delete 如果想删的是第一列有文本的那些行，可以用这句： ActiveSheet.Columns(1).SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow.Delete