Office中国论坛/Access中国论坛

标题: 跪求帮忙 [打印本页]

作者: bubu29 时间: 2007-2-8 03:44
标题: 跪求帮忙
各位高手，我今晚要做完一件事，其中用到一小部分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 时间: 2007-2-8 06:09
[em11][em11][em11]

作者: zdbxq 时间: 2007-3-11 01:02
在C2填入公式 =IF(A2="",B2,A2)，然后往下填充，再将C列复制到A列即可

作者: z2117s 时间: 2007-3-14 17:26
同意楼上兄弟的办法,效果一样

bubu29,错误就一个:

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

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

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)