请各位大佬帮忙看看

啊哈哈哈哈

怎么从表1自动提取数据生成表2

杨建营

具体需求和附件

limonet

给你思路嘛，怕词不达意；给你附件嘛，怕文不对题；啊哈哈哈哈。

313667354

是要整个表格的数据提取到表2，还是针对某些数据，上传文件好解决。

gwjkkkkk

附件呢？？？

laterite

简单，从表1复制想要提取的数据，然后粘贴到表2去就行了

浦东坡

你要上传个文件附件上来

啊哈哈哈哈

limonet

啊哈哈哈哈,关键字查找。

limonet

Sub limonet()
    Application.ScreenUpdating = False
    Dim Arr As Variant, i%, Cn As Object, StrSQL$
    Arr = Range("B3:B9")
    Workbooks.Open (ThisWorkbook.Path & "\工作簿1.xlsx")
    For i = UBound(Arr) To 1 Step -1
        Arr(i, 1) = Cells.Find(Arr(i, 1)).Row + 1
        If i = UBound(Arr) Then
            StrSQL = "Select Sum([审定(元)]) From [Sheet1$J" & Arr(i, 1) & ":J" & Arr(i, 1) + 1000 & "] Union All " & StrSQL
        Else
            StrSQL = "Select Sum([审定(元)]) From [Sheet1$J" & Arr(i, 1) & ":J" & Arr(i + 1, 1) - 2 & "] Union All " & StrSQL
        End If
    Next i
    ActiveWorkbook.Close flase: Application.ScreenUpdating = True
    Set Cn = CreateObject("Adodb.Connection")
    Cn.Open "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & ThisWorkbook.Path & "\工作簿1.xlsx"
    Range("C3").CopyFromRecordset Cn.Execute(Left(StrSQL, Len(StrSQL) - 11))
End Sub