将选择范围扩展到最后使用的列vba

Question

代码：

Sub MyColumnSelect()
Dim myCurrentRow As Long
Dim myLastColumn As Long
myCurrentRow = ActiveCell.Row
myLastColumn = ActiveCell.SpecialCells(xlLastCell).Column
Range(ActiveCell, Cells(myCurrentRow, myLastColumn)).Select
End Sub

我需要将选择范围从任何列或任何行扩展到工作表中最后使用的列。 此代码将选择范围扩展到特定列，在我的情况下扩展到column P 我不知道为什么会这样，但是即使只有4列，它仍然会将选择范围扩展到column P 。

图片 ：

PS：我知道我不应该使用select ，但是即使使用select也无法使它正常工作。 需要帮忙。

Answer 1

一点点谷歌搜索肯定会给出答案。 这是检索最后一个活跃使用的行的最常用方法

Shets("Sheetname").Cells(Rows.Count, <inColumn>).End(xlUp).Row

和列

Shets("Sheetname").Cells(<inRow>, Columns.Count).End(xlToLeft).Column

在您的情况下，假设您的工作表名为“ Sheet1 ”，则它将为：

Dim lr as Long
Dim lc as Long
lr = Sheets("Sheet1").Cells(Rows.Count, 2).End(xlUp).Row
lc = Sheets("Sheet1").Cells(4, Columns.Count).End(xlToLeft).Column

显然，如果您的列范围有所不同，则应以循环方式检索它们（例如，循环遍历所有活动行）

For i = 3 to lr
   lc = Sheets("Sheet1").Cells(i, Columns.Count).End(xlToLeft).Column
   ' do something
Next i

另外，请绝对阅读为什么不应该使用Select ， ActiveSheet等。

Answer 2

尝试这个：

Sub MyColumnSelect()

Dim myRow, myLastColumn As Long

 For myRow = 3 To ActiveSheet.Cells(Rows.Count, 2).End(xlUp).Row

  myLastColumn = ActiveSheet.Cells(myRow, Columns.Count).End(xlToLeft).Column

  ActiveSheet.Range(Cells(myRow, 1), Cells(myRow, myLastColumn)).Copy

 Next

End Sub

Answer 3

Ron de Bruin-查找最后一行，最后一列或最后一个单元格，向您展示如何查找最后使用的列。

Sub MyColumnSelect()
    Dim myCurrentRow As Long
    Dim myLastColumn As Long
    myCurrentRow = ActiveCell.Row
    myLastColumn = Cells.Find(What:="*", After:=Cells(1, 1), _
                        Lookat:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByColumns, _
                        SearchDirection:=xlPrevious, MatchCase:=False).Column

    Range(ActiveCell, Cells(myCurrentRow, myLastColumn)).Select
End Sub

这也有效。 但是请注意， UsedRange有时可能会超出数据范围而扩展为非连续格式。

  Intersect(ActiveCell.EntireRow, ActiveSheet.UsedRange).Select 

附录

正如@Rawrplus指出，使用ActiveCell和Selection是不良习惯，应避免使用。 观看： Excel VBA简介第5部分-选择单元格（范围，单元格，活动单元格，结束，偏移）