在 Excel 中，凍結(jié)窗口既可以凍結(jié)首行首列又可以凍結(jié)任意前幾行前幾列，還可以同時(shí)凍結(jié)首行和首列、任意前幾行和前幾列。拆分窗口既可把一個(gè)表格拆分兩個(gè)窗口，又可把它拆分為四個(gè)窗口，它與凍結(jié)窗口有異曲同工的作用。

如果要?jiǎng)討B(tài)凍結(jié)窗口和批量?jī)鼋Y(jié)窗口，需要用VBA（宏）實(shí)現(xiàn)。例如：用 VBA 可以實(shí)現(xiàn)從一個(gè)工作表、多個(gè)工作表或一個(gè)工作簿所有工作表任意指定單元格或選中單元格處凍結(jié)，還可以實(shí)現(xiàn)只凍結(jié)選擇的全部工作表。

一、Excel凍結(jié)窗口

（一）凍結(jié)首行

選擇“視圖”選項(xiàng)卡，單擊“凍結(jié)窗口”，在彈出的菜單中選擇“凍結(jié)首行”，第一行下邊線上出現(xiàn)一條灰線，則首行被凍結(jié)，往下拖滑塊往上移數(shù)據(jù)時(shí)，首行始終停在第一行不動(dòng)；操作過程步驟，如圖1所示：

圖1

（二）凍結(jié)首列

當(dāng)前選項(xiàng)卡為“視圖”，單擊“凍結(jié)窗口”，在彈出的選項(xiàng)中選擇“凍結(jié)首列”，第一列右邊線上出現(xiàn)一條灰線，則首列被凍結(jié)，往右拖滑塊，列往左移動(dòng)時(shí)，首列始終停在第一列不動(dòng)；操作過程步驟，如圖2所示：

圖2

（三）同時(shí)凍結(jié)首行與首列

當(dāng)前為“視圖”選項(xiàng)卡，選中 B2 單元格，單擊“凍結(jié)窗口”，在彈出的菜單中，選擇“凍結(jié)拆分窗口”，則 A 列右邊線和第一行下邊線都出現(xiàn)一條灰線，則首行和首列同時(shí)被凍結(jié)；當(dāng)往上移動(dòng)數(shù)據(jù)時(shí)，首行不動(dòng)；當(dāng)往左移動(dòng)數(shù)據(jù)時(shí)，首列不動(dòng)；操作過程步驟，如圖3所示：

圖3

（四）凍結(jié)前幾行（前 n 行）

假如要凍結(jié)前 4 行和前兩列。選中 A5 單元格，單擊“視圖”選項(xiàng)卡下的“凍結(jié)窗口”，然后選擇“凍結(jié)拆分窗口”，則第四行下邊線出現(xiàn)一條灰線，前四行都被凍結(jié)；當(dāng)往上移動(dòng)數(shù)據(jù)時(shí)，前四行始終不動(dòng)；操作過程步驟，如圖4所示：

圖4

（五）凍結(jié)前幾列（前 n 列）

假如要凍結(jié)前 2 列。選中 C1 單元格，選擇“視圖”選項(xiàng)卡，點(diǎn)擊“凍結(jié)窗口”，然后選擇“凍結(jié)拆分窗口”，則第二列右邊線出現(xiàn)一條灰線，前兩列被凍結(jié)；當(dāng)往左移動(dòng)數(shù)據(jù)時(shí)，前兩列始終不動(dòng)；操作過程步驟，如圖5所示：

圖5

（六）同時(shí)凍結(jié)前幾行（前 n 行）和前幾列（前 n 列）

假如要凍結(jié)前 5 行和前兩列。選中 C6 單元格，單擊“視圖”選項(xiàng)卡下的“凍結(jié)窗口”，然后選擇“凍結(jié)拆分窗口”，則 B 列右邊線和第五行下邊線都出現(xiàn)一條灰線，前五行和前兩列都被凍結(jié)；當(dāng)往上移動(dòng)數(shù)據(jù)時(shí)，前五行始終不動(dòng)；當(dāng)往左邊移動(dòng)數(shù)據(jù)時(shí)，前兩列不動(dòng)；操作過程步驟，如圖6所示：

圖6

（七）取消凍結(jié)

1、選擇“視圖”選項(xiàng)卡，單擊“凍結(jié)窗口”，在彈出的選項(xiàng)中，選擇“取消凍結(jié)窗口”，則前兩列凍結(jié)被取消，其它凍結(jié)也是一樣的取消方法；操作過程步驟，如圖7所示：

圖7

2、提示：

A、如果再選擇一種凍結(jié)方式（如“凍結(jié)首行”后，再選擇另一種凍結(jié)方式（如“凍結(jié)前幾行”），則“凍結(jié)首行”被取消。

B、另外，如果凍結(jié)后，“視圖”呈灰色而無法取消，查看是否對(duì)工作表設(shè)置了保護(hù)（方法為：選擇“審閱”，單擊“保護(hù)工作表”或“保護(hù)工作簿”，Excel2003 在“工具 → 保護(hù)”中，如果要求輸入密碼，則設(shè)置了保護(hù)），如果設(shè)置了保護(hù)，取消保護(hù)就可以取消凍結(jié)了。

二、Excel凍結(jié)窗口用快捷鍵操作

1、凍結(jié)首行。按住 Alt，依次按一次 W、F 和 R，在第一行下邊線上出現(xiàn)一條灰線，把滑塊往下拖，數(shù)據(jù)往上移動(dòng)時(shí)，第一行始終不動(dòng)，說明它被凍結(jié)；操作過程步驟，如圖8所示：

圖8

2、凍結(jié)首列的快捷鍵為 Alt + W + F + C，按鍵方法為：按住 Alt，依次按 W、F 和 C。

3、一次凍結(jié)前幾行和前幾列

假如要一次凍結(jié)前 5 行和前三列。選中 D6 單元格，按住 Alt，按一次 W，按兩次 F，則第五行下邊線和第三列右邊線都出現(xiàn)一條灰線；當(dāng)往上移動(dòng)數(shù)據(jù)時(shí)，前五行始終不動(dòng)；當(dāng)往左移動(dòng)數(shù)據(jù)時(shí)，前三列始終不動(dòng)；說明前五行和前三列都被凍結(jié)；操作過程步驟，如圖9所示：

圖9

三、Excel拆分窗口

（一）拆分為兩個(gè)窗口

1、假如要從第 6 行處或第 5 列處拆分為兩個(gè)窗口。選中 A6 單元格，選擇“視圖”選項(xiàng)卡，單擊“拆分”，則從第六行起被拆分為第二個(gè)窗口，往上拖第二個(gè)窗口的滑塊，該窗口也顯了標(biāo)題行；再次單擊“拆分”，窗口拆分被取消。

2、選中 E1 單元格，單擊“拆分”，則從 E 列起被拆分為第二個(gè)窗口，往左移動(dòng)第二個(gè)窗口的滑塊時(shí)，第二個(gè)窗口也顯示了與第一個(gè)窗口一樣的數(shù)據(jù)；操作過程步驟，如圖10所示：

圖10

（二）拆分為四個(gè)窗口

選中 E5 單元格，選擇“視圖”選項(xiàng)卡，單擊“拆分”，則把表格從 E5 處拆分為四個(gè)有同樣數(shù)據(jù)的窗口；操作過程步驟，如圖11所示：

圖11

（三）取消拆分窗口

只需再次單擊“視圖”選項(xiàng)卡下的“拆分”，拆分窗口被取消，圖10已經(jīng)演示。凍結(jié)行列與拆分窗口有異曲同工之妙，但它們一次只能用一個(gè)，如果已經(jīng)用了凍結(jié)行列，再用拆分窗口，則凍結(jié)行列自動(dòng)取消；反之亦然。

四、Excel凍結(jié)窗口用VBA（宏）

（一）從任意指定單元格處凍結(jié)

1、假如要從 B4 單元格處凍結(jié)。在 Excel 窗口，按 Alt + F11，切換到 VBA 編輯窗口，單擊“插入”，在彈出的菜單中選擇“模塊”，則新建一個(gè)模塊窗口，把以下代碼復(fù)制到窗口：

Sub FreezeWindow()
ActiveWindow.FreezePanes = False
Range("B4").Select
ActiveWindow.FreezePanes = True
End Sub

單擊“運(yùn)行”，在彈出的菜單中選擇“運(yùn)行子過程/用戶窗體”，則在 B4 處凍結(jié)前三行和 A 列，按 Alt + F11，切換回 Excel 窗口，B4 處已經(jīng)出現(xiàn)兩條相交于它左上角的灰線；操作過程步驟，如圖12所示：

圖12

提示：如果要在其它單元格（如 C8）處凍結(jié)，只需把代碼中 B4 改為 C8。

2、代碼說明：

A、Sub 表示子過程（函數(shù)），F(xiàn)reezeWindow 為子過程名稱；End Sub 表示子過程結(jié)束。

B、ActiveWindow 表示活動(dòng)窗口，在這里表示 Sheet1；FreezePanes 表示凍結(jié)；ActiveWindow.FreezePanes = False 把 ActiveWindow.FreezePanes 設(shè)置為 False，表示不凍結(jié) Sheet1。

C、Range("B4").Select 表示選中單元格 B4，Range("B4") 表示引用 B4 單元格，Select 表示選擇。

D、ActiveWindow.FreezePanes = True 把 ActiveWindow.FreezePanes 設(shè)置 True，意思凍結(jié) Sheet1，即從 B4 單元格左上角處凍結(jié)。

（二）取消凍結(jié)

在 Excel 窗口，按 Alt + F11，切換到 VBA 編輯窗口，把以下代碼：

Sub CancelFreezeWindow()
ActiveWindow.FreezePanes = False
End Sub

復(fù)制到“工作簿1 - 模塊1（代碼）”（如果沒有該窗口，單擊“插入”，選擇“模塊”創(chuàng)建），按 F5 運(yùn)行代碼，再按 Alt + F11，切換回 Excel 窗口，B4 單元格左上角的兩條灰線已不在，說明取消了凍結(jié)；操作過程步驟，如圖13所示：

圖13

（三）批量?jī)鼋Y(jié)窗口與取消凍結(jié)

1、從任意指定單元格處批量?jī)鼋Y(jié)所有工作表

A、假如要把每個(gè)工作表從 B4 處（B4 可任意替換為其它單元格）凍結(jié)窗口。在 Excel 窗口，按 Alt + F11，切換到 VBA 窗口，單擊“插入”，在彈出的選項(xiàng)中選擇“模塊”，新建一個(gè)模塊窗口，把以下代碼：

Sub FreezeWindows()
Dim ws As Worksheet
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Worksheets
  ws.Activate
  Range("B4").Select
  ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes
Next
Application.ScreenUpdating = True
End Sub

復(fù)制到該窗口，按 F5 運(yùn)行代碼，按 Alt + F11，切換到 Excel 窗口，Sheet1 和 Sheet2 兩個(gè)工作表都在 B4 處凍結(jié)了窗口；再按 Alt + F11，切換到 VBA 窗口，再按 F5 運(yùn)行代碼，再切換回 Excel 窗口，所有工作表的凍結(jié)窗口被取消；操作過程步驟，如圖14所示：

圖14

提示：如果要在每個(gè)工作表的當(dāng)前選中單元格處凍結(jié)窗口，不要 Range("B4").Select 這句即可。

B、代碼說明：

（1）Dim ws As Worksheet 意思是把 ws 定義為 Worksheet 對(duì)象，即定義為一個(gè)工作表。

（2）Application.ScreenUpdating 用于設(shè)置是否允許屏幕刷新，設(shè)置為 False 不允許，設(shè)置為 True 允許。

（3）For Each ...Next 是一個(gè)循環(huán)語句；ActiveWorkbook 表示當(dāng)前工作簿，Worksheets 表示當(dāng)前工作簿的所有工作表；For Each ws In ActiveWorkbook.Worksheets 的意思是，逐個(gè)遍歷當(dāng)前工作簿的每個(gè)工作表，且用 ws 表示當(dāng)前工作表，例如第一次 ws 代表 Sheet1、第二次 ws 代表 sheet2，其它的以此類推。

（4）ws.Activate 表示把工作表設(shè)置為活動(dòng)工作表（即當(dāng)前工作表）。

（5）Range("B4").Select 意思是選中當(dāng)前工作表的 B4 單元格，Range函數(shù)用于引用單元格。

（6）ActiveWindow.FreezePanes 表示把活動(dòng)窗口（即當(dāng)前窗口）是否為設(shè)置為凍結(jié)，把它設(shè)置 True，則凍結(jié)；把它設(shè)置為 False，則不凍結(jié)；把它設(shè)置為 Not ActiveWindow.FreezePanes，表示取與 ActiveWindow.FreezePanes 相反的值，如果 ActiveWindow.FreezePanes 的值為 True，則取 False；如果 ActiveWindow.FreezePanes 的值為 False，則取 True。

2、只凍結(jié)選中的工作表

A、以在所有選中工作表中的 B4 單元格處凍結(jié)為為例。在 Excel 窗口，當(dāng)前工作表為 Sheet1，按住 Shift，單擊 Sheet2，把 Sheet1 和 Sheet2 都選中；按 Alt + F11，切換到 VBA 編輯窗口，單擊“插入”，選擇“模塊”，新建一個(gè)模塊窗口，把以下代碼：

Sub FreezeWindows()
Dim selWs As Worksheet
  For Each selWs In ActiveWindow.SelectedSheets
    selWs.Activate
    Range("B4").Select
    ActiveWindow.FreezePanes = Not ActiveWindow.FreezePanes
  Next
End Sub

復(fù)制到模塊窗口，按 F5 運(yùn)行，按 Alt + F11，切換回 Excel 窗口，Sheet1 和 Sheet2 都被凍結(jié)，Sheet3 沒有被凍結(jié)；操作過程步驟，如圖15所示：

圖15

提示：如果要求從每個(gè)選中工作表的選中單元格處凍結(jié)，把 Range("B4").Select 去掉即可。

B、代碼說明：

代碼與上一例基本一樣，只是把遍歷所有工作表改為遍歷選中工作表，即把 For Each ws In ActiveWorkbook.Worksheets 改為  For Each selWs In ActiveWindow.SelectedSheets，SelectedSheets 表示所有選中工作表。