excel录制宏提取同一文件夹内的两个表格的数据？ excel宏录制
- 如何用宏提取同一个文件夹中大批量不同Excel表中的同一行数据~
- excel 用宏提取多个文件中的数据
- excel 如何录制宏 如何将同一表格内的多个操作运用到多个表格里面
- 使用录制宏，在EXCEL中 如何将多个工作表的数据汇总到一个工作表
如何用宏提取同一个文件夹中大批量不同Excel表中的同一行数据~
需求如此的简单，录一个宏，把文件名设为变量，套个循环就好了
excel 用宏提取多个文件中的数据
Sub aa() a = 1 For i = 1 To Range("a56565").End(3).Row If Weekday(DateSerial(Year(Cells(i, 1)), Month(Cells(i, 1)), Day(Cells(i, 1))), vbMonday) = 5 Then Sheets("Sheet2").Cells(a, 1).Value = "第" & a & "周末" Sheets("Sheet2").Cells(a, 2).Value = Cells(i, 3) a = a + 1 End If Next End Sub
excel 如何录制宏 如何将同一表格内的多个操作运用到多个表格里面
你可以把录制的宏当成公共模块，在每个sheet里面的代码去调用这个公共宏模块就可以了。
使用录制宏，在EXCEL中 如何将多个工作表的数据汇总到一个工作表
这个是代码 第一步新建一个文件夹 皀准备合并的表格文件放在这个文件夹里 然后在这个文件夹李新建一个表格文件 打开 在sheet1处的标签处右键 查看代码 把下面代码复制进去 运行 运行子程序就可以了，如果不行可以把文件 发来我帮你试试
Sub 合并当前目录下所有工作簿的全部工作表()
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 & "个工作薄下的全部工作表。如下：" & Chr(13) & WbN, vbInformation, "提示"
End Sub