如何把多張工作表內(nèi)容快速?gòu)?fù)制到一張表(編輯修改稿)
2025-09-01 05:15 本頁(yè)面
【文章內(nèi)容簡(jiǎn)介】 于 Worksheet 對(duì)象，Rows 屬性返回代表指定工作表所有行的 Range 對(duì)象。Range 對(duì)象，只讀。工作表上已使用區(qū)域的行數(shù)。Ls = .’ Count 屬性。描述：返回集合或 Dictionary 對(duì)象中的條目數(shù)。只讀。語(yǔ)法： object 總是“應(yīng)用于”列表中某一項(xiàng)的名稱。工作表上已使用區(qū)域的列數(shù)。arr = .Range(a amp。 R1).Resize(Rs, Ls)‘a(chǎn)rr為變量，在VBA中，變量無(wú)需聲明就可以直接使用，此時(shí)該變量為變體變量。Resize 屬性。在Excel中，Resize 屬性的功能為調(diào)整指定區(qū)域的大小。返回 Range 對(duì)象，該對(duì)象代表調(diào)整后的區(qū)域。 (RowSize, ColumnSize) expression 必需。該表達(dá)式返回要調(diào)整大小的 Range 對(duì)象。 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修改“開始行號(hào)”。將光標(biāo)定位到代碼中間任意位置，按F5運(yùn)行它。關(guān)閉VBE窗口。注意單詞之間要用空格隔開。Excel多個(gè)工作簿中的工作表合并到一個(gè)工作簿中 有時(shí)，需要將多個(gè)Excel工作簿中的工作表合并到一個(gè)工作簿中。有多種合并工作簿的情形，下面先給出一種合并多個(gè)工作簿的VBA范例，供參考。（此方法將一個(gè)工作簿中所有的工作表復(fù)制到一張工作表上）方法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)計(jì)工作表個(gè)數(shù)39。復(fù)制新打開工作簿的每一個(gè)工作表到當(dāng)前工作表(After:=())最后一個(gè)后面For i = 1 To iiWorkbooks(dirname).Sheets(i).Copy After:=()NextWorkbooks(dirname).Close FalseEnd Ifdirname = DirLoopEnd Sub在同一文件夾下有多個(gè)工作簿，其中有一個(gè)用于匯總的工作簿，將除該匯總工作簿外的其它工作簿中的每一張工作表的數(shù)據(jù)匯總到該匯總工作簿的一張工作表中。好用！Sub UnionWorksheets() = False’關(guān)閉屏幕更新Dim lj As String Dim dirname As StringDim nm As StringDim i As Integer, ii As Integerlj = ’ Path 屬性。返回指定文件、文件夾、或驅(qū)動(dòng)器的路徑。nm = ’ Name屬性。指定一個(gè)控件或?qū)ο蟮拿Q或與 Font 對(duì)象相關(guān)的字體的名稱。變量賦值使用=“等號(hào)”，“=”后的值可以是單純的數(shù)值、字符串或表達(dá)式。dirname = Dir(lj amp。 \*.xls)’ Dir 函數(shù)。返回一個(gè)String，用以表示一個(gè)文件名、目錄名或文件夾名稱，它必須與指定的模式或文件屬性、或磁盤卷標(biāo)相匹配?！?Clear 方法。清除 Err 對(duì)象的所有屬性設(shè)置。Do While dirname ’前置式DO…LOOP循環(huán)。If dirname nm Then Filename:=lj amp。 \ amp。 dirname’ Open 方法?！啊睘楸容^運(yùn)算符“不等于”。ii = ’ Sheets 屬性Workbooks(nm).Activate’ Activate方法。Workbooks(nm)屬使用工作簿名稱引用workbook，語(yǔ)法格式為：workbook（ 工作簿名稱）。39。復(fù)制新打開工作簿的每一個(gè)工作表的已用區(qū)域到當(dāng)前工作表For i = 1 To iiWorkbooks(dirname).Sheets(i). _Range(a65536).End(xlUp).Offset(2, 0)’ UsedRange 屬性。返回代表指定工作表上已使用區(qū)域的 Range 對(duì)象。只讀NextWorkbooks(dirname).Close False’ Close 方法。關(guān)閉一個(gè)打開的 TextStream 文件。語(yǔ)法： object始終是一個(gè) TextStream 對(duì)象的名字End Ifdirname = DirLoopEnd Sub如何利用VBA將多工作表的數(shù)據(jù)匯總而不復(fù)制標(biāo)題？A：將sheet2工作表中待復(fù)制的數(shù)據(jù)定義為“表1”，將sheet3工作表中待復(fù)制的數(shù)據(jù)定義為“表2”ALT+F11→新建模塊，并輸入如下代碼 Sub 利用表僅復(fù)制數(shù)據(jù)()Dim sh As Worksheet, IFor
環(huán)評(píng)公示相關(guān)推薦
鄂ICP備17016276號(hào)-1