- 文本
- 历史
Sub 隐藏空白行与列() Dim i&, j&, k&, l& Ac
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
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
0/5000
子隐藏空白行与列（）<br>暗淡I＆J＆中，k＆，L＆<br>ActiveSheet.UsedRange.Select <br>I =选择（Selection.Count）.Row <br>J =选择（Selection.Count）.COLUMN <br>对于k = 1到i <br>如果WorksheetFunction。 COUNTA（行（K））= 0那么行（k）的.Hidden =真<br>接着<br>对于L = 1到j <br>如果WorksheetFunction.CountA（列（1））= 0然后，列（L）.Hidden =真<br>接下来<br>列（j + 1）。选择<br>范围（精选，Selection.End（xlToRight））。选择<br>Selection.EntireColumn.Hidden =真<br>行第（i + 1）。选择<br>范围（精选，Selection.End（xlDown））。选择<br>Selection.EntireRow。隐藏=真<br>结束子
正在翻译中..
子<br> 迪姆 i_， j_， k_， l_<br> 活动表.已用范围. 选择<br> i = 选择（选择.计数）。行<br> j = 选择（选择.计数）。列<br> 对于 k = 1 到 i<br> 如果工作表功能.CountA（行（k）） = 0 然后行（k）。隐藏 = 真实<br> 下<br> 对于 l = 1 到 j<br> 如果工作表功能.CountA（列（l）） = 0 然后列（l）。隐藏 = 真实<br> 下<br> 列（j = 1）。选择<br> 范围（选择、选择.结束（xltoRight））。选择<br> 选择.整个列.隐藏 = True<br> 行（i = 1）。选择<br> 范围（选择、选择.结束（xlDown））。选择<br> 选择.整行.隐藏 = 真<br>结束子
正在翻译中..
Leapinlar字幕<br>烟和强生K&L<br>活动工作表.usedrange.select<br>and=选择（selection.count）.row<br>j=选择（selection.count）.column<br>对于k=1到i<br>如果worksheetfunction.counta（rows（k）=0，则rows（k）.hidden=true<br>下一个<br>对于L=1到J<br>如果worksheetfunction.counta（columns（l）=0，则columns（l）.hidden=true<br>下一个<br>列（J+1）。选择<br>范围（selection，selection.end（xltoright））。选择<br>selection.entirecolumn.hidden=真<br>行（I+1）。选择<br>范围（selection，selection.end（xldown））。选择<br>selection.entirerow.hidden=真<br>端接头<br>
正在翻译中..
其它语言
本翻译工具支持: 世界语, 丹麦语, 乌克兰语, 乌兹别克语, 乌尔都语, 亚美尼亚语, 伊博语, 俄语, 保加利亚语, 信德语, 修纳语, 僧伽罗语, 克林贡语, 克罗地亚语, 冰岛语, 加利西亚语, 加泰罗尼亚语, 匈牙利语, 南非祖鲁语, 南非科萨语, 卡纳达语, 卢旺达语, 卢森堡语, 印地语, 印尼巽他语, 印尼爪哇语, 印尼语, 古吉拉特语, 吉尔吉斯语, 哈萨克语, 土库曼语, 土耳其语, 塔吉克语, 塞尔维亚语, 塞索托语, 夏威夷语, 奥利亚语, 威尔士语, 孟加拉语, 宿务语, 尼泊尔语, 巴斯克语, 布尔语(南非荷兰语), 希伯来语, 希腊语, 库尔德语, 弗里西语, 德语, 意大利语, 意第绪语, 拉丁语, 拉脱维亚语, 挪威语, 捷克语, 斯洛伐克语, 斯洛文尼亚语, 斯瓦希里语, 旁遮普语, 日语, 普什图语, 格鲁吉亚语, 毛利语, 法语, 波兰语, 波斯尼亚语, 波斯语, 泰卢固语, 泰米尔语, 泰语, 海地克里奥尔语, 爱尔兰语, 爱沙尼亚语, 瑞典语, 白俄罗斯语, 科西嘉语, 立陶宛语, 简体中文, 索马里语, 繁体中文, 约鲁巴语, 维吾尔语, 缅甸语, 罗马尼亚语, 老挝语, 自动识别, 芬兰语, 苏格兰盖尔语, 苗语, 英语, 荷兰语, 菲律宾语, 萨摩亚语, 葡萄牙语, 蒙古语, 西班牙语, 豪萨语, 越南语, 阿塞拜疆语, 阿姆哈拉语, 阿尔巴尼亚语, 阿拉伯语, 鞑靼语, 韩语, 马其顿语, 马尔加什语, 马拉地语, 马拉雅拉姆语, 马来语, 马耳他语, 高棉语, 齐切瓦语, 等语言的翻译.
