第一步，制作文檔。
打開WPS表格 2009(在線文檔公測(cè)版)，新建一個(gè)空白文檔，在一些區(qū)域輸入數(shù)字，作為使用區(qū)域。
第二步，點(diǎn)擊“工具”—“宏”—“創(chuàng)建”新宏。
第三步，在Microsoft Visual Basic中輸入或復(fù)制下列代碼。
Sub HiddenSurroundRange()
Dim CelFirst As Range, CelLast As Range
If Not Selection Is Nothing Then
With Selection
'當(dāng)前選中區(qū)域的第一個(gè)單元格
Set CelFirst = .Cells(1)
'當(dāng)前選中區(qū)域的最后一個(gè)單元格
Set CelLast = .Cells(.Cells.Count)
End With
If CelFirst.Address <> "$A$1" Then
'藍(lán)色區(qū)域
With Range([a1], CelFirst.Offset(IIf(CelFirst.Row = 1, 0, -1), IIf(CelFirst.Column = 1, 0, -1)))
'如果當(dāng)前選中區(qū)域不包括第一行，則隱藏藍(lán)色區(qū)域所在的行
If CelFirst.Row <> 1 Then .EntireRow.Hidden = True
'如果當(dāng)前選中區(qū)域不包括第一列，則隱藏藍(lán)色區(qū)域所在的列
If CelFirst.Column <> 1 Then .EntireColumn.Hidden = True
End With
End If
f CelLast.Address <> "$IV$65536" Then
'與上面類似處理綠色區(qū)域
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 IfEnd If
End Sub
第四步，執(zhí)行“視圖—工具—控件工具箱”，單擊“按鈕”，選擇合適的位置插入一個(gè)懸浮的“隱藏”按鈕，為它指定HiddenSurroundRange宏。
第五步，選定使用區(qū)域，點(diǎn)擊“隱藏”按鈕，使用區(qū)域以外的區(qū)域一次性全部隱藏。
小提示：WPS默認(rèn)安裝沒有VBA環(huán)境，也無(wú)法使用宏功能，若要實(shí)現(xiàn)教程所述功能，需要另外安裝VBA，WPSoffice在線文檔公測(cè)版可以共享文檔，只要有郵箱，就可以共享VBA文檔，免去尋覓、下載之苦。另外，由于實(shí)例中運(yùn)用了“宏”，在打開該文件時(shí)要啟用宏。
