在其他列中选择从活动单元格到指定单元格的数据范围

Question

如何选择一个范围，该范围包含从活动单元格（或行）下方的行到另一列中指定单元格的数据？

例如，如果选择了第7行（或单元格A7），我想选择从A8到BA200的所有单元格（或行）。

Answer 1

宏将始终在Activecell下选择200行，并在整个范围内选择52列

您显然可以更改参数（即200,52）

Sub Picker()
 Range(ActiveCell.Offset(200 - ActiveCell.Row, 0), ActiveCell.Offset(1, 52)).Select
End Sub

Answer 2

如果它们包含数据（或所需的任何其他条件），则此代码将选择相对于起始单元格在指定范围内的所有单元格。

Private Sub selectRangeWithData()

Dim startCell As Range
Dim dataRange As Range
Dim rowSpan As Integer, colSpan As Integer

Set startCell = Range("A7")
rowSpan = 200
colSpan = 52

'initialize the first cell of the selected range
Set dataRange = Range(startCell.Offset(1, 0).Address)

'loop through the supplied range and determine if data exists
For Each cell In Range(startCell.Offset(1, 0), startCell.Offset(rowSpan, colSpan)).Cells
    If cell <> "" Then
        'if so, add it to the range
        Set dataRange = Union(dataRange, Range(cell.Address))
    End If
Next cell
'finally, select the range of cells
dataRange.Select

End Sub