【文章內容簡介】 于 Worksheet 對象，Rows 屬性返回代表指定工作表所有行的 Range 對象。Range 對象，只讀。工作表上已使用區(qū)域的行數(shù)。Ls = .’ Count 屬性。描述：返回集合或 Dictionary 對象中的條目數(shù)。只讀。語法： object 總是“應用于”列表中某一項的名稱。工作表上已使用區(qū)域的列數(shù)。arr = .Range(a amp。 R1).Resize(Rs, Ls)‘a(chǎn)rr為變量，在VBA中，變量無需聲明就可以直接使用，此時該變量為變體變量。Resize 屬性。在Excel中，Resize 屬性的功能為調整指定區(qū)域的大小。返回 Range 對象，該對象代表調整后的區(qū)域。 (RowSize, ColumnSize) expression 必需。該表達式返回要調整大小的 Range 對象。 RowSize Variant 類型，可選。新區(qū)域中的行數(shù)。如果省略該參數(shù)，則該區(qū)域中的行數(shù)保持不變。 ColumnSize Variant類型，可選。新區(qū)域中的列數(shù)。如果省略該參數(shù)。則該區(qū)域中的列數(shù)保持不變。Range(a65536).End(xlUp).Offset(1).Resize(Rs, Ls) = arrEnd WithNext = True = TrueEnd Sub修改“開始行號”。將光標定位到代碼中間任意位置，按F5運行它。關閉VBE窗口。注意單詞之間要用空格隔開。Excel多個工作簿中的工作表合并到一個工作簿中 有時，需要將多個Excel工作簿中的工作表合并到一個工作簿中。有多種合并工作簿的情形，下面先給出一種合并多個工作簿的VBA范例，供參考。（此方法將一個工作簿中所有的工作表復制到一張工作表上）方法1Sub CombineWorkbooks()Dim wk As WorkbookDim sh As WorksheetDim strFileName As StringDim strFileDir As StringDim nm As Stringnm = strFileDir = amp。 \ = FalsestrFileName = Dir(strFileDir amp。 *.xls)Do While strFileName vbNullStringIf strFileName nm ThenMsgBox strFileNameSet wk = (Filename:=strFileDir amp。 strFileName, ReadOnly:=True)strFileName = Left(Left(strFileName, Len(strFileName) 4), 29) 39。取主文件名,For Each sh In After:=()39。工作表命名,以工作表所在文件名為類If 1 Then().Name = strFileName amp。 Else().Name = strFileNameEnd IfNext SaveChanges:=FalseEnd IfstrFileName = DirLoop = TrueEnd Sub方法2Sub UnWorksheets() = FalseDim lj As StringDim dirname As StringDim nm As StringDim sname As StringDim i As Integer, ii As Integerlj = nm = dirname = Dir(lj amp。 \*.xls) 39。查找文件Do While dirname If dirname nm Then Filename:=lj amp。 \ amp。 dirname 39。打開文件ii = 39。統(tǒng)計工作表個數(shù)39。復制新打開工作簿的每一個工作表到當前工作表(After:=())最后一個后面For i = 1 To iiWorkbooks(dirname).Sheets(i).Copy After:=()NextWorkbooks(dirname).Close FalseEnd Ifdirname = DirLoopEnd Sub在同一文件夾下有多個工作簿，其中有一個用于匯總的工作簿，將除該匯總工作簿外的其它工作簿中的每一張工作表的數(shù)據(jù)匯總到該匯總工作簿的一張工作表中。好用！Sub UnionWorksheets() = False’關閉屏幕更新Dim lj As String Dim dirname As StringDim nm As StringDim i As Integer, ii As Integerlj = ’ Path 屬性。返回指定文件、文件夾、或驅動器的路徑。nm = ’ Name屬性。指定一個控件或對象的名稱或與 Font 對象相關的字體的名稱。變量賦值使用=“等號”，“=”后的值可以是單純的數(shù)值、字符串或表達式。dirname = Dir(lj amp。 \*.xls)’ Dir 函數(shù)。返回一個String，用以表示一個文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標相匹配。’ Clear 方法。清除 Err 對象的所有屬性設置。Do While dirname ’前置式DO…LOOP循環(huán)。If dirname nm Then Filename:=lj amp。 \ amp。 dirname’ Open 方法?！啊睘楸容^運算符“不等于”。ii = ’ Sheets 屬性Workbooks(nm).Activate’ Activate方法。Workbooks(nm)屬使用工作簿名稱引用workbook，語法格式為：workbook（ 工作簿名稱）。39。復制新打開工作簿的每一個工作表的已用區(qū)域到當前工作表For i = 1 To iiWorkbooks(dirname).Sheets(i). _Range(a65536).End(xlUp).Offset(2, 0)’ UsedRange 屬性。返回代表指定工作表上已使用區(qū)域的 Range 對象。只讀NextWorkbooks(dirname).Close False’ Close 方法。關閉一個打開的 TextStream 文件。語法： object始終是一個 TextStream 對象的名字End Ifdirname = DirLoopEnd Sub如何利用VBA將多工作表的數(shù)據(jù)匯總而不復制標題？A：將sheet2工作表中待復制的數(shù)據(jù)定義為“表1”，將sheet3工作表中待復制的數(shù)據(jù)定義為“表2”ALT+F11→新建模塊，并輸入如下代碼 Sub 利用表僅復制數(shù)據(jù)()Dim sh As Worksheet, IFor