根据填充的单元格数量选择范围

Question

大家好，抱歉，我对 VBA 很陌生。 我希望根据 IB 中的值选择以下范围。 例如，如果有 7 个日期，我想选择从 1 月 22 日到 9 月 23 日。 如果有 5 个成本组成部分，我想从上到下选择。 变量数字可以根据计算而改变。

期望 VBA 考虑变量数字并选择正确的范围

Answer 1

您的屏幕截图没有行标题（索引）。无法知道细胞的位置。请根据需要修改 const。

Option Explicit

Sub Demo()
    Const FIRST_ROW = 10
    Const FIRST_COL = "IB"
    Const DATES_ROW = 5 ' number of dates
    Const CCT_ROW = 6   ' number of CCT
    Dim rData As Range, RowCnt As Long, ColCnt As Long
    RowCnt = Cells(CCT_ROW, FIRST_COL)
    ColCnt = Cells(DATES_ROW, FIRST_COL)
    If ColCnt * RowCnt > 0 Then
        Set rData = Cells(FIRST_ROW, FIRST_COL).Resize(RowCnt, ColCnt)
        rData.Select
    End If
End Sub

顺便说一句，