[已解决]据另列单元格内容有无计算是加1还是减1

小雨饰品

请教大师们：

就是当E列（如E4）单元格有内容，则用I列(I4)数值加上1，结果在同行的J列（如J4）显示；当F列（如F4）单元格有内容，则用I列(I4)数值减云1，结果在同行的J列（如J4）显示。
谢谢！

最佳答案

月排行榜 / 总排行榜

yyyydddd8888

2013-10-25 13:51

如果要用VBA实现，可以试试下面的代码：
附件如下：
1.zip (8.48 KB, 下载次数: 5)

2013-10-25 13:52 上传

点击文件名下载附件

1. Sub jisuan()
   
2. Dim i&, j&, k&, arr1, arr2()
   
3. i = Range("i65536").End(3).Row
   
4. arr1 = Range("e4:i" & i)
   
5. For j = 1 To UBound(arr1)
   
6.      If arr1(j, 1) <> "" Then
   
7.         k = arr1(j, 5) + 1
   
8.         Else
   
9.         k = arr1(j, 5)
   
10.      End If
    
11.      If arr1(j, 2) <> "" Then
    
12.         k = k - 1
    
13.      End If
    
14.      ReDim Preserve arr2(1 To j)
    
15.      arr2(j) = k
    
16.      k = 0
    
17. Next j
    
18.      Range("j4").Resize(j - 1) = Application.WorksheetFunction.Transpose(arr2)
    
19.      
    
20. End Sub
    

复制代码

跳转到最佳答案楼层

sliang28

J4输入下面公式即可

1. =IF(E4<>"",1,0)+IF(F4<>"",-1,0)+I4

复制代码

yyyydddd8888

如果用函数就可以用二楼的方法！应该可以达到你要的结果！

liyh67

1. =(E4<>"")-(F4<>"")+I4

复制代码

yyyydddd8888

如果要用VBA实现，可以试试下面的代码：
附件如下：
1.zip (8.48 KB, 下载次数: 5)

2013-10-25 13:52 上传

点击文件名下载附件

1. Sub jisuan()
   
2. Dim i&, j&, k&, arr1, arr2()
   
3. i = Range("i65536").End(3).Row
   
4. arr1 = Range("e4:i" & i)
   
5. For j = 1 To UBound(arr1)
   
6.      If arr1(j, 1) <> "" Then
   
7.         k = arr1(j, 5) + 1
   
8.         Else
   
9.         k = arr1(j, 5)
   
10.      End If
    
11.      If arr1(j, 2) <> "" Then
    
12.         k = k - 1
    
13.      End If
    
14.      ReDim Preserve arr2(1 To j)
    
15.      arr2(j) = k
    
16.      k = 0
    
17. Next j
    
18.      Range("j4").Resize(j - 1) = Application.WorksheetFunction.Transpose(arr2)
    
19.      
    
20. End Sub
    

复制代码

小雨饰品

几位大师的函数都 很好地达到了我的效果，但最佳只能给一个，另外我发到这个版块主要还是想用VBA来解决，所以最佳就给用VBA来解决的了，再次感谢各位朋友的帮助！

小雨饰品

yyyydddd8888 发表于 2013-10-25 13:51
如果要用VBA实现，可以试试下面的代码：
附件如下：

谢谢你的不吝赐教。
是否可帮我同看看这个
http://www.excelpx.com/thread-312039-1-1.html