Question

我已经在网上浏览了一个答案，但是找不到帮助。我想做的是打开一个工作簿，然后将数据从“数据”选项卡（从B2到I2）复制到我的主工作簿的“注册”选项卡下。问题是我需要将数据粘贴到相应的引用上。在我要打开的工作簿中，引用在A2中，在现有工作簿中，它需要查找的引用在A列中。

我设法编写了一个代码，将数据粘贴到引用的行号中，但这不好，因为它必须是要查找并粘贴的列A中的实际值。

任何想法都将不胜感激！

Sub Import()
Dim WB2op As String, CurWB As Workbook, WB2 As Workbook, nextrow As Long
Dim Row As Long
Dim ws As Worksheet
Set ws = Worksheets("Register")
Set CurWB = ThisWorkbook
WB2op = Application.GetOpenFilename _
(Title:="Please choose File", _
FileFilter:="Excel Files *.xlsx* (*.xlsx*),")
If WB2op = "False" Then
    MsgBox "No file selected.", vbExclamation
    Exit Sub
Else
Set WB2 = Workbooks.Open(WB2op)
With Sheets("Data")    'change name to suit
    .Visible = xlSheetVisible
    .Activate
    .Range("A1").Select
End With

If WB2.Sheets("Data").Range("A2") >= 0 Then
Row = WB2.Sheets("Data").Range("A2") + 1
End If

Application.ScreenUpdating = False
ws.Range("N" & Row).Value = WB2.Sheets("Data").Range("B2")
ws.Range("O" & Row).Value = WB2.Sheets("Data").Range("C2")
ws.Range("P" & Row).Value = WB2.Sheets("Data").Range("D2")
ws.Range("Q" & Row).Value = WB2.Sheets("Data").Range("E2")
ws.Range("R" & Row).Value = WB2.Sheets("Data").Range("F2")
ws.Range("S" & Row).Value = WB2.Sheets("Data").Range("G2")
ws.Range("T" & Row).Value = WB2.Sheets("Data").Range("H2")
ws.Range("U" & Row).Value = WB2.Sheets("Data").Range("I2")
Application.CutCopyMode = False
Application.ScreenUpdating = True
End If

WB2.Close False
End Sub

Answer 1

我通过如下添加MATCH选项来管理它：

{"quoteData":{"3DP.AX":

WB2.Close否结束

VBA从一个工作簿复制数据，以供另一工作簿参考

1 个答案: