从当前选择返回行号（Excel VBA）答案

【问题标题】：Return Row Number from Current Selection (Excel VBA)从当前选择返回行号（Excel VBA）
【发布时间】：2018-09-24 10:39:31
【问题描述】：

我正在尝试处理从快速手册中转储的 excel 数据。为了做我想做的事，我需要在 A 列中使用第一个非空白行，这取决于快速手册中报告的时间段。

我正在使用

Sub Test()
Selection.End(xlDown).Select

在 A 列中查找第一个非空白行。

例如，我有两个文件，其中 A 列中的第一个非空白单元格是 A157。 Selection.End(xlDown).Select 选择 A157。然后我需要选择 C1:C157。

另一个电子表格在 A122 的 A 列中具有第一个非空白单元格。 Selection.End(xlDown).Select 选择 A122。然后我需要选择 C1:C122。使用 xlDown 找到的 A 列中的行是一个变量，然后我需要使用它在 C 列中创建选择。

非常感谢任何帮助。谢谢！

【问题讨论】：

例如，我有两个文件，其中 A 列中包含信息的第一行是 A157。 Selection.End(xlDown).Select 选择 A157。然后我需要选择 C1:C157。另一个电子表格在 A122 的 A 列中具有第一行信息。 Selection.End(xlDown).Select 选择 A122。然后我需要选择 C1:C122。使用 xlDown 找到的 A 列中的行是一个变量，然后我需要使用它在 C 列中创建一个选择。这说明清楚了吗？
感谢您的澄清。请查看我在下面发布的代码示例，这应该会有所帮助。我不确定您对 VB 是否满意，如果您需要更多帮助或说明，请告诉我。
老实说，对 VBA 不是很有信心。我所知道的 99% 都来自这里。我会处理您发布的内容并让您知道是否有问题，但我可能要到下周才能深入了解。谢谢！

标签： vba excel

【解决方案1】：

要获取工作表中的最后一行/列，请尝试：

    Dim ws As Worksheet
    set ws = ActiveSheet
    With ws
        lastRow = ws.Cells.SpecialCells(xlCellTypeLastCell).Row
        lastCol = ws.Cells.SpecialCells(xlCellTypeLastCell).Column
    End With

要获取范围内的最后一行/列，请尝试：

    Dim rg as Range
    With ws
         Set rg = .Range(.Cells(1, 3), .Cells(999, 3))
         With rg
             lastRow = .Cells.SpecialCells(xlCellTypeLastCell).Row
             lastCol = .Cells.SpecialCells(xlCellTypeLastCell).Column
         End With
    End With

为您的最后一行/列设置新范围尝试：

    With ws
         Set rg = .Range(.Cells(firstRow, firstCol), .Cells(lastRow, lastCol))
    End With

如果您有超过 1 个工作表，您可以像这样指定多个工作表：

    Dim ws(3) As Worksheet
    set ws(0) = Worksheets("SheetName1");
    set ws(1) = Worksheets("SheetName2");
    'etc.

【讨论】：

【解决方案2】：

试试，

dim rng as range
set rng = range(cells(1, "C"), cells(activecell.end(xldown).row, "C"))
rng.select

【讨论】：