返回列表 上一主題 發帖

[發問] 請教如何讓VBA自動比對相同數值後,複製到它處?

diabo

帖子
79 
主題
2 
精華
0 
積分
193 
點名
0  
作業系統
Winwos 7 64 bits 
軟體版本
Excel 2003/2007 
閱讀權限
20 
性別
男 
來自
TAIPEI 
註冊時間
2010-8-25 
最後登錄
2019-9-20 
1# 跳轉到 »
發表於 2012-8-6 00:35 | 顯示全部帖子
回復 3# jonn0510

資料龐大可以考慮 SQL 的做法  
記得
1. 設定引用項目 Microsoft ActiveX Data Objects 2.8 Library
2. Sheet1的B2:H2 空白的補上欄位名稱...
  1. Sub test()

  3. '建立ADODB Connection物件變數
  4. Dim cn As ADODB.Connection
  5. Set cn = New ADODB.Connection

  7. '建立ADODB Recordset物件變數
  8. Dim rs As ADODB.Recordset
  9. Set rs = New ADODB.Recordset
  10.          
  11. '建立資料庫連線
  12. With cn
  13.      .Provider = "MSDASQL"
  14.      .ConnectionString = "Driver={Microsoft Excel Driver (*.xls)};" & _
  15.       "DBQ=" & ThisWorkbook.FullName & ";"
  16.      .Open
  17. End With

  19. 'SQL字串
  20. mySQL = "Select * FROM [Sheet1$B2:H25] WHERE [主]=[副]"
  21.      
  22. '解決無法釋放記憶體的BUG
  23. ThisWorkbook.ChangeFileAccess xlReadOnly
  24. Set rs = cn.Execute(mySQL)
  25. ThisWorkbook.ChangeFileAccess xlReadWrite
  26.          
  27. '將結果COPY到指定位置
  28. Sheets("Sheet1").Range("M12").CopyFromRecordset rs

  30. End Sub
複製代碼
diabo

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題