Excel vba 比對資料問題：

以下是Sheet 1 的資料


在Sheet 1 工作表中有這幾欄資料 ..

訪客只能看到部份內容，免費 加入會員 或由臉書 Google 可以看到全部內容

下面是引用dreamhill於2008-10-11 00:56發表的 Excel vba 比對資料後列出所需資料:
Excel vba 比對資料問題：

以下是Sheet 1 的資料
[attachment=436938]

在Sheet 1 工作表中有這幾欄資料，
我想把有完工日期及未交單的資料在sheet2顯示出來。

以下是sheet 2 的格式：
[attachment=436939]

若果完工日期為 Cancelled 就在 Cancelled欄上填上1
其它資料則對號入座。

請各位大大指點一下, 感恩！

程式碼大致是如此
請自行修改
並加入其他的判斷
與帶出其他資料

Dim i As Integer
i = 0
Do
    i = i + 1
    If Sheet1.Cells(i, 6) = "" Then
        Sheet2.Cells(i, 1) = Sheet1.Cells(i, 1)
        Sheet2.Cells(i, 2) = Sheet1.Cells(i, 2)
        Exit Do
    End If
Loop