要批量删除空白行,列,单元格,用宏代码才行。以下代码能满足要求: Sub 删除空白行列()For I = ActiveSheet.UsedRange.Rows.Count To 1 Step -1 If Application.CountA(Rows(I)) = 0 Then Rows(I).DeleteNextFor I = ActiveSheet.UsedRange.Columns.Count To 1 Step -1 If Application.CountA(Columns(I)) = 0 Then Columns(I).DeleteNextEnd Sub