A. 使用VBA將一個excel工作簿中的四個工作表導出為四個文件
我覺得是思路有問題，先把表復製成單一文件，再選擇性粘貼值就行了
B. 如何用VBA將同一個文件夾下所有EXCEL表中的所有sheet表的數據導出到一個EXCEL中
新建一培埋敗個工作薄，將所有EXCEL表的文件名填到A列中，復制下面VBA代碼到工作配顫薄中，保存液改為excel.xls後執行
Sub xls()
Application.ScreenUpdating = False
'Arr數組由所有EXCEL文件名組成
arr = [A1:A10]
For i = 1 To UBound(arr)
Workbooks.Open "文件夾路徑\" & arr(i, 1)
Workbooks(arr(i)(1)).Activate
For j = 1 To ActiveWorkbook.Sheets.Count
Sheets(j).Copy After:=Workbooks("excel.xls").Sheets(Workbooks("excel.xls").Sheets.Count)
Next
Workbooks(arr(i, 1)).Close False
Next
End Sub
C. 一個VBA程序怎麼處理多個excel 表格
EXCEL VBA裡面需要順序執行多個宏的時候，可以另外建立一個宏，按順序依次調用這些宏即可，例如下面的test宏依次調用宏1、宏2、宏3：Sub test() Call 宏1 Call 宏2 Call 宏3End Sub
D. 如何用vba批量將一個excel文件中的多個工作表另存為的新工作薄（新excel文件）
答：
SubDemo()
DimShtAsWorksheet
DimFilePathAsString
FilePath=ThisWorkbook.Path&""
Application.ScreenUpdating=False
ForEachShtInThisWorkbook.Sheets
IfNotSht.Name="分析"Then
WithSht
.UsedRange.Value=.UsedRange.Value
.Copy
EndWith
WithActiveWorkbook
.SaveAsFilename:=FilePath&Sht.Name
.Close
EndWith
EndIf
NextSht
Application.ScreenUpdating=True
MsgBox"導出完成"
EndSub
E. VBA如何將多個不同的Excel文件批量導入到一個新的Excel文件中的一個sheet內，並且是有順序不會覆蓋
我每月處理一萬個excel文件，每個文件里抽取符合條件的部分再合並到一起。
看你有多少文件，vba效率是一秒一個文件，VBA+sql快10倍，python再快10倍尺迅。我用python一般15分鍾內處理完一萬個文件。
vba也很簡單，你錄制宏，錄制導入一個文件的，代碼貼困困改上來，我們改下就汪判ok。
可以發樣表，50塊做好給你。私信。
F. EXCEL VBA實現將一個excel分解成多個excel文檔，自己寫的代碼有點問題，求教啊！
Sub 分解()
Dim H As Long, H1 As Long, M As String, K As Integer, BM As Workbook
Dim PAT As String
Application.ScreenUpdating = False
PAT = ThisWorkbook.Path & "\"
With Sheet2
Rows("1:1").Select
Selection.Delete Shift:=xlUp '第一行沒用
H = .Range("a65536").End(xlUp).Row
For H1 = 1 To H '此處有問題，H的值並為納入循環
If M = "" Then
M = .Cells(H1, 1).value
End If
If .Cells(H1, 1) <> .Cells(H1 + 1, 1) Then
Set BM = Workbooks.Add(1)
.Range(.Cells(H1 - K, 1), .Cells(H1, 5)).Copy BM.Sheets(1).Cells(1, 1)
BM.SaveAs Filename:=PAT & M & ".csv"
BM.Close True
M = ""
K = 0
Else
K = K + 1
End If
Next H1
End With
Application.ScreenUpdating = True
End Sub
2.處理38這個在復制前就處理掉好，不要後處理。
可以在 For H1 = 1 To H
If M = "" Then
之間插入下列代碼。
If Left(.Cells(H1, 5).Text, 2) - 38 = 0 Then
.Cells(H1, 5) = Right(.Cells(H1, 5).Text, Len(.Cells(H1, 5).Text) - 2)
End If
3.修改A1的值就和上面的老兄一樣：
cells(1,1).value=3或range("A1").value=3