如何在excel vba中选择全范围

Question

当我调试excel-vba程序时，我发现我的数据范围没有完全被选中。

下图显示了我的数据模型和问题。

我使用此代码选择整个范围。但这不能正常工作。

Dim rngTemp As Range
Set rngTemp = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious)
With rngTemp

请通过提供选择整个范围的代码帮助我，如上图所示。

Answer 1

在您的代码中，您正在var connect = require('connect'), serveStatic = require('serve-static'), stylus = require('stylus'); var app = connect(); app.use(stylus.middleware({ src : __dirname + '/app/css', dest : __dirname + '/app/css', force : true, compile : function(str, path) { return stylus(str, path) .set('tcp', path) .set('warn', true) .set('compress', true); } })); app.use(serveStatic("app")); app.listen(5000, function () {console.log("HI", __dirname);}); 进行搜索。因此，您将获得具有xlByRows数据的最后一个单元格的地址。

继续我的评论，这是你正在尝试的吗？

G7

Answer 2

请注意以下方法在某些情况下是不可靠的。我将在此留下这些答案作为一个不好的例子。详细信息请参阅@SiddharthRout在此LINK

的解释

我会使用以下代码来查找已使用的范围，而不是寻找＆＃34; *＆＃34;在单元格值中：

Sub SelectRange()
    Dim LastRow As Long
    Dim LastColumn As Long
    Dim aWB As Workbook
    Dim aWS As Worksheet

    Set aWB = ActiveWorkbook
    Set aWS = aWB.ActiveSheet '<-You can change sheet name like aWB.sheets("SheetName")

    With aWS.UsedRange
        LastRow = .Rows(.Rows.Count).Row
        LastColumn = .Columns(.Columns.Count).Column
    End With

    aWS.Range(Cells(1, 1), Cells(LastRow, LastColumn)).Select '<---Cells(1, 1) is the starting cell of range)

End Sub