【正文】 ize) expression 必需。 R1).Resize(Rs, Ls)‘a(chǎn)rr為變量，在VBA中，變量無(wú)需聲明就可以直接使用，此時(shí)該變量為變體變量。只讀。Range 對(duì)象，只讀。R1 = 2 39。右鍵點(diǎn)擊新工作表標(biāo)簽，選擇“查看代碼”，將下面的代碼粘貼到打開的VBE窗口中：Sub Shcopy()Dim nRowamp。 Sq2 = select * from [ amp。 sql End If Next sql = Left(sql, Len(sql) 6) Sheets(理數(shù)).Range(a4).CopyFromRecordset (sql) : Set n = NothingEnd Sub方法三Sub ConbimeAll() Dim yy As Long yy = [a65536].End(xlUp).Row + 1 Range(a2:l amp。 $A3:L amp。extended properties=excel 。Range(A65536).End(xlUp).Row 是指第一列最后一個(gè)有數(shù)據(jù)單元格的行數(shù)，它的下一行即加 1 就是3樓所說(shuō)的要添加數(shù)據(jù)的空白單元格匯總工作表數(shù)據(jù)20100603 00:44方法一：Sub Getdata()Dim Erow As Integer, c As Variant, Serow As IntegerErow = Sheets(Total).[a65536].End(xlUp).Row + 1If Erow 4 Then Sheets(Total).Rows(4: amp。Long 類型，只讀多謝兩位高手指點(diǎn)，看完以后我是這樣理解的，不知對(duì)否？第二行的sheets1sheet1或sheets(1)sheet1,對(duì)工作表對(duì)象的稱呼。 xlDown xlToRight xlToLeft xlUp 示例本示例選定包含單元格 B4 的區(qū)域中 B 列頂端的單元格。 該表達(dá)式返回“應(yīng)用于”列表中的對(duì)象之一。End 屬性參閱應(yīng)用于示例特性返回一個(gè) Range 對(duì)象，該對(duì)象代表包含源區(qū)域的區(qū)域尾端的單元格。End WithNextEnd Sub注：在VISUAL BASIC中要加入注釋，直接在注釋文字前加上’符號(hào)即可，在’符號(hào)之后的文字會(huì)被編譯器忽略，也可以使用REM來(lái)進(jìn)行注釋，但使用’符號(hào)會(huì)更快捷一些，還可以節(jié)省內(nèi)存及加快編譯的效率。 n).Copy ActiveSheet.[a65536].End(xlUp).Offset(1, 0) 39。此程序事先沒(méi)有對(duì)變量進(jìn)行聲明。因此不能用with語(yǔ)句來(lái)設(shè)置多個(gè)不同的對(duì)象。with語(yǔ)句可以在一個(gè)單一對(duì)象或一個(gè)用戶定義類型上執(zhí)行一系列的語(yǔ)句。在代碼中，屬性和方法都是通過(guò)連接符.來(lái)和對(duì)象連接的。過(guò)程是可以執(zhí)行的語(yǔ)句序列單元，所有可執(zhí)行的代碼必須包含在某個(gè)過(guò)程中，任何過(guò)程都不能嵌套在其它過(guò)程中，過(guò)程的名稱必須在模塊級(jí)別進(jìn)行定義。2010年5月用于林業(yè)旱災(zāi)調(diào)查一個(gè)工作簿上的所有工作表匯總 到一張工作表的代碼：Sub yy() 39。由C列移到A列。.Range(a2:Vamp。End和Row都是屬性，此語(yǔ)句取得屬性值后賦值給變量n。因此不能用with語(yǔ)句來(lái)設(shè)置多個(gè)不同的對(duì)象。從第一個(gè)工作表到倒數(shù)第二個(gè)工作表With Sheets(i)’with語(yǔ)句可以在一個(gè)單一對(duì)象或一個(gè)用戶定義類型上執(zhí)行一系列的語(yǔ)句。參數(shù)值和參數(shù)名之間應(yīng)該使用“：=”符號(hào)，而不是等號(hào)。在SUB關(guān)鍵字之后為過(guò)程最重要的三大部分：過(guò)程名稱、參數(shù)以及在SUB和END SUB之間的主體程序代碼內(nèi)容。當(dāng)要聲明一個(gè)過(guò)程時(shí)，通常是以關(guān)鍵字“SUB”開頭，并且以關(guān)鍵字“END”結(jié)束，在SUB關(guān)鍵字之前是用來(lái)指定此過(guò)程的作用域，例如public,static, 或protected 等。新建一個(gè)工作表放在最后。For i = 1 To 139。當(dāng)程序一旦進(jìn)入with/end with結(jié)構(gòu)，with語(yǔ)句指定的對(duì)象就不能改變。求出某列最大行號(hào)的目的是確定有數(shù)據(jù)區(qū)域的最下邊界，為此，選擇求最大行號(hào)列時(shí)，選擇的列數(shù)據(jù)最下邊界要最大限度包含所有的數(shù)據(jù)。屬性。n =.[c65536].End(xlUp) .Row得到C列最后一個(gè)非空單元格所在的行號(hào)，“.Offset(1, 2)”偏移“[c65536].End(xlUp)”得到單元格的位置開始復(fù)制后數(shù)據(jù)的粘貼位置。以上代碼粘貼位置、復(fù)制范圍可以根據(jù)實(shí)際需要可變。在SUB關(guān)鍵字之后為過(guò)程最重要的三大部分：過(guò)程名稱、參數(shù)以及在SUB和END SUB之間的主體程序代碼內(nèi)容。參數(shù)值和參數(shù)名之間應(yīng)該使用：=符號(hào)，而不是等號(hào)。從第一個(gè)工作表到倒數(shù)第二個(gè)工作表With Sheets(i) 39。當(dāng)程序一旦進(jìn)入with/end with結(jié)構(gòu)，with語(yǔ)句指定的對(duì)象就不能改變。 End和Row都是屬性，此語(yǔ)句取得屬性值后賦值給變量n。.Range(a3:v amp。由C列移到A列。Range(B4).End(xlUp).SelectRange(b65536).End(xlUp).Row 問(wèn)題高手賜教其含義與區(qū)別Range(a65536).End(xlUp).RowRange(b65536).End(xlUp).RowRange(d65536).End(xlUp).RowRange(k65536).End(xlUp).Row看一下vba中END的幫助就知道了。(Direction)expression 必需。XlDirection 可為 XlDirection 常量之一。Worksheets(Sheet1).ActivateRange(B4, Range(B4).End(xlToRight)).SelectRange(a65536).End(xlUp).Row A列數(shù)據(jù)區(qū)域最后一行的行號(hào)Range(b65536).End(xlUp).Row B列數(shù)據(jù)區(qū)域最后一行的行號(hào)Range(d65536).End(xlUp).Row D列數(shù)據(jù)區(qū)域最后一行的行號(hào)Range(k65536).End(xlUp).Row K列數(shù)據(jù)區(qū)域最后一行的行號(hào)Range(a65536).End(xlUp).RowA列第65536行之上的最后有數(shù)據(jù)的單元格所在行數(shù)回復(fù)Range(b65536).End(xlUp).Row = B列最后一個(gè)非空單元格的行數(shù)Range(a65536).End(xlUp).Row=A列最后一個(gè)非空單元格的行數(shù)Range(b65536).End(xlUp).Row = B列最后一個(gè)非空單元格的行數(shù)Range(d65536).End(xlUp).Row = D列最后一個(gè)非空單元格的行數(shù)Range(k65536).End(xlUp).Row= K列最后一個(gè)非空單元格的行數(shù)(xlUp).row的含義?經(jīng)常在VBA中常見如下代碼：Dim