- 帖子
- 9
- 主題
- 2
- 精華
- 0
- 積分
- 11
- 點名
- 0
- 作業系統
- win xp
- 軟體版本
- Office 2003
- 閱讀權限
- 10
- 性別
- 男
- 來自
- 台中
- 註冊時間
- 2010-8-5
- 最後登錄
- 2010-8-12
|
同樣巨集另一檔案卻執行錯誤
本帖最後由 ycchenzd 於 2010-8-5 22:02 編輯
小弟之前在舊論壇發問的 一個問題
http://gb.twbts.com/index.php?topic=12801.0
sheet1內容不固定,但會依此排序
sheet2內容固定,比對sheet1後,將符合的列複製於sheet3
sheet3為結果
使用下列程式碼
Sub nn()
Dim Rng As Range, A As Range, Cell As Range
With Sheet2
Set Rng = .Range(.[A1], .[A65536].End(xlUp))
End With
With Sheet1
For Each A In .Range(.[D1], .[D65536].End(xlUp))
If Not Rng.Find(A, lookat:=xlWhole) Is Nothing Then
If Cell Is Nothing Then Set Cell = A Else Set Cell = Union(Cell, A)
End If
Next
End With
Sheet3.Cells = ""
Cell.EntireRow.Copy Sheet3.[A1]
End Sub
但是在原本檔案執行ok,
要在另一個以資料庫抓取後的資料檔執行時卻會在Cell.EntireRow.Copy Sheet3.[A1] 出現錯誤
類似Class copy 的方法錯誤,
但是執行後的資料是正確的
不知問題出在哪裡,資料內容是一樣的啊
懇請解答
會是跟欄位格式有關嗎?
已補上檔案 |
-
-
book1.zip
(52.51 KB)
|
發表於 2010-8-5 13:09
| 
