打开时从其他工作簿复制粘贴-然后用于数据验证

Question

我想知道我是否要以正确的方式设置它。

我有一本工作簿，里面有我们使用的设备和每小时的费用。这是最新的文档。

我正在创建一个新工作簿，并试图在我的新工作簿中引用设备工作簿中的信息。

最初，我的想法是通过打开新工作簿来复制所需的信息。

Workbooks("Equipment Costs Current Year RESTRICTED.xlsm").Worksheets("T&M Sheet Import").Range("f:g").Copy
activeWB.Worksheets("Equipment").Range("A1").PasteSpecial xlPasteValues

然后我把它设置为转换为表格

Dim tbOb As ListObject
Dim TblRng As Range
With Sheets("equipment")
lLastRow = .Cells(.Rows.Count, "A").End(xlUp).Row
lLastColumn = .Cells(1, .Columns.Count).End(xlToLeft).Column
Set TblRng = .Range("A1", .Cells(lLastRow, lLastColumn))
Set tbOb = .ListObjects.Add(xlSrcRange, TblRng, , xlYes)
tbOb.Name = "EquipmentTable1"
tbOb.TableStyle = "TableStyleMedium14"
End With

我正在使用名称管理器并使用此：

=OFFSET(Equipment!A$1,0,0,COUNTA(Equipment!A:A)-1)

最后，这里的目标是，我试图在RFCO工作簿中的下拉菜单中使用数据验证来显示当前可用的设备，然后使用vlookup来填写具有当前成本/标记等的相关框。

我遇到了很多问题，我甚至不确定我错在哪里：

• 有时数据看起来像是粘贴的，有时它说下标超出范围
• 在我的数据验证下拉列表中，底部有100个空格

Answer 1

我刚刚尝试添加一行，其中当前表在开头被删除，这似乎解决了问题的第一部分！

Worksheets("Equipment").ListObjects("EquipmentTable1").Delete