返回列表 上一主題 發帖

請問 關於加總問題

回復 6# register313
  1. Sub xx()
  2.     With Range("b2")
  3.         .End(xlDown).Offset(1) = Application.Sum(Range(.Cells(1), .End(xlDown)))
  4.     End With
  5. End Sub
複製代碼

TOP

        靜思自在 : 地上種了菜,就不易長草;心中有善,就不易生惡。
返回列表 上一主題