[已解决]如何使用代码

mmc998 · 发表于 2015-7-25 06:09

本帖最后由 mmc998 于 2015-7-25 21:28 编辑

Book1.rar (583.57 KB, 下载次数: 2)

天天EP · 发表于 2015-7-25 06:22

bh=sum(af:bf)?

mmc998 · 发表于 2015-7-25 06:33

天天EP 发表于 2015-7-25 06:22
bh=sum(af:bf)?

用vba

天天EP · 发表于 2015-7-25 06:42

bh是不是等于sum(af:bf)，你不说清楚，别人不清楚这 BH是哪来的

如是的话，可以循环，可以直接sum

mmc998 · 发表于 2015-7-25 06:58

天天EP 发表于 2015-7-25 06:42
bh是不是等于sum(af:bf)，你不说清楚，别人不清楚这 BH是哪来的

如是的话，可以循环，可以直接sum

里面有公式

天天EP · 发表于 2015-7-25 07:01

Sub t()
Dim arr, brr
Dim i As Integer, j As Integer
arr = Range("C4:ad" & Cells(Rows.Count, 4).End(xlUp).Row)
ReDim brr(1 To UBound(arr) - 1, 1 To 1)
For i = 2 To UBound(arr)
      For j = 1 To UBound(arr, 2)
         If arr(i, j) = 0 Then brr(i - 1, 1) = arr(i - 1, j)
      Next j
Next i
Range("ae5").Resize(UBound(brr), 1) = brr
End Sub

天天EP · 发表于 2015-7-25 07:02

本帖最后由天天EP 于 2015-7-25 07:10 编辑

Book1.rar (591.19 KB, 下载次数: 13)

		自动登录	找回密码
密码			注册