VBA：如何查找对应列的数据

lijian8003

用宏代码，如何查找对应列的数据，例如：
Sheet1.A1 对应 Sheet2.F1，则将Sheet2 F2、F3、F4...数据，写入Sheet1 A2、A3、A4...
Sheet1.B1 对应 Sheet2.E1，则将Sheet2 E2、E3、E4...数据，写入Sheet1 B2、B3、B4...
......

excel玉米

用数组可以

清风竹-

请看附件。

Hontyu

Sub test_Sql()  '//2022/10/1
    Dim Cnn, Rs, StrPath$, StrC$, StrSQL$, i&
    Set Cnn = CreateObject("adodb.connection")
    StrPath = ThisWorkbook.FullName
    If Application.Version < 12 Then
        StrC = "Provider=Microsoft.jet.OLEDB.4.0;Extended Properties=Excel 8.0;Data Source=" & StrPath
    Else
        StrC = "Provider=Microsoft.ACE.OLEDB.12.0;Extended Properties=Excel 12.0;Data Source=" & StrPath
    End If
    Cnn.Open StrC
    ar = Sheet1.[A1].CurrentRegion.Rows(1)
    ar = Application.Transpose(Application.Transpose(ar))
    For i = 1 To UBound(ar)
        S = S & ",[" & ar(i) & "] "
    Next i
    S = Mid(S, 2, Len(S) - 1)
    StrSQL = "select " & S & "from [" & Sheet2.Name & "$]"
    Set Rs = Cnn.Execute(StrSQL)
    With Sheet1
        .[A1].CurrentRegion.Offset(1).Clear
        .[A2].CopyFromRecordset Rs
        With .[A1].CurrentRegion
             .Borders.LineStyle = 1
            .Font.Size = 11
        End With
    End With
    Cnn.Close
    Set Cnn = Nothing
    MsgBox "OK!"
End Sub

gwjkkkkk

请楼主参考 。。。

cai2532

查询方法值得学习。