excel如何显示没有内容的行和列

发布网友发布时间：2022-04-23 09:56

共3个回答

热心网友时间：2023-10-10 10:45

其他部分没有内容吗？CTRL+A全选，把边框设置为无，拉取内容部分重新设置边框.

另外可以参考：
http://zhidao.baidu.com/link?url=R2QF24TutVbjo9uejgdM9ImchmACW3FK6v65FOCRyISYwNhbv0Ugb746rQV8fJ34g2CTO3KhNRCLrOIIbRrgnK

2种方法：
一、基础法

1、当表格内无底色填充的时：选中区域——填充底色——Ctrl+F（直接查找）——（在查找对话框中）选项——格式——格式——填充——无底色——查找全部——在对话框中，Ctrl+A——全选即可
2、当表格内填充等格式较多时：全选数据区域——Ctrl+1（调出单元格格式对话框）——保护——取消勾选“锁定”——选中区域——Ctrl+1（调出单元格格式对话框）——保护——勾选“锁定”——Ctrl+F（直接查找）——（在查找对话框中）选项——格式——格式——保护——取消勾选“锁定”——查找全部——在对话框中，Ctrl+A——全选即可
思路：构造区域与反选区域的格式差别，利用查找选项中的格式，进行反选
二、宏代码
http://wenku.baidu.com/view/a55fc044be1e650e52ea9967.html

热心网友时间：2023-10-10 10:46

光标在第12行，按ctrl+shift+向下方向键，在行标上右键-隐藏。后面列同样方法。追问你试过没，别拿百度的答案，你自己用方向键试试

热心网友时间：2023-10-10 10:46

Sub 隐藏空白行与列()
Dim i&, j&, k&, l&
ActiveSheet.UsedRange.Select
i = Selection(Selection.Count).Row
j = Selection(Selection.Count).Column
For k = 1 To i
If WorksheetFunction.CountA(Rows(k)) = 0 Then Rows(k).Hidden = True
Next
For l = 1 To j
If WorksheetFunction.CountA(Columns(l)) = 0 Then Columns(l).Hidden = True
Next
End Sub追问你来些编程了么

追答Sub 隐藏空白行与列()
Dim i&, j&, k&, l&
ActiveSheet.UsedRange.Select
i = Selection(Selection.Count).Row
j = Selection(Selection.Count).Column
For k = 1 To i
If WorksheetFunction.CountA(Rows(k)) = 0 Then Rows(k).Hidden = True
Next
For l = 1 To j
If WorksheetFunction.CountA(Columns(l)) = 0 Then Columns(l).Hidden = True
Next
Columns(j + 1).Select
Range(Selection, Selection.End(xlToRight)).Select
Selection.EntireColumn.Hidden = True
Rows(i + 1).Select
Range(Selection, Selection.End(xlDown)).Select
Selection.EntireRow.Hidden = True
End Sub