Re:아래 여러개 엑셀파일 합치기 추가 질문입니다

[夜來香]

VBA와 관련된 답변이 예상되는 경우..
수정/적용이 힘들다고 생각되시면 처음부터 원본을 올리시는 것이 좋습니다.
개수만 늘여서 되는 것이 아니라 참조 범위도 다 바꾸셔야 합니다.
결과를 반환할 장소도 바꾸셔야 하고요..
아래와 같이 적용해 보세요.

Option Explicit
Option Base 1

Sub Collect_Data()
Dim varX()
Dim wb As Workbook, R As Range
Dim i As Integer, j As Integer
Dim strR As String

Application.ScreenUpdating = False

With Application.FileSearch
.LookIn = "C:\Data"
.FileType = msoFileTypeExcelWorkbooks
.Execute
ReDim varX(.FoundFiles.Count, 33) '데이터 개수, 파일명 포함
strR = "b5:d5, d10:f13, d15:d16, d20:f23, d25:d26, d29" '데이터 범위
For i = 1 To .FoundFiles.Count
Set wb = Workbooks.Open(.FoundFiles(i))
varX(i, 1) = wb.Name
j = 2
For Each R In wb.Worksheets("Sheet1").Range(strR)
varX(i, j) = R.Value
j = j + 1
Next R
wb.Close
Next i
Range("a1:ag" & .FoundFiles.Count) = varX '결과 반환 범위
End With

Application.ScreenUpdating = True
End Sub

[핫초코]

네..번거럽게해서 죄송합니다. 지난번에 글 올릴때 퇴근 후라 원본파일이 없었거든요. 그냥 단순하게 수정해서 되는일이 아니군요. 열심히 공부해보겠습니다. 답변 감사합니다. ^^