`
发表于2024/4/12 14:53:38 楼主 
头像 等级:初学者
积分:4
财富值:2.0
身份:普通用户

  如题:怎样自动隐藏空白区域后打印 几十个表格需要重复操作,一张张选择再用控制+9按键重复操作太麻烦,能不能自动识别打印时隐藏



我的个性签名
发表于 2024/4/12 14:57:04   
头像 等级:初学者
积分:4
财富值:2
身份:普通用户

实例图片,需要隐藏空白行

我的个性签名
发表于 2024/4/12 15:22:17   
头像 等级:传说级人物
积分:2532
财富值:6
身份:系统管理员
可以试试rpa 删除空单元格整行 http://www.ffcell.com/TopicSlt/ShowTopic.aspx?id=5477
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
发表于 2024/4/12 15:46:59   
头像 等级:初学者
积分:4
财富值:2
身份:普通用户

回复:3楼


太复杂了,不会用啊

网上搜索用VBA

Sub Hidden()
For i = 1 To 63350 Step 1
If Cells(i, 1).Value = 0 Then
Cells(i, 1).EntireRow.Hidden = True
End If
Next i

End Sub


只能在当前表操作,不能批量操作

我的个性签名
发表于 2024/4/12 15:48:19   
头像 等级:初学者
积分:4
财富值:2
身份:普通用户

回复:3楼


不能删除,因为里面全是是公式,行数内容每个月不一样
我的个性签名
发表于 2024/4/12 16:14:08   
头像 等级:传说级人物
积分:2532
财富值:6
身份:系统管理员
RPA工作流看附件
附件:   下载
方方格子安装教程http://www.ffcell.com/WenKu/article.aspx?id=376
发表于 2024/4/13 10:10:10   
头像 等级:初学者
积分:4
财富值:2
身份:普通用户

已经用Lotex插件完美解决



Sub 每个表执行函数() '不要修改此函数名

For i = 10 To 100 Step 1
If Cells(i, 2).Value = "" Then
    Cells(i, 2).EntireRow.Hidden = True
    End If
    Next i
End Sub

我的个性签名

快速回复

目前不允许游客发表,请 登录 注册 后再发贴。