作者:乔山办公网日期:
返回目录:excel表格制作
用vba可以实现。例如有表格如图:
第一步:点击开发工具-visual basic。如图:
第二百步:在当前工作表中写入代码如下:
Sub 删除空行()
Dim bj As Boolean '判断一行中是否都是为度空
For i = 15 To 1 Step -1
bj = False '默认为假,如果版有非空则为真
For Each mycell In Rows(i).Cells '遍历当前行的单元格
If mycell.Text <> "" Then '当前单元格是否为空
bj = True '如果不为空,则标记赋值为真 退出改行的检查
Exit For
End If
Next mycell
If Not bj Then Rows(i).Delete '如果改行全部为空,则删除该行
Next i
End Sub
第三步权:运行宏。结果如图:
项目zd中常用回的写法:
public static boolean isRowEmpty(Row row) {
for (int c = row.getFirstCellNum(); c < row.getLastCellNum(); c++) {
Cell cell = row.getCell(c);
if (cell !答= null && cell.getCellType() != Cell.CELL_TYPE_BLANK)
return false;
}
return true;
}
判断第1行:=IF(COUNTBLANK(1:1),0,1) 空行返回0,非空行返回1;
判断第2行:=IF(COUNTBLANK(2:2),0,1) 空行返回0,非空行返回1;
可以筛选过滤掉为空的行。数据->筛选->自动筛选,然后会出现筛选小按钮,点击小按钮,选择筛选方式“自定义”,条件选“不等于”空。你试试看