如图有A、B两列数据(原数据几千行),需要统计A列各名称对应B列的和,可A列名称与B列数据错位1行,而且A列只有一个名称,1. 请教求和公式2. 或者请教VBA详细代码:将A列中A2:A5000的空白单元格自动填充上一个单元格内容,例如空白A3自动填充A2单元格的内容,空白A4自动填充A3单元格内容……
'自定义公式-按ALT+F11-插入模块-粘贴代码-将表格另存为启用宏的格式
Function 统计(a As Range, d As String)
lastrow = Range("a65536").End(xlUp).Row
Set b = Range("a2:a" & lastrow).Find(d)
If Range("b" & b.Row + 2) = "" Then
c = b.Row + 1
Else
c = Range("b" & b.Row + 1).End(xlDown).Row
End If
统计 = Application.Sum(Range("b" & b.Row + 1 & ":b" & c))
End Function
原数据表中实际名称在A列,需要统计的数据在I列,请问宏代码该如何修改?注:我在L2:L3000中的单元格中输入了以下数组公式=IF(INDEX(A:A,SMALL(IF(A$1:A$5000"",ROW($1:$5000),4^8),ROW(1:1)))=0,"",INDEX(A:A,SMALL(IF(A$1:A$5000"",ROW($1:$5000),4^8),ROW(1:1))))