汇总求和不对

张劲松2024

多谢各位的提醒，自己已经解决，就是笨了点，列赋值给数组，数组重新赋值给列。

张劲松2024

uprow = Range("n65536").End(xlUp).Row                                                                           'd列从下往上第一非零单元格的行号
     arr = (Range("n1:n" & uprow).Value)                                                                             'd列赋值给数组arr
     ReDim brr(1 To uprow, 1)                                                                                        '重组定义brr
     i = i + 1
     For i = 1 To uprow
       brr(i, 1) = Val(arr(i, 1))                                                                                     '数组arr的有效值赋值给数组brr
     Next
       For i = 3 To uprow
          Range("n" & i) = brr(i, 1)                                                                                  '数组brr的有效值赋值给b列（均为数字）
       Next