在EXCEL中如何用VB控制单元格下移,并能判断当条件满足时相加

显示全部楼层 · 2009-8-4 10:18:29

代码简单的。不过除了用代码以外，还有不用代码的方法啊。Sub ThanksMEApplication.ScreenUpdating = false
Range("D48").select
While Selection""
if(Selection0)Then
Selection = Selecton + Selection.offset(0,1)
end if
Selection.offset(1).select
WendApplication.ScreenUpdating = trueEnd Sub 你试试在 E48 单元中输入：=IF(D480,D48+E48,D48)然后，再用自动填充功能就可以把值算出来了。最后，把 E:E 复制下来，到 D:D 处“选择性粘贴”选值粘贴。不就OK了嘛。要VB干嘛。

千问 · 2009-8-4 10:18:29

for R = 1 to 100
if cells(R ,6)0then cells(R ,4) + cells(R ,6)next R