跪求帮忙

bubu29

各位高手，我今晚要做完一件事，其中用到一小部分Excel。对你们来说，很简单，可我从没编过程，临时看看书，也写不对。清大家帮帮忙。先谢了。

问题是这样的，在Excel中，假设有两列A、B，对每一行，比较A列和B列，如果A列无值，就把B列的值赋给A。行太多了，手动拷贝太累也太笨了，请大家帮帮忙。我顺便也学学。下面是我写的乱七八糟的程序，请指正。

Sub test()

Dim cnt As Integer
    For cnt = 2 To 9000
        If Worksheets("sheet1").Cells(A, cnt).Value = “” Then
            Worksheets("sheet1").Cells(A, cnt).Value = Worksheets("sheet1").Cells(B, cnt).Value
        End If
    Next cnt

End Sub[em04][em04][em04]

bubu29

[em11][em11][em11]

zdbxq

在C2填入公式  =IF(A2="",B2,A2)，然后往下填充，再将C列复制到A列即可

z2117s

同意楼上兄弟的办法,效果一样

bubu29,错误就一个:

Cells(A, cnt)是无法定位的,应该是Cells(1, cnt),Excel中ABCD...分别对应1234...

[此贴子已经被作者于2007-3-14 9:26:11编辑过]