|
失礼いたします。
ADOを使ってこんなコードでも可能ですね^^
Sub ADO_TEST()
Set CN = CreateObject("ADODB.Connection")
CN.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & _
"Data Source=" & ThisWorkbook.FullName & ";" & _
"Extended Properties=""Excel 8.0;HDR=NO;IMEX=1"""
CN.Open
Set RS = CreateObject("ADODB.Recordset")
Set RS = CN.Execute _
("SELECT F1,F2,SUM(F3) FROM [Sheet1$A1:C65536] GROUP BY F1,F2")
Sheets(2).Range("A1").CopyFromRecordset RS
RS.Close
CN.Close
Set RS = Nothing
Set CN = Nothing
End Sub
データのあるシート名が"Sheet1"、出力先が2番目のシートとしています。
EXCELのVersion等によっては動きませんが、接続情報を変えれば動作すると
思います。
参考まで^^
|
|