get row from range vba code example
Example 1: excel vba get a range of full rows
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
v = WSRows(Sheet1, 11, 9)
Function WSCols(ws As Worksheet, Col1&, Cols&)
Set WSCols = ws.Columns(Col1).Resize(, Cols)
End Function
Example 2: excel vba get a range of full rows or columns
Function WSRows(ws As Worksheet, Row1&, Rows&)
Set WSRows = ws.Rows(Row1).Resize(Rows)
End Function
MsgBox WSRows(Sheet1, 11, 9).Address
v = WSRows(Sheet1, 11, 9)
Function WSCols(ws As Worksheet, Col1&, Cols&)
Set WSCols = ws.Columns(Col1).Resize(, Cols)
End Function