第一篇：工作表、單元格、填充柄

第二課 工作表、單元格、填充柄

教學(xué)主題：工作表、單元格、填充柄 適用年級(jí)：初一年級(jí) 教學(xué)課時(shí)：共1課時(shí)

教材分析：本課分別介紹了EXCEL的啟動(dòng)、界面組成、數(shù)據(jù)輸入、工作表改名及數(shù)據(jù)文件保存。本課重點(diǎn)是工作表的構(gòu)成，有規(guī)律數(shù)據(jù)的快速輸入。通過圖片、標(biāo)注及名詞解釋，清楚直觀地進(jìn)行了展示，用詳細(xì)的操作步驟及圖解介紹了有規(guī)律數(shù)據(jù)的快速輸入，層次清楚，易于掌握。本課的難點(diǎn)是填充柄的操作。

學(xué)習(xí)目標(biāo)

1、使學(xué)生初步認(rèn)識(shí)數(shù)據(jù)處理軟件，認(rèn)識(shí)EXCEL軟件的界面及工作表的組成；

2、掌握數(shù)據(jù)的輸入方法；

3、會(huì)用填充柄快速輸入有規(guī)律的數(shù)據(jù)；

4、認(rèn)識(shí)并保存數(shù)據(jù)文件。

重難點(diǎn)：

1.工作表的構(gòu)成

2.有規(guī)律數(shù)據(jù)的快速輸入，即填充柄的使用

情感態(tài)度價(jià)值觀：通過“動(dòng)物世界”視頻展現(xiàn)自然與生命之美，引領(lǐng)學(xué)生科學(xué)地認(rèn)識(shí)世界、分析事物。

教學(xué)思路設(shè)計(jì)：

一、教學(xué)引導(dǎo)設(shè)計(jì)：

播放視頻——“動(dòng)物之速度種種”，引發(fā)學(xué)生對(duì)自然與生命的思考，引導(dǎo)學(xué)生通過對(duì)動(dòng)物的研究學(xué)習(xí)EXCEL數(shù)據(jù)處理軟件。

二、教學(xué)過程設(shè)計(jì)：

（一）、新課引入：播放視頻。

（二）、教學(xué)內(nèi)容： 1.啟動(dòng)EXCEL：“開始”——“程序”——“Microsoft Office”——“Microsoft Excel 2003”

2.認(rèn)識(shí)Microsoft Excel 2003界面：

·標(biāo)題欄、菜單欄、常用工具欄、格式工具欄

·單元格：是Microsoft Excel的基本數(shù)據(jù)存儲(chǔ)單元。

·單元格名稱：又稱單元格地址，由列標(biāo)和行號(hào)組成，指明單元格的位置?！っQ框：又稱單元格地址欄，指示當(dāng)前選定的單元格、圖表項(xiàng)或繪圖對(duì)象?！せ顒?dòng)單元格：當(dāng)前正在使用的單元格，四周有一個(gè)黑色的方框，可在其中輸入或編輯數(shù)據(jù)。

·編輯框：用來輸入或編輯單元格或圖表的值或公式?！すぷ鞅恚河?5536行×256列構(gòu)成的一個(gè)表格。

·工作?。河脕韮?chǔ)存、處理工作數(shù)據(jù)的文件，在一個(gè)工作薄中可以擁有多個(gè)工作表。

3.向工作表輸入數(shù)據(jù)： ·輸入數(shù)據(jù)

·合并單元格及居中

·一個(gè)單元格、多個(gè)單元格、整行、整列的選中，只有選中數(shù)據(jù)所在的單元格才能對(duì)數(shù)據(jù)進(jìn)行操作 ·單元格中的換行

·填充柄的使用：自動(dòng)填充、規(guī)律填充、以序列方式填充

4.給工作表改名：雙擊sheet1，輸入名稱

5.保存工作表：“文件”——“保存”，直接保存后文件名為book1.xls，使用“另存為”可指定保存的文件名。

三、課堂任務(wù)：

完成“動(dòng)物的壽命”數(shù)據(jù)的采集和輸入。

課后反思：

第二篇：工作表和單元格說課稿

一、說教材：

1、教材地位與作用：

本節(jié)課是寧夏教育廳教研室編著的八年級(jí)信息技術(shù)下冊(cè)第一節(jié)中的第三個(gè)內(nèi)容——工作表和單元格，是在學(xué)生初步認(rèn)識(shí)Excel，熟悉Excel窗口之后，進(jìn)一步深入學(xué)習(xí)Excel的一節(jié)理論準(zhǔn)備課。

2、教學(xué)目標(biāo)：

（一）知識(shí)目標(biāo)：

①、了解工作表、工作簿的概念與相互關(guān)系。

②、了解行號(hào)、列標(biāo)的概念。

③、了解單元格的定義。

（二）能力目標(biāo)：

①、能夠準(zhǔn)確說出單元格地址。

②、弄清楚工作簿、工作表和單元格之間的關(guān)系。

（三）情感目標(biāo)：

①、培養(yǎng)學(xué)生的動(dòng)手能力。

②、培養(yǎng)學(xué)生的理解能力。

3、教學(xué)重點(diǎn)和難點(diǎn)：

教學(xué)目標(biāo)中的能力目標(biāo)

①、教學(xué)重點(diǎn)：

②、教學(xué)難點(diǎn)：

二、說學(xué)生：

信息技術(shù)課雖然已經(jīng)成為初中的必修科目,但是城鄉(xiāng)學(xué)生之間掌握情況的差異卻相當(dāng)大,條件好一點(diǎn)的城里學(xué)生不僅已經(jīng)熟練掌握了課本上的內(nèi)容,還對(duì)一些常用軟件有所了解;而條件差一點(diǎn)的農(nóng)村學(xué)生可以說是從初中開始才正式接觸到信息技術(shù)知識(shí)的學(xué)習(xí),他們需要多鍛煉、多指導(dǎo),所以協(xié)作學(xué)習(xí)對(duì)學(xué)生的學(xué)習(xí)幫助很大。因此，本節(jié)課將以學(xué)生自己實(shí)踐為主，老師只需指出注意的要點(diǎn)，讓學(xué)生通過合作協(xié)調(diào)構(gòu)思創(chuàng)新的方式完成整節(jié)課的內(nèi)容，以鍛煉學(xué)生的實(shí)踐操作計(jì)算機(jī)的能力。

三、說教學(xué)策略：

1、教法分析：

結(jié)合本節(jié)課內(nèi)容及學(xué)生學(xué)習(xí)中存在很大差異的實(shí)際情況，教學(xué)中我主要采用了“任務(wù)驅(qū)動(dòng)法”“新舊知識(shí)遷移法”和“自主學(xué)習(xí)法”來組織教學(xué)。

2、學(xué)法指導(dǎo)：

體現(xiàn)學(xué)生的主體地位，引導(dǎo)學(xué)生：

一、保持良好的學(xué)習(xí)心境；

二、勇于表達(dá)，大膽嘗試；

三、善于協(xié)作學(xué)習(xí)；

四、能將知識(shí)遷移。

四、說教學(xué)過程：

（一）復(fù)習(xí)引入，注重新舊知識(shí)的遷移

教師讓學(xué)生們啟動(dòng)Excel，熟悉一下它的窗口組成。通過 動(dòng)手操作復(fù)習(xí)，師生共同進(jìn)入新課學(xué)習(xí)之中。

（二）講授新課：教師布置任務(wù)

1、讓學(xué)生看書找到概念（工作表、工作簿，二者之間的關(guān)系，行號(hào)、列標(biāo)）

2、讓學(xué)生自己動(dòng)手完成書上第8頁的“試試看”，動(dòng)手體會(huì)

3、讓學(xué)生看書找到概念（單元格、當(dāng)前單元格、單元格區(qū)域、單元格地址），培養(yǎng)學(xué)生的自學(xué)能力

4、教師講解單元格地址的定義及構(gòu)成5、讓學(xué)生分組討論書第9頁的“說說看”，調(diào)動(dòng)學(xué)生合作學(xué)習(xí)的積極性

6、玩一玩：設(shè)計(jì)一個(gè)輕松的小游戲，活躍課堂氣氛

（三）、課堂小結(jié)：

引導(dǎo)、歸納、討論分析總結(jié)，鞏固當(dāng)堂所學(xué)知識(shí)

（四）、課堂練習(xí)：

布置練習(xí)題：書15頁“鞏固練習(xí)”，練習(xí)2，練習(xí)

3五、說教學(xué)反思：

在本節(jié)課的教學(xué)中，我主要采用了“任務(wù)驅(qū)動(dòng)法”，注重新舊知識(shí)的遷移，如何啟動(dòng)Excel，單元格的概念，行和列的標(biāo)記，以及其它的常用工具欄和格式工具欄，讓學(xué)生在完成一個(gè)個(gè)的任務(wù)中，激發(fā)學(xué)習(xí)興趣，體驗(yàn)團(tuán)結(jié)協(xié)作和合作交流學(xué)習(xí)的帶來的成功喜悅。在這一堂課中，總的來說，課堂是活躍的，學(xué)習(xí)興趣是濃厚的，我的講解是生動(dòng)的，通過運(yùn)用任務(wù)驅(qū)動(dòng)法，學(xué)生的掌握情況也很令人滿意。但同時(shí)，在時(shí)間把握上，還稍有不足，教師講的還是有些過多。

第三篇：我有個(gè)excel工作薄里有10個(gè)工作表,我想把其中的部分單元格字體變成紅色或單元格填充顏色

我有個(gè)excel工作薄里有10個(gè)工作表，我想把其中的部分單元格字體變成紅色。

瀏覽次數(shù)：28次懸賞分：5 | 離問題結(jié)束還有 11 天 19 小時(shí) | 提問者：劍客wcg

我有個(gè)工作薄里有10個(gè)工作表，我想把每個(gè)表中幾個(gè)的數(shù)據(jù)變成紅色字體。這10個(gè)表的格式都是一樣的，而且只有N8、N9、H8是我要變成紅色的字體，用復(fù)制粘貼的方法太煩了，而且往后還有很多這類的數(shù)據(jù)，所以請(qǐng)高手指點(diǎn)一下，看用VBA能不能實(shí)現(xiàn)呢？如果有不清楚的地方請(qǐng)指出，我會(huì)馬上解釋的。急急急，在線等！~ Sub macro()Dim i i = 1 Application.ScreenUpdating = False Application.EnableEvents = False For i = 1 To Worksheets.Count Worksheets(i).Activate Range(“n8”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 End With Range(“n9”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 End With Range(“h8”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 End With Next i Application.ScreenUpdating = True

Application.EnableEvents = True End Sub 追問

.TintAndShade = 0 End With Range(“n9”).Select With Selection.Font

.Color =-16776961

.TintAndShade = 0 出現(xiàn)運(yùn)行時(shí)438錯(cuò)誤，對(duì)象不支持該屬性或方法。非常感謝你幫助?；卮?/p>

無語……我在自己電腦上運(yùn)行過的，07是可以的。不過我得承認(rèn)這句.TintAndShade = 0是電腦生成的。

如果在這句出錯(cuò)的話，可以刪除它，因?yàn)樽兗t色的語句是：.Color =-16776961

我整理一下，你再試試：

Sub macro()Dim i i = 1 Application.ScreenUpdating = False Application.EnableEvents = False

For i = 1 To Worksheets.Count

Worksheets(i).Activate

Range(“n8,n9,h8”).Select

With Selection.Font

.Color =-16776961

End With Next i Worksheets(1).Select Application.ScreenUpdating = True Application.EnableEvents = True

End Sub

單元格填充顏色 Sub macro()Dim i i = 1 Application.ScreenUpdating = False Application.EnableEvents = False

For i = 1 To Worksheets.Count

Worksheets(i).Activate

Range(“c7,d7,c9,d9,c11,d11,c15,d15,c17,d17,c19,d19,n10,n11,g16,g17,h13,h14,h15,h16,h17,f20,f21,f22,n30”).Select

With Selection.Interior

.ColorIndex = 9

End With Next i Worksheets(1).Select Application.ScreenUpdating = True Application.EnableEvents = True

End Sub

第四篇：第1題不能輸入到Excel工作表的單元格中

第1題（）不能輸入到Excel工作表的單元格中

答案:B:=20,12 選項(xiàng):A:=“20,12” B:=20,12 C:20,12 D:=Sheet2!A1+12

第2題______不是MPC對(duì)音頻處理能力的基本要求。

答案:B:保存大容量聲波信號(hào) 選項(xiàng):A:錄入聲波信號(hào) B:保存大容量聲波信號(hào) C:重放聲波信號(hào) D:用MIDI技術(shù)合成音樂

第3題______不是多媒體技術(shù)的典型應(yīng)用。

答案:D:計(jì)算機(jī)支持協(xié)同工作 選項(xiàng):A:教育和培訓(xùn) B:娛樂和游戲 C:視頻會(huì)議系統(tǒng) D:計(jì)算機(jī)支持協(xié)同工作

第4題“32位微型計(jì)算機(jī)”中的32指的是（）

答案:D:機(jī)器字長(zhǎng) 選項(xiàng):A:微機(jī)型號(hào) B:內(nèi)存容量 C:運(yùn)算速度 D:機(jī)器字長(zhǎng)

第5題7位二進(jìn)制編碼的ASCII碼可表示的字符個(gè)數(shù)為（）答案:D:128 選項(xiàng):A:127 B:255 C:256 D:128

第6題8個(gè)字節(jié)含二進(jìn)制位（）

答案:D:64個(gè) 選項(xiàng):A:8個(gè) B:16個(gè) C:32個(gè) D:64個(gè)

第7題BBS有兩種訪問方式：Telnet（遠(yuǎn)程登錄）方式和004km.cn 選項(xiàng):A:cn B:ch C:chn D:china

第503題中國教育科研網(wǎng)的縮寫為：

答案:B:CERNET 選項(xiàng):A:ChinaNet B:CERNET C:CNNIC D:ChinaEDU

第504題中英處理器（CPU）可直接讀寫的計(jì)算機(jī)部件是（）答案:A:內(nèi)存 選項(xiàng):A:內(nèi)存 B:硬盤 C:軟盤 D:外存

第505題屬于計(jì)算機(jī)犯罪的是

答案:D:以上皆是 選項(xiàng):A:非法截取信息、竊取各種情報(bào) B:復(fù)制與傳播計(jì)算機(jī)病毒、黃色影像制品和其他非法活動(dòng) C:借助計(jì)算機(jī)技術(shù)偽造篡改信息、進(jìn)行詐騙及其他非法活動(dòng) D:以上皆是

第506題屬于計(jì)算機(jī)犯罪類型的是

答案:C:ABD都是 選項(xiàng):A:非法截獲信息 B:復(fù)制與傳播計(jì)算機(jī)病毒 C:ABD都是 D:利用計(jì)算機(jī)技術(shù)偽造篡改信息

第507題著作權(quán)的權(quán)利包括

答案:B:人身權(quán)和財(cái)產(chǎn)權(quán) 選項(xiàng):A:人身權(quán) B:人身權(quán)和財(cái)產(chǎn)權(quán) C:財(cái)產(chǎn)權(quán) D:放棄權(quán)

第508題專利權(quán)屬于

答案:A:工業(yè)產(chǎn)權(quán) 選項(xiàng):A:工業(yè)產(chǎn)權(quán) B:著作權(quán) C:商標(biāo)權(quán) D:專有權(quán)

第509題字長(zhǎng)16位的計(jì)算機(jī)，它表示（）

答案:A:數(shù)以16位二進(jìn)制表示 選項(xiàng):A:數(shù)以16位二進(jìn)制表示 B:數(shù)以十六進(jìn)制來表示 C:可處理16個(gè)字符串 D:數(shù)以兩個(gè)8進(jìn)制表示

第510題最早設(shè)計(jì)計(jì)算機(jī)的目的是進(jìn)行科學(xué)計(jì)算機(jī)，但其主要的都是用于（）答案:B:軍事 選項(xiàng):A:科研 B:軍事 C:商業(yè) D:管理

第五篇：VBA代碼中引用Excel工作表中單元格區(qū)域的方式小結(jié)

VBA代碼中引用Excel工作表中單元格區(qū)域的方式小結(jié).txt大人物的悲哀在于他們需要不停地做出選擇；而小人物的悲哀在于他們從來沒有選擇的機(jī)會(huì)。男人因滄桑而成熟，女人因成熟而滄桑。男人有了煙，有了酒，也就有了故事；女人有了錢，有了資色，也就有了悲劇。在VBA代碼中引用Excel工作表中單元格區(qū)域的方式小結(jié)

問題一：在VBA代碼中，如何引用當(dāng)前工作表中的單個(gè)單元格(例如引用單元格C3)？ 回答：可以使用下面列舉的任一方式對(duì)當(dāng)前工作表中的單元格(C3)進(jìn)行引用。(1)Range(“C3”)(2)[C3](3)Cells(3, 3)(4)Cells(3, “C”)(5)Range(“C4”).Offset(-1)Range(“D3”).Offset(,-1)Range(“A1”).Offset(2, 2)(6)若C3為當(dāng)前單元格，則可使用：ActiveCell(7)若將C3單元格命名為“Range1”，則可使用：Range(“Range1”)或[Range1](8)Cells(4, 3).Offset(-1)

------------------問題二：在VBA代碼中，我要引用當(dāng)前工作表中的B2:D6單元格區(qū)域，有哪些方式？ 回答：可以使用下面列舉的任一方式對(duì)當(dāng)前工作表中單元格區(qū)域B2:D6進(jìn)行引用。(1)Range(“B2:D6”)(2)Range(“B2”, “D6”)(3)[B2:D6](4)Range(Range(“B2”), Range(“D6”))(5)Range(Cells(2, 2), Cells(6, 4))(6)若將B2:D6區(qū)域命名為“MyRange”，則又可以使用下面的語句引用該區(qū)域： ① Range(“MyRange”)② [MyRange](7)Range(“B2”).Resize(5, 3)(8)Range(“A1:C5”).Offset(1, 1)(9)若單元格B2為當(dāng)前單元格，則可使用語句：Range(ActiveCell, ActiveCell.Offset(4, 2))(10)若單元格D6為當(dāng)前單元格，則可使用語句：Range(“B2”, ActiveCell)

------------------問題三：在VBA代碼中，如何使用變量實(shí)現(xiàn)對(duì)當(dāng)前工作表中不確定單元格區(qū)域的引用？ 回答：有時(shí)，我們需要在代碼中依次獲取工作表中特定區(qū)域內(nèi)的單元格，這通?？梢圆扇∠旅娴膸追N方式：

(1)Range(“A” & i)(2)Range(“A” & i & “:C” & i)(3)Cells(i,1)(4)Cells(i,j)其中，i、j為變量，在循環(huán)語句中指定i和j的范圍后，依次獲取相應(yīng)單元格。------------------問題四：在VBA代碼中，如何擴(kuò)展引用當(dāng)前工作表中的單元格區(qū)域？ 回答：可以使用Resize屬性，例如：

(1)ActiveCell.Resize(4, 4)，表示自當(dāng)前單元格開始創(chuàng)建一個(gè)4行4列的區(qū)域。(2)Range(“B2”).Resize(2, 2)，表示創(chuàng)建B2:C3單元格區(qū)域。(3)Range(“B2”).Resize(2)，表示創(chuàng)建B2:B3單元格區(qū)域。(4)Range(“B2”).Resize(, 2)，表示創(chuàng)建B2:C2單元格區(qū)域。

如果是在一個(gè)單元格區(qū)域(如B3:E6)，或一個(gè)命名區(qū)域中(如將單元格區(qū)域B3:E6命名為“MyRange”)使用Resize屬性，則只是相對(duì)于單元格區(qū)域左上角單元格擴(kuò)展區(qū)域，例如： 代碼Range(“C3:E6”).Resize(, 2)，表示單元格區(qū)域C3：D6，并且擴(kuò)展的單元格區(qū)域可不在原單元格區(qū)域內(nèi)。因此，可以知道Resize屬性是相對(duì)于當(dāng)前活動(dòng)單元格或某單元格區(qū)域中左上角單元格按指定的行數(shù)或列數(shù)擴(kuò)展單元格區(qū)域。

------------------問題五：在VBA代碼中，如何在當(dāng)前工作表中基于當(dāng)前單元格區(qū)域或指定單元格區(qū)域處理其它單元格區(qū)域？

回答：可以使用Offset屬性，例如：

(1)Range(“A1”).Offset(2, 2)，表示單元格C3。

(2)ActiveCell.Offset(, 1)，表示當(dāng)前單元格下一列的單元格。(3)ActiveCell.Offset(1)，表示當(dāng)前單元格下一行的單元格。

(4)Range(“C3:D5”).Offset(, 1)，表示單元格區(qū)域D3:E5，即將整個(gè)區(qū)域偏移一列。從上面的代碼示例可知，Offset屬性從所指定的單元格開始按指定的行數(shù)和列數(shù)偏移，從而到達(dá)目的單元格，但偏移的行數(shù)和列數(shù)不包括指定單元格本身。

------------------問題六：在VBA代碼中，如何在當(dāng)前工作表中引用交叉區(qū)域？ 回答：可以使用Intersect方法，例如： Intersect(Range(“C3:E6”), Range(“D5:F8”))，表示單元格區(qū)域D5:E6，即單元格區(qū)域C3:E6與D5:F8相重迭的區(qū)域。

------------------問題七：在VBA代碼中，如何在當(dāng)前工作表中引用多個(gè)區(qū)域？ 回答：

(1)可以使用Union方法，例如：

Union(Range(“C3:D4”), Range(“E5:F6”))，表示單元格區(qū)域C3:D4和E5:F6所組成的區(qū)域。Union方法可以將多個(gè)非連續(xù)區(qū)域連接起來成為一個(gè)區(qū)域，從而可以實(shí)現(xiàn)對(duì)多個(gè)非連續(xù)區(qū)域一起進(jìn)行操作。

(2)也可以使用下面的代碼：

Range(“C3:D4, E5:F6”)或[C3:D4, E5:F6] 注意：Range(“C3:D4”, “F5:G6”)，表示單元格區(qū)域C3:G6，即將兩個(gè)區(qū)域以第一個(gè)區(qū)域左上角單元格為起點(diǎn)，以第二個(gè)區(qū)域右下角單元格為終點(diǎn)連接成一個(gè)新區(qū)域。

同時(shí)，在引用區(qū)域后使用Rows屬性和Columns屬性時(shí)，注意下面代碼的區(qū)別： ①Range(“C3:D4”, “F8:G10”).Rows.Count，返回的值為8； ②Range(“C3:D4,F8:G10”).Rows.Count，返回的值為2，即只計(jì)算第一個(gè)單元格區(qū)域。

------------------問題八：在VBA代碼中，如何引用當(dāng)前工作表中活動(dòng)單元格或指定單元格所在的區(qū)域(當(dāng)前區(qū)域)？

回答：可以使用CurrentRegion屬性，例如：

(1)ActiveCell.CurrentRegion，表示活動(dòng)單元格所在的當(dāng)前區(qū)域。(2)Range(“D5”).CurrentRegion，表示單元格D5所在的當(dāng)前區(qū)域。

當(dāng)前區(qū)域是指周圍由空行或空列所圍成的區(qū)域。該屬性的詳細(xì)使用參見《CurrentRegion屬性示例》一文。

------------------問題九：在VBA代碼中，如何引用當(dāng)前工作表中已使用的區(qū)域？ 回答：可以使用UsedRange屬性，例如：

(1)Activesheet.UsedRange，表示當(dāng)前工作表中已使用的區(qū)域。

(2)Worksheets(“sheet1”).UsedRange，表示工作表sheet1中已使用的區(qū)域。

與CurrentRegion屬性不同的是，該屬性代表工作表中已使用的單元格區(qū)域，包括顯示為空行，但已進(jìn)行過格式的單元格區(qū)域。該屬性的詳細(xì)使用參見《解析UsedRange屬性》一文。

------------------問題十：如何在單元格區(qū)域內(nèi)指定特定的單元格？ 回答：可以使用Item屬性，例如：

(1)Range(“A1:B10”).Item(5,3)指定單元格C5，這個(gè)單元格處于以區(qū)域中左上角單元格A1(即區(qū)域中第1行第1列的單元格)為起點(diǎn)的第5行第3列。因?yàn)镮tem屬性為默認(rèn)屬性，因此也可以簡(jiǎn)寫為：Range(“A1:B10”)(5,3)。如果將A1:B10區(qū)域命名為”MyRange”，那么Range(“MyRange”)(5,3)也指定單元格C5。(2)Range(“A1:B10”)(12,13)指定單元格M12，即用這種方式引用單元格，該單元格不必一定要包含在區(qū)域內(nèi)。

同時(shí)，也不需要索引數(shù)值是正值，例如： ① Range(“D4:F6”)(0,0)代表單元格C3； ② Range(“D4:F6”)(-1,-2)代表單元格A2。而Range(“D4:F6”)(1,1)代表單元格D4。(3)也可以在單元格區(qū)域中循環(huán)，例如：

Range(“D4:F6”)(2,2)(3,4)代表單元格H7，即該單元格位于作為左上角單元格E5的第3行第4列(因?yàn)镋5是開始于區(qū)域中左上角單元格D4起的第2行第2列)。

(4)也能使用一個(gè)單個(gè)的索引數(shù)值進(jìn)行引用。計(jì)數(shù)方式為從左向右，即在區(qū)域中的第一行開始從左向右計(jì)數(shù)，第一行結(jié)束后，然后從第二行開始從左到右接著計(jì)數(shù)，依次類推。(注：從區(qū)域中第一行第一個(gè)單元格開始計(jì)數(shù)，當(dāng)?shù)谝恍薪Y(jié)束時(shí)，轉(zhuǎn)入第二行最左邊的單元格，這樣按一行一行從左向右依次計(jì)數(shù)。以單元格區(qū)域中第1個(gè)單元格開始，按上述規(guī)則依次為第2個(gè)單元格、第3個(gè)單元格?.等等)，例如： Range(“A1:B2”)(1)代表單元格A1； Range(“A1:B2”)(2)代表單元格B1； Range(“A1:B2”)(3)代表單元格A2； Range(“A1:B2”)(4)代表單元格B2。這種方法可在工作表中連續(xù)向下引用單元格(即不一定是在單元格區(qū)域內(nèi)，但在遵循相同的規(guī)律)，例如：

Range(“A1:B2”)(5)代表單元格A3；

Range(“A1:B2”)(14)代表單元格B7，等等。也可以使用單個(gè)的負(fù)數(shù)索引值。

這種使用單個(gè)索引值的方法對(duì)遍歷列是有用的，例如，Range(“D4”)(1)代表單元格D4，Range(“D4”)(2)代表單元格D5，Range(“D4”)(11)代表單元格D14，等等。同理，稍作調(diào)整后也可遍歷行，例如：

Range(“D4”).Columns(2)代表單元格E4，Range(“D4”).Columns(5)指定單元格H4，等等。(5)當(dāng)與對(duì)象變量配合使用時(shí)，Item屬性能提供簡(jiǎn)潔并有效的代碼，例如： Set rng = Worksheets(1).[a1] 定義了對(duì)象變量后，像單元格方法一樣，Item屬性允許使用兩個(gè)索引數(shù)值引用工作表中的任一單元格，例如，rng(3,4)指定單元格D3。(By Chip Pearson)

------------------問題十一：在VBA代碼中，如何引用當(dāng)前工作表中的整行或整列？ 回答：見下面的示例代碼：

(1)Range(“C:C”).Select，表示選擇C列。

Range(“C:E”).Select，表示選擇C列至E列。(2)Range(“1:1”).Select，表示選擇第一行。

Range(“1:3”).Select，表示選擇第1行至第3行。(3)Range(“C:C”).EntireColumn，表示C列； Range(“D1”).EntireColumn，表示D列。

同樣的方式，也可以選擇整行，然后可以使用如AutoFit方法對(duì)整列或整行進(jìn)行調(diào)整。

------------------問題十二：在VBA代碼中，如何引用當(dāng)前工作表中的所有單元格？ 回答：可以使用下面的代碼：

(1)Cells，表示當(dāng)前工作表中的所有單元格。

(2)Range(Cells(1, 1), Cells(Cells.Rows.Count, Cells.Columns.Count))，其中Cells.Rows表示工作表所有行，Cells.Columns表示工作表所有列。

------------------問題十三：在VBA代碼中，如何引用工作表中的特定單元格區(qū)域？

回答：在工作表中，您可能使用過“定位條件”對(duì)話框。可以通過選擇菜單“編輯——定位”，單擊“定位”對(duì)話框中的“定位條件”按鈕顯示該對(duì)話框。這個(gè)對(duì)話框可以允許用戶選擇特定的單元格。例如：

(1)Worksheets(“sheet1”).Cells.SpecialCells(xlCellTypeAllFormatConditions)，表示工作表sheet1中由帶有條件格式的單元格所組成的區(qū)域。(2)ActiveCell.CurrentRegion.SpecialCells(xlCellTypeBlanks)，表示當(dāng)前工作表中活動(dòng)單元格所在區(qū)域中所有空白單元格所組成的區(qū)域。

當(dāng)然，還有很多常量和值的組合，可以讓您實(shí)現(xiàn)特定單元格的查找并引用。參見《探討在工作表中找到最后一行》一文。------------------問題十四：在VBA代碼中，如何引用其它工作表或其它工作簿中的單元格區(qū)域？

回答：要引用其它工作表或其它工作簿中的單元格區(qū)域，只需在單元格對(duì)象前加上相應(yīng)的引用對(duì)象即可，例如：

(1)Worksheets(“Sheet3”).Range(“C3:D5”)，表示引用工作表sheet3中的單元格區(qū)域C3:D5。(2)Workbooks(“MyBook.xls”).Worksheets(“sheet1”).Range(“B2”)，表示引用MyBook工作簿中工作表Sheet1上的單元格B2。

------------------問題十五：還有其它的一些情形嗎？ 回答：列舉如下：

(1)Cells(15)，表示單元格O1，即可在Cells屬性中指定單元格數(shù)字來選擇單元格，其計(jì)數(shù)順序?yàn)樽宰笾劣摇纳系较?，又如Cells(257)，表示單元格B1。

(2)Cells(, 256)，表示單元格IV1，但是如果Cells(, 257)，則會(huì)返回錯(cuò)誤。

------------------結(jié)語

我們用VBA對(duì)Excel進(jìn)行處理，一般是對(duì)其工作表中的數(shù)據(jù)進(jìn)行處理，因此，引用單元格區(qū)域是ExcelVBA編程中最基本的操作之一，只有確定了所處理的單元格區(qū)域，才能使用相應(yīng)的屬性和方法進(jìn)行下一步的操作。

上面列舉了一些引用單元格區(qū)域的情形和方式，可以看出，引用單元格區(qū)域有很多方式，有一些可能不常用，可以根據(jù)工作表的所處的環(huán)境和個(gè)人編程習(xí)慣進(jìn)行選擇使用。

當(dāng)然，在編寫程序時(shí)，也可能會(huì)將上面的一些屬性聯(lián)合使用，以達(dá)到選取特定操作對(duì)象的目的，例如Offset屬性、Resize屬性、CurrentRegion屬性、UsedRange屬性等的組合。

找到最后一行的一些方法探討 使用End屬性

在ExcelVBA中，使用End(xlUp)查找最后一行是最常使用且最為簡(jiǎn)單的方法，它假設(shè)要有一列總包含有數(shù)據(jù)(數(shù)字、文本和公式等)，并且在該列中最后輸入數(shù)據(jù)的單元格的下一行不會(huì)包含數(shù)據(jù)，因此不必?fù)?dān)心會(huì)覆蓋掉已有數(shù)據(jù)。但該方法有兩個(gè)缺點(diǎn)：(1)僅局限于查找指定列的最后一行。

(2)如果該列中最后一行被隱藏，那么該隱藏行將被視作最后一行。因此，在最后一行被隱藏時(shí)，其數(shù)據(jù)可能會(huì)被覆蓋。但該列中間的隱藏行不會(huì)影響查找的結(jié)果。[示例代碼01] Sub EndxlUp_OneColLastRow()If Range(“A” & Rows.Count).End(xlUp)= Empty Then GoTo Finish '獲取最后一行

MsgBox “最后一行是第” & Range(“A” & Rows.Count).End(xlUp).Row & “行.” Exit Sub Finish: MsgBox “沒有發(fā)現(xiàn)公式或數(shù)據(jù)!” End Sub [示例代碼02] Sub NextRowInColumnUsedAsSub()'包含所有數(shù)據(jù)和公式，忽略隱藏的最后一行

Range(“A” & Range(“A” & Rows.Count).End(xlUp).Row + 1).Select End Sub [示例代碼03] Sub NextRowInColumnUsedAsFunction()'包含所有數(shù)據(jù)和公式，忽略隱藏的最后一行

Range(“A” & LastRowInColumn(“A”)+ 1).Select End Sub '-------Public Function LastRowInColumn(Column As String)As Long LastRowInColumn = Range(Column & Rows.Count).End(xlUp).Row End Function 注意，要輸入新數(shù)據(jù)的列可能與我們所查找最后一行時(shí)所使用的列不同，例如，在上例中，我們可以修改為在B列中查找該列的最后一行，而在A列相應(yīng)行的下一行中輸入新的數(shù)據(jù)。

------------------使用Find方法

Find方法在當(dāng)前工作有數(shù)據(jù)中進(jìn)行查找，不需要指定列，也可以確保不會(huì)意外地覆蓋掉已有數(shù)據(jù)。其中，參數(shù)LookIn指定所查找的類型，有三個(gè)常量可供選擇，即xlValues、xlFormulas和xlComments。

(1)常量xlFormulas將包含零值的單元格作為有數(shù)據(jù)的單元格。(當(dāng)設(shè)置零值不顯示時(shí)，該單元格看起來為空，但該參數(shù)仍將該單元格視為有數(shù)據(jù)的單元格)(2)常量xlValues將包含零值的單元格(如果設(shè)置零值不顯示時(shí))作為空白單元格，此時(shí)，若該單元格在最后一行，則Find方法會(huì)認(rèn)為該單元格所在的行為空行，因此，該單元格中的內(nèi)容可能會(huì)被新數(shù)據(jù)所覆蓋。

[注：在Excel中，選擇菜單“工具”——“選項(xiàng)”，在打開的“選項(xiàng)”對(duì)話框中，選擇“視圖”選項(xiàng)卡，將其中的“零值”前的復(fù)選框取消選中，則工作表中的零值都不會(huì)顯示] 如果在參數(shù)LookIn中使用常量xlValues的話，還存在一個(gè)問題是：如果您將最后一行隱藏，則Find方法會(huì)認(rèn)為倒數(shù)第二行是最后一行，此時(shí)您在最后一行的下一行輸入數(shù)據(jù)，則會(huì)將實(shí)際的最后一行的數(shù)據(jù)覆蓋。

您可以在隱藏最后一行與不隱藏最后一行，或者是最后一行顯示零值與不顯示零值時(shí)，運(yùn)行下面的示例代碼04，看看所得的結(jié)果有什么不同。[示例代碼04] Sub Find_LastRowxlValues()On Error GoTo Finish '獲取最后一行

MsgBox “最后一行是第” & Cells.Find(“*”, _ SearchOrder:=xlByRows, LookIn:=xlValues, _ SearchDirection:=xlPrevious).EntireRow.Row & “行” Exit Sub Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)值！” End Sub 因此，在使用Find方法時(shí)，您應(yīng)該考慮所選參數(shù)設(shè)置的常量，以及工作表最后一行是否有可能被隱藏或不顯示零值。如果您忽視這些情況，很可能得不到您想要的結(jié)果，或者是覆蓋掉已有數(shù)據(jù)。使用常量xlFormulas可以避免這個(gè)問題，如下面的示例代碼05所示。[示例代碼05] Sub Find_LastRowxlFormulas()On Error GoTo Finish '獲取最后一行

MsgBox “最后一行是第” & Cells.Find(“*”, _ SearchOrder:=xlByRows, LookIn:=xlFormulas, _ SearchDirection:=xlPrevious).EntireRow.Row & “行” Exit Sub Finish: MsgBox “沒發(fā)現(xiàn)數(shù)值或公式！” End Sub 下面再列舉幾個(gè)示例代碼。[示例代碼06] Sub NextRowUsedAsSub()'選取最后一行的下一行 Range(“A” & Cells.Find(“*”, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row + 1).Select End Sub [示例代碼07] Sub NextRowUsedAsFunction()'選取最后一行的下一行(調(diào)用函數(shù))Range(“A” & LastRow + 1).Select End Sub '-------Public Function LastRow()As Long '本代碼包含隱藏行

'使用常量xlFormulas，因?yàn)槌Ａ縳lValues會(huì)忽略隱藏的最后一行 LastRow = Cells.Find(“*”, LookIn:=xlFormulas, SearchDirection:=xlPrevious).Row End Function 注：Find方法中，參數(shù)LookIn的默認(rèn)值為xlFormulas。

------------------使用SpecialCells方法

SpecialCells方法用于查找指定類型的值，其語法為SpecialCells(Type,Value)，有兩種主要的使用方式：

(1)若參數(shù)Type僅考慮常量，則在查找時(shí)會(huì)忽略和覆蓋由公式生成的任何數(shù)據(jù)，如示例代碼08所示。

(2)若參數(shù)Type僅考慮由公式生成的數(shù)據(jù)，則在查找時(shí)會(huì)忽略和覆蓋任何常量數(shù)據(jù)，如示例代碼09所示。如果參數(shù)Type是xlCellTypeConstants或者是xlCellTypeFormulas，則Value參數(shù)可使用常量決定哪種類型的單元格將被包含在結(jié)果中，這些常量值能組合而返回多個(gè)類型，其缺省設(shè)置是選擇所有的常量或公式，而不管是何類型，可使用下面四個(gè)可選的常量： 1)xlTextValues(包含文本);2)xlNumbers(包含數(shù)字);3)xlErrors(包含錯(cuò)誤值);4)xlLogical(包含邏輯值)自已在工作表輸入一些含有數(shù)值和公式的數(shù)據(jù)，隱藏或不隱藏最后一行或公式所在的行，先體驗(yàn)下面的兩段示例代碼。[示例代碼08] '當(dāng)最后一行為公式或隱藏了最后行時(shí)，會(huì)忽略，即認(rèn)為倒數(shù)第二行為最后一行 Sub NextConstantRowFunction()Range(“A” & LastConstantRow(True, True, True, True)+ 1).Select End Sub '------Public Function LastConstantRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean)As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastConstantRow = Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, “$”)_(UBound(Split(Cells.SpecialCells(xlCellTypeConstants, AllTypes).Address, “$”)))Exit Function Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)據(jù)！” End Function [示例代碼09] '查找含有公式的單元格所在的行，忽略該行以后的常量和隱藏的行 Sub NextFormulaRowFunction()Range(“A” & LastFormulaRow(True, True, True, True)+ 1).Select End Sub '-------Public Function LastFormulaRow(Optional IncludeText As Boolean, _ Optional IncludeNumbers As Boolean, _ Optional IncludeErrors As Boolean, _ Optional IncludeLogicals As Boolean)As Long Dim Text As Long, Numbers As Long, Errors As Long Dim Logical As Long, AllTypes As Long If IncludeText Then Text = xlTextValues Else Text = 0 If IncludeNumbers Then Numbers = xlNumbers Else Numbers = 0 If IncludeErrors Then Errors = xlErrors Else Errors = 0 If IncludeLogicals Then Logical = xlLogical Else Logical = 0 AllTypes = Text + Numbers + Errors + Logical On Error GoTo Finish LastFormulaRow = Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, “$”)_(UBound(Split(Cells.SpecialCells(xlCellTypeFormulas, AllTypes).Address, “$”)))Exit Function Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)據(jù)！” End Function 下面的示例代碼10忽略最后一行帶有公式的單元格，即當(dāng)最后一行的單元格中含有公式時(shí)，將倒數(shù)第二行作為最后一行，即只考慮直接輸入到工作表中的數(shù)據(jù)。當(dāng)最后一行沒有公式但被隱藏時(shí)，并不影響該方法的判斷。[示例代碼10] Sub SpecialCells_LastRowxlCellTypeConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants).EntireRow).EntireRow '獲取最后一行

MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)據(jù)！” End Sub 注：因?yàn)樯鲜龃a使用了’Split’函數(shù)，故只適合于Office2000及以上的版本。該方法也允許我們指定單個(gè)數(shù)據(jù)類型，諸如數(shù)字?jǐn)?shù)據(jù)或文本數(shù)據(jù)，如下所示。

下面，我們查找的最后一行是僅在行中有數(shù)字(而不包含公式)的單元格的最后一行。[示例代碼11] Sub SpecialCells_LastRowxlCellTypeNumberConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants, xlNumbers).EntireRow)'獲取最后一行

MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)據(jù)！” End Sub 下面，我們查找的最后一行是僅在行中有文本(而不包含公式)的單元格的最后一行。[示例代碼12] Sub SpecialCells_LastRowxlCellTypeTextConstants()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeConstants, xlTextValues).EntireRow)'獲取最后一行

MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)據(jù)！” End Sub 下面，我們查找的最后一行是僅在行中有公式的單元格的最后一行。[示例代碼13] Sub SpecialCells_LastRowxlCellTypeFormulas()Dim MyRow As Range On Error GoTo Finish Set MyRow = Intersect([A:A], Cells._ SpecialCells(xlCellTypeFormulas).EntireRow).EntireRow '獲取最后一行

MsgBox “最后一行是第” & Split(MyRow.Address, “$”)_(UBound(Split(MyRow.Address, “$”)))& “行” Set MyRow = Nothing Exit Sub Finish: MsgBox “沒有發(fā)現(xiàn)數(shù)據(jù)！” End Sub 同上面所講述的一樣，我們也能使用SpecailCells方法去找到其它特定類型的單元格所在的最后一行，下面是這些常量的一個(gè)完整的列表：

XlCellTypeAllFormatConditions(任何格式的單元格)XlCellTypeAllValidation(帶有數(shù)據(jù)有效性的單元格)XlCellTypeBlanks(所使用區(qū)域中的空白單元格)XlCellTypeComments(包含有批注的單元格)XlCellTypeConstants(包含有常量的單元格)XlCellTypeFormulas(包含有公式的單元格)XlCellTypeLastCell(已使用區(qū)域中的最后一個(gè)單元格(看下面))XlCellTypeSameFormatConditions(有相同格式的單元格)XlCellTypeSameValidation(有相同數(shù)據(jù)有效性條件的單元格)XlCellTypeVisible(工作表中所有可見的單元格)