把多表格相同位置单元格汇总到一张新的工作表中

wangrh

求各位大神帮忙，新建一个工作表（本工作表）并命名为“玻璃汇总”，把蓝色工作表标签里面O38:S43区域内的数据汇总到该表中，如附件所示。不胜感谢！！！

tiger1976

Sub lll()

    Dim sht1 As Worksheet
    Dim sht2 As Worksheet
    Dim i As Integer, j As Integer, m As Integer, n As Integer
   
    Set sht1 = Worksheets("玻璃汇总")
        
    For Each sht2 In Sheets
        If sht2.Name = sht2.Range("b16").Value Then
            j = sht2.Cells(Rows.Count, "o").End(xlUp).Row
            m = j - 37
            For n = 1 To m
                i = sht1.Cells(Rows.Count, 1).End(xlUp).Row
                sht1.Cells(i + 1, 1) = sht2.Range("b16").Value
                sht1.Cells(i + 1, 2) = Round(sht2.Cells(n + 37, "o").Value, 0)
                sht1.Cells(i + 1, 3) = Round(sht2.Cells(n + 37, "p").Value, 0)
                sht1.Cells(i + 1, 4) = sht2.Cells(n + 37, "q")
                sht1.Cells(i + 1, 5) = sht2.Cells(n + 37, "r")
            Next
        End If
    Next


End Sub

tiger1976

下料单 vba   仅供参考

wangrh

tiger1976 发表于 2021-1-16 22:32
下料单 vba   仅供参考

感谢tiger1976的回复，汇总没有问题。还是我的工作工作表可能不限这几张，有时候会有几十张，这个代码就不行了，还是非常感谢你的及时回复

lsc900707

简单的数组问题。

cui26896

Sub test()
  Dim bm, sq, cn, rs, i%
  Set cn = CreateObject("ADODB.Connection")
  cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.FullName
  For i = 7 To Sheets.Count
    sq = sq & " union all select * from [" & Sheets(i).Name & "$o37:s43] where 数量 is not null"
  Next
  Set rs = cn.Execute(Mid(sq, 12))
  With Sheets(1)
    .Range("a2").Offset(1).Resize(.[a2].CurrentRegion.Rows.Count, .[a2].CurrentRegion.Columns.Count).ClearContents
    For i = 0 To rs.Fields.Count - 1
      .Cells(2, i + 1) = rs.Fields(i).Name
    Next
    Range("a3").CopyFromRecordset rs
  End With
End Sub

cui26896

请参考附件
下料单.zip (38.92 KB, 下载次数: 7)

2021-1-17 10:32 上传

点击文件名下载附件

wangrh

感谢cui26896的回复,不满足我的汇总要求。

cui26896

wangrh 发表于 2021-1-17 11:10
感谢cui26896的回复,不满足我的汇总要求。

哪里不满足，请说明

wangrh

cui26896 发表于 2021-1-17 11:17
哪里不满足，请说明

cui26896老师，您好！一是该工作表是运行代码后新生成并命名为“玻璃汇总”，二是前面的代号一列没有了，代号需要和汇总的数据对应。感谢你的关注。