Question

解决。我一直在寻找能够让您选择电子表格中最后一列和最后一行的范围的代码。在做了一些挖掘和使用一些逻辑之后，我能够提出一个解决方案。首先，我使用以下内容定义了最后一行：

LR = Range("A" & rows.count).end(xlup).row and then I used the following to define last column 

LC= wcolNm(colNum)

Public function LC= wcolNm(colNum)

ColNum = Cells(1 & columns.count).end(xltoleft).column
wcolumn = split(cells(1, column).address, "$")(1)
End function

结束状态如下：

Range("A" & 1 & ":" & LC & LR).select

我在LC之后插入的。如果这令人困惑，我很抱歉，但我是新编码并且正在寻找这段代码一段时间，所以我觉得发帖会很好。如果需要，我会提供更多细节。

Answer 1

以下是我通常的做法。

Range(Cells(1, Columns.Count), Cells(Rows.Count, 1).End(xlUp)).Select

如果您的数据完全改变，您通常不想使用UsedRange选择单元格的方法。

Answer 2

我相信你可以更轻松地做到这一点。如果您尝试选择整个数据范围（即A1到最后一行和列），您可以使用以下方法：

Dim ws As Worksheet
Set ws = ThisWorkbook.Worksheets(1)
ws.UsedRange.Select

应该选择所有数据。这也是假设您正在使用第一个工作表。

VBA代码，用于选择最后一列和行

2 个答案: