这个vba要怎么写

发布网友发布时间：2022-04-25 21:41

共1个回答

热心网友时间：2022-06-17 18:34

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Cells(6, 18) = Application.WorksheetFunction.Sum(Range(range("g5"),range("g5").end(xldown)))
end sub

表示从G5 到本列最后一格不为空的区域追问我这样写为什么不行
set i =Range("b65536").End(xlUp).Row,

Cells(6, 18) = Application.WorksheetFunction.Sum(Range("g5:g&"i""))
或Cells(6, 18) = Application.WorksheetFunction.Sum（cells(5,7),cells(i,7)

追答Cells(6, 18) = Application.WorksheetFunction.Sum(Range("g5:g&"i""))

改
Cells(6, 18) = Application.WorksheetFunction.Sum(Range("g5:g" & i))

Cells(6, 18) = Application.WorksheetFunction.Sum（cells(5,7),cells(i,7)

改
Cells(6, 18) = Application.WorksheetFunction.Sum（range(cells(5,7),cells(i,7)))

简单的说就是，你写的不规范