【正文】 等。2010年5月用于林業(yè)旱災(zāi)調(diào)查一個(gè)工作簿上的所有工作表匯總 到一張工作表的代碼：Sub yy() 39。End WithNextEnd Sub’ 注：在VISUAL BASIC中要加入注釋，直接在注釋文字前加上’符號(hào)即可，在’符號(hào)之后的文字會(huì)被編譯器忽略，也可以使用REM來進(jìn)行注釋，但使用’符號(hào)會(huì)更快捷一些，還可以節(jié)省內(nèi)存及加快編譯的效率。由C列移到A列。取a2開始到最后的數(shù)據(jù)copy到新表數(shù)據(jù)的下一行。.Range(a2:Vamp。在程序中取得對(duì)象的屬性的代碼結(jié)構(gòu)：變量=對(duì)象End和Row都是屬性，此語句取得屬性值后賦值給變量n。求出c列最大行號(hào)。因此不能用with語句來設(shè)置多個(gè)不同的對(duì)象。 With/end with語句結(jié)構(gòu)中以“.”開頭的語句相當(dāng)于引用了with語句中指定的對(duì)象。從第一個(gè)工作表到倒數(shù)第二個(gè)工作表With Sheets(i)’with語句可以在一個(gè)單一對(duì)象或一個(gè)用戶定義類型上執(zhí)行一系列的語句。Add是方法名，after是自變量，方法名與自變量之間用半角空格隔開。參數(shù)值和參數(shù)名之間應(yīng)該使用“：=”符號(hào)，而不是等號(hào)。 after:=Sheets()39。在SUB關(guān)鍵字之后為過程最重要的三大部分：過程名稱、參數(shù)以及在SUB和END SUB之間的主體程序代碼內(nèi)容。如何把多張工作表內(nèi)容快速復(fù)制到一張表我有一份教師工資表,一個(gè)工作簿里有好多張工作表的,現(xiàn)在我想把各工作表里的內(nèi)容全部合到一張表中,除了用復(fù)制粘貼的方法外,請(qǐng)問還能有什么好的方法快速合到一起嗎?（首選）Sub yy() ’聲明過程名稱為“yy”。當(dāng)要聲明一個(gè)過程時(shí)，通常是以關(guān)鍵字“SUB”開頭，并且以關(guān)鍵字“END”結(jié)束，在SUB關(guān)鍵字之前是用來指定此過程的作用域，例如public,static, 或protected 等。過程是可以執(zhí)行的語句序列單元，所有可執(zhí)行的代碼必須包含在某個(gè)過程中，任何過程都不能嵌套在其它過程中，過程的名稱必須在模塊級(jí)別進(jìn)行定義。新建一個(gè)工作表放在最后。在代碼中，屬性和方法都是通過連接符“.”來和對(duì)象連接的。For i = 1 To 139。使用with語句不僅可以簡化程序代碼，而且可以提高代碼的運(yùn)行效率。當(dāng)程序一旦進(jìn)入with/end with結(jié)構(gòu)，with語句指定的對(duì)象就不能改變。n = .[c65536].End(xlUp).Row39。求出某列最大行號(hào)的目的是確定有數(shù)據(jù)區(qū)域的最下邊界，為此，選擇求最大行號(hào)列時(shí)，選擇的列數(shù)據(jù)最下邊界要最大限度包含所有的數(shù)據(jù)。此程序事先沒有對(duì)變量進(jìn)行聲明。屬性。n).Copy ActiveSheet.[c65536].End(xlUp).Offset(1, 2)39。n =.[c65536].End(xlUp) .Row得到C列最后一個(gè)非空單元格所在的行號(hào)，“.Offset(1, 2)”偏移“[c65536].End(xlUp)”得到單元格的位置開始復(fù)制后數(shù)據(jù)的粘貼位置。[c65536].End(xlUp)：求出C列最下邊有數(shù)據(jù)的單元格，粘貼復(fù)制的數(shù)據(jù)時(shí)為了前面的數(shù)據(jù)不被后面粘貼上的數(shù)據(jù)覆蓋，開始粘貼數(shù)據(jù)的位置在最下邊有數(shù)據(jù)的單元格位置的基礎(chǔ)上要用offset偏移。以上代碼粘貼位置、復(fù)制范圍可以根據(jù)實(shí)際需要可變。聲明過程名稱為yy。在SUB關(guān)鍵字之后為過程最重要的三大部分：過程名稱、參數(shù)以及在SUB和END SUB之間的主體程序代碼內(nèi)容。 after:=Sheets() 39。參數(shù)值和參數(shù)名之間應(yīng)該使用：=符號(hào)，而不是等號(hào)。Add是方法名，after是自變量，方法名與自變量之間用半角空格隔開。從第一個(gè)工作表到倒數(shù)第二個(gè)工作表With Sheets(i) 39。使用with語句不僅可以簡化程序代碼，而且可以提高代碼的運(yùn)行效率。當(dāng)程序一旦進(jìn)入with/end with結(jié)構(gòu)，with語句指定的對(duì)象就不能改變。n = .[a65536].End(xlUp).Row 39。 End和Row都是屬性，此語句取得屬性值后賦值給變量n。在程序中取得對(duì)象的屬性的代碼結(jié)構(gòu)：變量=對(duì)象.Range(a3:v amp。取a2開始到最后的數(shù)據(jù)copy到新表數(shù)據(jù)的下一行。由C列移到A列。如果當(dāng)前活動(dòng)工作表的A列填寫的是學(xué)生的姓名，現(xiàn)在我們想在表中A列最后一個(gè)學(xué)生的后面增加一個(gè)叫“張青”的學(xué)生，則代碼為：　代碼:([A65536].End(xlUp).Row + 1, 1).Value = 張青“[A65536].End(xlUp).Row”語句來返回A列的最后一個(gè)非空單元格的行號(hào)(C1).End(xlDown).Row返回第一次遇到空單元格前的單元格的數(shù)量。Range(B4).End(xlUp).SelectRange(b65536).End(xlUp).Row 問題高手賜教其含義與區(qū)別Range(a65536).End(xlUp).RowRange(b65536).End(xlUp).RowRange(d65536).End(xlUp).RowRange(k65536).End(xlUp).Row看一下vba中END的幫助就知道了。等同于按鍵 End+ 向上鍵、End+ 向下鍵、End+ 向左鍵或 End+ 向右鍵。(Direction)expression 必需。Direction XlDirection 類型，必需。XlDirection 可為 XlDirection 常量之一。Range(B4).End(xlUp).Select 本示例選定包含單元格 B4 的區(qū)域中第 4 行尾端的單元格。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 Rng As IntegerRng = 代碼詳解定義RNG作為