运行此代码时,将突出显示指定行
streamsTotal
.
Private Sub totalStreams()
Dim streams As Range, streamsTotal As Range
' Select streams data range
Set streams = Range("H8").End(xlDown)
' reference cell 2 cells below last stream row
Set streamsTotal = streams.Offset(2, 0)
End Sub