WPS表格怎么隐藏不使用的区域？

WPS表格怎么隐藏不使用的区域？

也可以用手动，点一下D列列标，按ctrl+shift+向右键，全选右边没用的列，点右键隐藏。

　　同样方法9行行标，按ctrl+shift+向下键，全选下边没用的行。点右键隐藏。

你是要有一段宏代码吗追问不是 要直接隐藏的方法追答第一步，制作文档。
打开WPS表格 2009（在线文档公测版），新建一个空白文档，在一些区域输入数字，作为使用区域。
第二步，点击“工具”—“宏”—“创建”新宏。
第三步，在Microsoft Visual Basic 中输入或复制下列代码。
Sub HiddenSurroundRange()
Dim CelFirst As Range, CelLast As Range
If Not Selection Is Nothing Then
With Selection
'当前选中区域的第一个单元格
Set CelFirst = .Cells(1)
'当前选中区域的最后一个单元格
Set CelLast = .Cells(.Cells.Count)
End With
If CelFirst.Address <> "$A$1" Then
'蓝色区域
With Range([a1], CelFirst.Offset(IIf(CelFirst.Row = 1, 0, -1), IIf(CelFirst.Column = 1, 0, -1)))
'如果当前选中区域不包括第一行，则隐藏蓝色区域所在的行
If CelFirst.Row <> 1 Then .EntireRow.Hidden = True
'如果当前选中区域不包括第一列，则隐藏蓝色区域所在的列
If CelFirst.Column <> 1 Then .EntireColumn.Hidden = True
End With
End If
If CelLast.Address <> "$IV$65536" Then
'与上面类似处理绿色区域
With Range(CelLast.Offset(IIf(CelLast.Row = 65536, 0, 1), IIf(CelLast.Column = 256, 0, 1)),
[IV65536])
If CelLast.Row <> 65536 Then .EntireRow.Hidden = True
If CelLast.Column <> 256 Then .EntireColumn.Hidden = True
End With
End If
End If
End Sub