导出的excel 中间有空行，导致筛选不全，需要全选才可筛选

大佬们 谁遇到过啊


在设计器中预览导出，或者嵌入程序中点击导出 都存在这个问题

frankyin 发表于 2023-7-31 18:42
设计器版本， 然后我给你个json数据源， 你试试？ 这样可以吗

您好，您先使用Felix.Li版主回复的方法进行删除空白行，方便的话您也上传一下您的报表模板和数据，我们一起看看是否有其他解决方案。

rdlx报表格式给我下，我也研究看看

wengMQ 发表于 2023-8-1 11:55
你可以试下把报表模板的有背景颜色的背景色去掉试下

您好，这个是导出excel后有空白行导致的，去除背景色导出的效果还是一样的，目前可以参考上面Felix.Li版主的回复，通过脚本删除多余的空白行来实现。

你可以试下把报表模板的有背景颜色的背景色去掉试下

设计器版本， 然后我给你个json数据源， 你试试？ 这样可以吗

您好，请上传可复现该问题的demo，以及您使用的ARJS的版本，我们测试看看。

frankyin 发表于 2023-7-31 18:42
设计器版本， 然后我给你个json数据源， 你试试？ 这样可以吗

您好，针对这类问题确实有时候会出现一列被压缩很小，有空白行，这是因为报表本身设计比较复杂，Excel又对表格单元格的格式要求有些复杂。

在计算导出时，有些行可能因为报表设计边框粗细和嵌套等原因，导致导出时被认为成两行，但是但是又因为没数据很短就会有这种情况。本身不影响报表
整体查看的样式。然后如果您过滤的时候有问题，可以使用如下脚本去删除多余的空白行:
1.打开对应的Excel
2.按Alt+F11进入宏编辑页面
3.对页面输入如下脚本:

1. Sub 删除空白行()
   
2.     Dim ws As Worksheet
   
3.     Dim lastRow As Long
   
4.     Dim i As Integer
   
5.    
   
6.     ' 选择当前活动的工作表
   
7.     Set ws = ActiveSheet
   
8.    
   
9.     ' 获取工作表最后一行的行号
   
10.     lastRow = ws.Cells(ws.Rows.Count, 1).End(xlUp).Row
    
11.    
    
12.     ' 从最后一行逆向遍历，删除空白行
    
13.     For i = lastRow To 1 Step -1
    
14.         If WorksheetFunction.CountA(ws.Rows(i)) = 0 Then
    
15.             ws.Rows(i).Delete
    
16.         End If
    
17.     Next i
    
18. End Sub
    

复制代码

按照如上步骤运行该脚本，就会删除所有空白行了。然后这个脚本也可以导出。下次直接导入使用即可