摘要： 同一文件夹内N个工作簿 ，每个工作簿里N个工作表，最终合并到一个工作表里的代码。
假设每个表格结构相同，第一行为标题，第二行为表头，表头内容固定，行数不固定，列固定14，工作表数量不固定，工作簿数量不固定。
Sub Sample()
Dim MyWb As Workbook
Dim MySht As Worksheet
Dim MyName As String, MyPath As String
Dim MyRow As Long, MySRow As Long, MyShtN As Long
Dim MyArr
MyPath = ThisWorkbook.Path & ""
MyName = Dir(MyPath & "*.xlsx")
With ActiveSheet
.Cells.Clear
Range("a1") = "标题"
Range("a2:n2") = "表头"
Do While MyName <> ""
If MyName <> ThisWorkbook.Name Then
Excel里的格式会自动变成日期或会计专用吗
Excel里的格式会自动变成日期或会计专用？正常情况下当然不会了，可是最近却有很多很多同学问这样的问题，并把这个问题列成了Excel2007和2010的一个Bug，可是小妖同学却从来没遇到过这样的
Set MyWb = Workbooks.Open(MyPath & MyName)
For MyShtN = 1 To Sheets.Count
MySRow = .Cells(Rows.Count, 1).End(xlUp).Row
MyRow = Cells(Rows.Count, 1).End(xlUp).Row
MyArr = Sheets(MyShtN).Range("a3").Resize(MyRow - 2, 14)
.Cells(MySRow 1, 1).Resize(MyRow - 2, 14) = MyArr
Next
MyWb.Close False
End If
MyName = Dir
Loop
With .UsedRange
.Columns.AutoFit
.Borders.Color = 1
End With
End With
End Sub
Indirect函数里的参数要不要加引号？
=Indirect(a2)=Indirect(a2)以上两个公式究竟哪个对哪个错？现实中该怎么用？相信很多刚才开始学习Indirect的同学都被迷惑过。其实，只要A2里输入恰当的内容，两个都对，只不过结果不同而已，
