Warning: file_get_contents(/data/phpspider/zhask/data//catemap/0/vba/16.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Excel 如何从特定范围内的列中获取最后一行_Excel_Vba - Fatal编程技术网

Excel 如何从特定范围内的列中获取最后一行

Excel 如何从特定范围内的列中获取最后一行,excel,vba,Excel,Vba,我有一些代码可以打开excel电子表格并获取该列中的最后一个空行。我遇到的问题是,我在excel电子表格中创建了两个表。我只希望能够为B列选择B7:B94的范围,因为我有表示从B:101开始的另一个表的数据 这是我到目前为止的代码 Const xlUp = -4162 Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = False Set xlWB = .Workbooks.Open("M:\S

我有一些代码可以打开excel电子表格并获取该列中的最后一个空行。我遇到的问题是,我在excel电子表格中创建了两个表。我只希望能够为B列选择B7:B94的范围,因为我有表示从B:101开始的另一个表的数据 这是我到目前为止的代码

Const xlUp = -4162

Set xlApp = CreateObject("Excel.Application")
With xlApp
    .Visible = False
    Set xlWB = .Workbooks.Open("M:\Shared Documents\Job Cost Analysis\Hi-Tech BPO\Logs\" & currentMonth & "-Summary Hi Tech BPO.xlsx", , False)
    Set ws = .Worksheets(sheetName) 

Dim LR
 '''''''''''Here is where I want to select the range of B7:B94''''''''''''''
LR = .Range("B" & .Rows.count).End(xlUp).Row
.Range("B" & LR + 1).Value = RIGHT(client_id,LEN(client_id)-7) 

End With

xlApp.DisplayAlerts = False
xlWB.SaveAs ("M:\Shared Documents\Job Cost Analysis\Hi-Tech BPO\Logs\" & currentMonth & "-Summary Hi Tech BPO.xlsx")
xlWB.Close
xlApp.Quit
怎么样

.Range("B7").End(xlDown).Offset(1,0).Row

对于非结构化数据块

LR = .Range("B100").End(xlUp).Row
对于true(aka)表

后者假设表未“满”。应进行检查以确保LR不是7。

这些是实际的ListObject(又名结构化)表还是数据块?以及
LR=.Range(“B101”).End(xlUp)。行
不起作用?
LR = .Range("B100").End(xlUp).End(xlUp).Row