请教老师

wuyanshen2024

请教老师，文件夹里共有140个表格，分别存放在10个工作簿里，这些工作表格式相同，每个工作表的Range(“D1002:M1002”)单元格区域可能有我想要的数据，搜索这些数据，分别存放在数组里，最后再把数组的数据汇总到汇总表里，这段代码应该怎么写，请指教。

我试过用复制的方法行不通，收索到第一个数据后粘贴到汇总表里就不知道怎么回去了。

3190496160

求助务必上传附件才可能得到别人的帮助

wuyanshen2024

Sub 汇总() Dim i As Integer Dim x As Integer  For i = 1 To 14 Workbooks("尾数" & i).Activate For x = 1 To 10 Sheets("表" & x).Select If Application.WorksheetFunction.Count(Range(Cells(1002, 4), Cells(1002, 13))) = 7 Then  myname1 = ActiveWorkbook.Name myname2 = ActiveWorkbook.Sheets(x).Name MsgBox myname1 & myname2 '能读到数据,不知道怎么存放   End If  Next Next  End Sub

3190496160

wuyanshen2024 发表于 2024-11-3 11:36
Sub 汇总() Dim i As Integer Dim x As Integer  For i = 1 To 14 Workbooks("尾数" & i).Activate For x = ...

呵呵呵，没有附件，任何人都帮不了你的，