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