如果跨工作簿匹配，複製行的部分

Question

我有兩個文件可以使用。一個是要更新的文件，另一個包含新的數據。

這兩個文件都包含材料編號和關於這種材料（數量等）的信息，所以我想要將所有新值（它們是同一行的一部分）複製到另一個文件中該行的正確位置。

我設法讓除NVOOKUP以外的所有東西都能正常工作（應該需要..）。

有人嗎？ :)

'################################################################################################ 
'################################################################################################ 
'######### fnopen(): Opens a FileDialog, allowing the user to choose the GLA File. ######### 
'#########    Returns directory/filename of selected as String    ######### 
'################################################################################################ 
'################################################################################################ 

Function fnopen() As String 

    Dim strFileToOpen As String 

    strFileToOpen = Application.GetOpenFilename _ 
     (Title:="Please choose GLA501 to open") 
     '# Change name of FileDialog (is being displayed) 
    Workbooks.Open filename:=strFileToOpen 
    '# Open Workbook 
    fnopen = strFileToOpen 
    MsgBox fnopen & "  1" 
    MsgBox strFileToOpen & "  2" 

End Function 

'################################################################################################ 
'################################################################################################ 

'################################################################################################ 
'######### MakeRow(): Creates String of Cell out of row and String      ######### 
'################################################################################################ 

Function MakeRow(rowno As Integer, col As String) As String 

    MakeRow = col & CStr(rowno) 

End Function 

'################################################################################################ 
'######### getmat(): Requires row no. and returns material no.      ######### 
'################################################################################################ 

Function getmat(rowno As Integer, col As String) As String 

    getmat = Range(MakeRow(rowno, col)).Value 

End Function 

'################################################################################################ 
'################################################################################################ 

Function fcat(gla_path As String, gla_name As String, lastrow As Integer) As Integer 

    Dim srchRange As Range, found_in_location As Range, lookFor As Range 
    Dim rowno As Integer, counter As Integer 
    Dim col As String 

    rowno = 16 
    col = "F" 

    counter = 0 

    Dim book1 As Workbook 
    Dim book2 As Workbook 

    Set book1 = ThisWorkbook 
    Set book2 = Workbooks(gla_name) 

    Set lookFor = book2.Sheets(1).Cells(rowno, 6) ' value to find 
    Set srchRange = book1.Sheets(2).Range(MakeRow(rowno, col), MakeRow(lastrow, col)) 'source 

    Set found_in_location = srchRange.Columns(1).Find(What:=lookFor, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) 
    If Not found_in_location Is Nothing Then 
     found_in_location.Offset(0, 85).Value = lookFor.Offset(0, 79) 
    Else 
     counter = counter + 1 
    End If 

    fcat = counter 

End Function 

'################################################################################################ 
'################################################################################################ 

Sub annualazy() 

    Dim gla_path As String, gla_name As String, col As String, rowno As Integer, counter As Integer, lastrow As Integer 

    MsgBox ("This VBA updates 'DC_Annual_Planning' by copying values from '4510_GLA501_DC'. Make sure to select the correct files!") 
    gla_path = fnopen() 
    gla_name = Right(gla_path, Len(gla_path) - InStrRev(gla_path, "\")) 

    rowno = 16 
    col = "F" 

    lastrow = Cells.Find("*", SearchOrder:=xlByRows, SearchDirection:=xlPrevious).row 
    MsgBox lastrow 

    MsgBox gla_name 
    MsgBox getmat(rowno, col) 
    MsgBox fcat(gla_path, gla_name, lastrow) 

End Sub 

Answer 1

難道是您找不到的值找不到，這是什麼造成了您的問題？

無論如何，當在VBA中工作時，我更喜歡使用Find而不是VLOOKUP。雖然它佔用比VLOOKUP直插略偏空

Dim found_in_location As Range 
Set found_in_location = srchRange.Columns(1).Find(What:=lookFor, LookIn:=xlValues, LookAt:=xlWhole, MatchCase:=False) 
If Not found_in_location Is Nothing Then 
    lookFor.Offset(0, 79).Value = found_in_location.Offset(0, 2) 
Else 
    ' What will you do if the value is not found? 
End If 

，那就是：在沒有仔細檢查你的代碼的其餘部分，假設你有一個是lookFor.Offset(0, 79).Value = Application.VLookup(lookFor, srchRange, 2, False)問題行了，你可以用類似的東西代替它更容易閱讀和調試。