Question : excel vba get a range of full rows or columns
Answered by : daniel-ferry
'To get a contiguous range of entire rows, use this VBA function:
Function WSRows(ws As Worksheet, Row1&, Rows&) Set WSRows = ws.Rows(Row1).Resize(Rows)
End Function
'-----------------------------------------------------------------
MsgBox WSRows(Sheet1, 11, 9).Address '<--displays: $11:$20
'To get the values in the range into a variant array:
v = WSRows(Sheet1, 11, 9)
'-----------------------------------------------------------------
'Sister function to a get range of contiguous full columns:
Function WSCols(ws As Worksheet, Col1&, Cols&) Set WSCols = ws.Columns(Col1).Resize(, Cols)
End Function
Source : http://academy.excelhero.com/ | Last Update : Thu, 09 Apr 20
Question : excel vba get a range of full rows
Answered by : daniel-ferry
To get a contiguous range of entire rows, use this VBA function:
Function WSRows(ws As Worksheet, Row1&, Rows&) Set WSRows = ws.Rows(Row1).Resize(Rows)
End Function
'-----------------------------------------------------------------
MsgBox WSRows(Sheet1, 11, 9).Address '<--displays: $11:$20
'To get the values in the range into a variant array:
v = WSRows(Sheet1, 11, 9)
'-----------------------------------------------------------------
'Sister function to a get range of contiguous full columns:
Function WSCols(ws As Worksheet, Col1&, Cols&) Set WSCols = ws.Columns(Col1).Resize(, Cols)
End Function
Source : http://academy.excelhero.com/ | Last Update : Thu, 09 Apr 20