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