[已解决]请教一下，如何用VBA代替公式

TCY

请看附件，谢谢

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2011-4-6 14:14

回复 TCY 的帖子

1. Sub 计算()
   
2. For I = 2 To [B65536].End(xlUp).Row
   
3. If Cells(I, 2) = "" Then
   
4. Cells(I, 3) = ""
   
5. Else:
   
6. Cells(I, 3) = Cells(I, 1) * Cells(I, 2)
   
7. End If
   
8. Next
   
9. End Sub

复制代码

跳转到最佳答案楼层

sunjing-zxl

回复 TCY 的帖子

1. Sub 计算()
   
2. For I = 2 To [B65536].End(xlUp).Row
   
3. If Cells(I, 2) = "" Then
   
4. Cells(I, 3) = ""
   
5. Else:
   
6. Cells(I, 3) = Cells(I, 1) * Cells(I, 2)
   
7. End If
   
8. Next
   
9. End Sub

复制代码

sunjing-zxl

回复 TCY 的帖子

再传个附件给你： 问题.rar (10.75 KB, 下载次数: 11)

2011-4-6 14:15 上传

点击文件名下载附件