Excel 将其他工作簿中的单元格值指定给我的代码

基本上，我想要实现的是将其他工作簿中的单元格值分配到我的代码中。

• 客户发送他们想要订购的商品的电子表格，该电子表格用于多种用途，因此它有许多栏，我不需要这些栏
• 所以我创建了宏来查找并给出特定列的值，然后输出一个CSV文件
• 然后我创建了一个我自己的电子表格，列值都被映射出来了，我试图获得代码来查找电子表格中的单元格值，并知道要在客户电子表格中查找哪些列
• 我想要它，这样我就可以直接进去，更改屏幕上单元格中的值 我的电子表格，而不是必须进入编码和更改 我的代码中的列值

一些建议

要在workbook1上引用workbook2中的值，最简单的方法是将工作表从workbook2复制到workbook1。然后，您可以通过在单元格中键入“=”并单击要引用的单元格来引用该值

VBA代码中的引用为您提供了更多的灵活性。我建议你检查一下，了解更多信息。这可能更符合您的需求

---

不幸的是，如果您在workbook1上引用workbook2的值，则没有简单的方法从workbook1更改workbook2的值。

您的问题是什么？或者什么不起作用？所以在代码中，它指向列Q，G，H，I，J。我想更改它，以便它在另一个工作簿中查找一个值。我的工作表可以说，工作表（2）范围（“H5”）中有值Q，我需要我的代码，因此ShipToSiteID指向该单元格并使用该单元格的值。因此，如果列参数每次都更改，我可以进入我的工作表进行更改，而不是进行编码和更改。

ShipToSiteID = Application.WorksheetFunction.Trim(Range("Q" & counter))
AltShipTo1 = Application.WorksheetFunction.Trim(Range("G" & counter))
AltShipTo2 = Application.WorksheetFunction.Trim(Range("H" & counter))
AltShipToCity = Application.WorksheetFunction.Trim(Range("I" & counter))
'AltShipToState = Application.WorksheetFunction.Trim(Range("I" & counter))
 AltShipToZip = Application.WorksheetFunction.Trim(Range("J" & counter))
AltShipToCountry = "UNITED KINGDOM"
RefNumber = counter - 1
    UserId = LCase(Environ("username"))

ShipToSiteID = Replace(ShipToSiteID + AltShipToZip, " ", "")

Sheets(2).Select

    Range("A" & counter - 1) = LineType & comma & RefNumber & comma & QName & comma & BlanketID _
                                        & comma & BillToSiteID & comma & ShipToSiteID & comma & ContractID _
                                        & comma & PONumber & comma & CaseID & comma & ShipVia & comma & RequiredDate _
                                        & comma & Comments & comma & Priority & comma & TerminalID & comma _
                                        & AltContactFirst & comma & AltContactLast & comma & AltPhone & comma _
                                        & AltShipTo1 & comma & AltShipTo2 & comma & AltShipToCity & comma _
                                        & AltShipToState & comma & AltShipToZip & comma & AltShipToCountry _
                                        & comma & UserId & comma