需要更新另一張紙上的數據EXCEL

Question

我正在寫一個代碼，它必須從sheet3的表格中獲取數據並將數據傳輸到另一張紙上。有了這部分是一切OK。 同樣的點擊，我也希望該程序查看相同形式的數據sheet3，從Item's ID（它在列A中）從每個填充行，然後在sheet1（列C）找到匹配項。然後代碼查找匹配它識別匹配的行，並在單元格中進行減法（列I），即從表格sheet3獲取值。在列4中。然後在sheet1 - >匹配的行 - >列我使用sheet3的值減法 爲了清晰我附加了printscreen。

enter image description here

Option Explicit 

    Sub Button4_Click() 
    Dim x As Long 
    Dim erow As Long 
    Dim y as Long 
    Dim roww as Long 
    Dim matchess as Integer 
    Dim IDitem as Integer 
    Dim myrange as Long 

    'Calculate starting rows 
    x = 15 
    With Worksheets("sheet2") 
     erow = .Cells(.Rows.Count, 1).End(xlUp).Offset(1, 0).Row 
    End With 
    myrange = Worksheets("sheet1").Cells.Range("C:I") 

    With Worksheets("sheet3") 
     Do While .Cells(x, 1) <> "" 

      'The next line copies values to Sheet2 
      Worksheets("sheet2").Range("A" & erow & ":Z" & erow).Value = .Range("A" & x & ":Z" & x).Value 

      'increment row counters 
      x = x + 1 
      erow = erow + 1 
     Loop 
    End With 
    y = 15 
    With Worksheets("sheet1") 
     Do While Worksheets("sheet3").Cells(y, 1) <> "" 
      matchess = Worksheets("sheet3").Cells(y, 1) 
      IDitem = Application.WorksheetFunction.VLookup(matchess, myrange, 4, False) 
      roww = Application.Match(matches, myrange, 0) 
      .cell(roww, 7).Value = .cell(roww, 7).Value - IDitem 
     y = y + 1 
     Loop 
    End With 

End Sub 

我不知道爲什麼，但代碼的第二部分不工作。

附加信息：表3：行從15開始，合併列A和B中的項目ID。合併列「S，T，U」中的金額; sheet1：列C中的項目ID，存儲在列I中;

專家幫我糾正代碼

Answer 1

我已經使用在過去的.Find方法來處理這樣的問題。我在代碼中包含了對循環的解釋，但我很樂意詳細說明您是否需要。

Sub Find_Method() 

    Dim LastRow_1 As Long 
    Dim LastRow_3 As Long 

    Dim Source_Item_ID_Range As Range 
    Dim Search_Item_ID_Range As Range 
    Dim Item_ID_Found_Cell As Range 
    Dim Cell As Range 

    LastRow_1 = Worksheets("Sheet1").Range("C" & Rows.Count).End(xlUp).Row 
    LastRow_3 = Worksheets("Sheet3").Range("A" & Rows.Count).End(xlUp).Row 

    Set Search_Item_ID_Range = Worksheets("Sheet1").Range("C4:C" & LastRow_1) 
    Set Source_Item_ID_Range = Worksheets("Sheet3").Range("A15:A" & LastRow_3) 

    'For each Item ID cell in Sheet3, search for its 
    'string in the Item ID column of Sheet1. If a match 
    'is found, deduct 1 from the Warehouse Stock column 
    'and move on to the next cell. 

    For Each Cell In Source_Item_ID_Range 

     Set Item_ID_Found_Cell = Search_Item_ID_Range.Find(Cell.Value, LookIn:=xlValues) 

     If Not Item_ID_Found_Cell Is Nothing Then 

      Item_ID_Found_Cell.Offset(0, 6).Value = Item_ID_Found_Cell.Offset(0, 6).Value - Cell.Offset(0, 3).Value 

     End If 

    Next Cell 

End Sub