問(wèn)題已解決
老師是如何把下面這多個(gè)單獨(dú)表合并到一個(gè)表格的分別sheet1 sheet2 等等單元表格中 ?謝謝
溫馨提示:如果以上題目與您遇到的情況不符,可直接提問(wèn),隨時(shí)問(wèn)隨時(shí)答
速問(wèn)速答你好,可以復(fù)制,否則就要學(xué)習(xí)代碼才能搞定了
2020 12/09 10:48
84784983
2020 12/09 10:53
快說(shuō)代碼 教一下
杰希老師
2020 12/09 10:56
你好,你開(kāi)通了宏嗎?
84784983
2020 12/09 11:01
老師Σ(?+? o?)シ繼續(xù)說(shuō)??
84784983
2020 12/09 11:41
怎么只說(shuō)一點(diǎn)點(diǎn)就不說(shuō)了
杰希老師
2020 12/09 12:01
你好,需要開(kāi)通宏數(shù)據(jù)
84784983
2020 12/09 13:22
不要重復(fù) 接著說(shuō)
84784983
2020 12/09 14:50
你會(huì)不會(huì) 不會(huì)就不要接這個(gè)問(wèn)題
杰希老師
2020 12/09 14:52
你好,代碼如下:
Sub 合并當(dāng)前目錄下所有工作簿的全部工作表()
Dim MyPath, MyName, AWbName
Dim Wb As Workbook, WbN As String
Dim G As Long
Dim Num As Long
Dim BOX As String
Application.ScreenUpdating = False
MyPath = ActiveWorkbook.Path
MyName = Dir(MyPath & "\" & "*.xls")
AWbName = ActiveWorkbook.Name
Num = 0
Do While MyName <> ""
If MyName <> AWbName Then
Set Wb = Workbooks.Open(MyPath & "\" & MyName)
Num = Num + 1
With Workbooks(1).ActiveSheet
.Cells(.Range("B65536").End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) - 4)
For G = 1 To Sheets.Count
Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1)
Next
WbN = WbN & Chr(13) & Wb.Name
Wb.Close False
End With
End If
MyName = Dir
Loop
Range("B1").Select
Application.ScreenUpdating = True
MsgBox "共合并了" & Num & "個(gè)工作薄下的全部工作表。如下:" & Chr(13) & WbN, vbInformation, "提示"
End Sub
84784983
2020 12/09 15:18
可以把使用什么函數(shù)說(shuō)一下嗎?再把步驟說(shuō)清楚點(diǎn) 謝謝
杰希老師
2020 12/09 15:19
你好,不是函數(shù),是表格里一個(gè)叫宏的功能,打開(kāi)宏,把代碼錄入,運(yùn)行就可以了。
84784983
2020 12/09 15:21
代碼是什么
杰希老師
2020 12/09 15:53
你好,代碼就是我上面發(fā)給你的那些子母數(shù)字
84784983
2020 12/09 18:27
主要用的是什么功能,實(shí)現(xiàn)我的問(wèn)題
杰希老師
2020 12/09 19:08
你好,上面已經(jīng)回答了,用宏,excel里面的功能區(qū)有宏,輸入代碼,運(yùn)行,就能實(shí)現(xiàn)了。但是宏是一門(mén)計(jì)算機(jī)語(yǔ)言,需要前期的學(xué)習(xí)。
84784983
2020 12/09 19:09
只寫(xiě)代碼是怎么使用也沒(méi)有說(shuō)
杰希老師
2020 12/09 19:11
給您的建議是,之前沒(méi)有用過(guò)宏,先不要用,后期有時(shí)間再去學(xué)習(xí),現(xiàn)在先把幾張表格復(fù)制粘貼過(guò)來(lái)。
杰希老師
2020 12/09 19:12
打開(kāi)excel,功能區(qū)打開(kāi)宏,輸入代碼,點(diǎn)擊運(yùn)行,等待幾分鐘。
84784983
2020 12/09 19:14
說(shuō)的都不具體,是怎么學(xué)習(xí)使用。
杰希老師
2020 12/09 19:16
您好,宏可以在網(wǎng)上找相關(guān)的培訓(xùn)課程
杰希老師
2020 12/09 19:17
什么是宏
所謂宏,就是一些命令組織在一起,作為一個(gè)單獨(dú)命令完成一個(gè)特定任務(wù)。Microsoft Word中對(duì)宏定義為:“宏就是能組織到一起作為一獨(dú)立的命令使用的一系列word命令,它能使日常工作變得更容易”。Word使用宏語(yǔ)言Visual Basic將宏作為一系列指令來(lái)編寫(xiě)。
計(jì)算機(jī)科學(xué)里的宏是一種抽象的,根據(jù)一系列預(yù)定義的規(guī)則替換一定的文本模式。Excel辦公軟件自動(dòng)集成了“VBA”高級(jí)程序語(yǔ)言,用此語(yǔ)言編制出的程序就叫“宏”。使用“VBA”需要有一定的編程基礎(chǔ),并且還會(huì)耗費(fèi)大量的時(shí)間,因此,絕大多數(shù)的使用者僅使用了Excel的一般制表功能,很少使用到“VBA”。
解釋器或編譯器在遇到宏時(shí)會(huì)自動(dòng)進(jìn)行這一模式替換。對(duì)于編譯語(yǔ)言,宏展開(kāi)在編譯時(shí)發(fā)生,進(jìn)行宏展的工具常被稱(chēng)為宏展開(kāi)器。宏這一術(shù)語(yǔ)也常常被用于許多類(lèi)似的環(huán)境中,它們是源自宏展開(kāi)的概念,這包括鍵盤(pán)宏和宏語(yǔ)言。絕大多數(shù)情況下,“宏”這個(gè)詞的使用暗示著將小命令或動(dòng)作轉(zhuǎn)化為一系列指令。
杰希老師
2020 12/09 19:19
可以先從了解宏是什么開(kāi)始,工作中哪些地方會(huì)用到宏。然后再去找相關(guān)的課程。
杰希老師
2020 12/09 19:19
宏的用途在于自動(dòng)化頻繁使用的序列或者是獲得一種更強(qiáng)大的抽象能力--但這常常是一回事。
計(jì)算機(jī)語(yǔ)言如C或匯編語(yǔ)言有簡(jiǎn)單的宏系統(tǒng),由編譯器或匯編器的預(yù)處理器實(shí)現(xiàn)。C的宏預(yù)處理器的工作只是簡(jiǎn)單的文本搜索和替換,使用附加的文本處理語(yǔ)言如M4,C 程序員可以獲得更精巧的宏。
Lisp類(lèi)語(yǔ)言如Common Lisp和Scheme有更精巧的宏系統(tǒng): 宏的行為如同是函數(shù)對(duì)自身程序文本的變形,并且可以應(yīng)用全部語(yǔ)言來(lái)表達(dá)這種變形。一個(gè)C宏可以定義一段語(yǔ)法的替換,然而一個(gè)Lisp的宏卻可以控制一節(jié)代碼的計(jì)算。獲得了控制代碼的執(zhí)行順序(見(jiàn)惰性計(jì)算和非限制函數(shù))的能力,使得新創(chuàng)建的語(yǔ)法結(jié)構(gòu)與語(yǔ)言?xún)?nèi)建的語(yǔ)法結(jié)構(gòu)不可區(qū)分。
例如,一種Lisp 方言有 cond 而沒(méi)有if ,就可以使用宏由前者定義后者。Lisp 語(yǔ)法的去部主要擴(kuò)展,比如面向?qū)ο蟮腃LOS 系統(tǒng),可以由宏來(lái)定義。
宏的典型應(yīng)用
加速日常編輯和格式設(shè)置組合多個(gè)命令使對(duì)話框中的選項(xiàng)更易于訪問(wèn) 使一系列復(fù)雜的任務(wù)自動(dòng)執(zhí)行
應(yīng)用程序也可以使用一種和宏類(lèi)似機(jī)理的系統(tǒng)來(lái)允許用戶(hù)將一系列(一般是最常使用到的操作)自定義為一個(gè)步驟。也就是用戶(hù)執(zhí)行一系列操作,并且讓?xiě)?yīng)用程序來(lái)“記住”這些操作以及順序。更高級(jí)的用戶(hù)可以通過(guò)內(nèi)建的宏編程來(lái)直接使用那些應(yīng)用程序的功能。當(dāng)使用一種不熟悉的宏語(yǔ)言來(lái)編程時(shí),比較有效的方法就是記錄用戶(hù)希望得到的一連串操作,然后通過(guò)閱讀應(yīng)用程序記錄下來(lái)的宏文件來(lái)理解宏命令的結(jié)構(gòu)組成。
杰希老師
2020 12/09 19:20
這些是我復(fù)制的,幫助您大概了解什么是宏,學(xué)習(xí)宏有什么作用
閱讀 122