VBA - 複数の条件に基づいて別のシートのセルをコピーします。

Question

VBAを初めて使用しました。 私は2つのワークシートを持っています。その顧客の住所に基づいて、すべての顧客に営業担当者を割り当てる必要があります。 Sheet1では、Zip（K）、City（I）、Country（L）という3つのデータ列を使用します。 Sheet2には、B列とC列（下位と上位の値）、都市（D）と国（E）の郵便番号の範囲があります。すべての行には、割り当てられた販売担当者の名前があります。

コードの要件： お客様の国が最初の販売先国に一致するかどうかを確認します。 はいの場合、顧客の郵便番号が範囲内にあるかどうかを確認します。 Sheet1に一致する販売担当者名があり、次の行に移動する場合。 Zip範囲が基準としてSheet2に指定されていないか、または顧客のZIPに一致がない場合、Sheet1に一致するコピー販売担当者名があり、次の行に移動する場合は、Cityが一致するかどうかを確認します。 City2に基準として都市が指定されていない場合、または顧客の都市に一致する都市がない場合は、国が一致しているかどうかを確認し、販売員名をSheet1にコピーします。

これがこれまで持っている場合です：

`Sub Territory() 
    Dim i As Integer 
    Dim sh1 As Worksheet, sh2 As Worksheet 
    Dim sh1Rws As Long, sh1Rng As Range, s1 As Range 
    Dim sh2lowRws As Long, sh2lowRng As Range, s2l As Range 
    Dim sh2highRws As Long, sh2highRng As Range, s2h As Range 

    Set sh1 = Sheets("Sheet1") 
    Set sh2 = Sheets("Sheet2") 
    Set i = 1 
    With sh1 
     sh1Rws = .Cells(Rows.Count, "K").End(xlUp).Row 
     Set sh1Rng = .Range(.Cells(1, "K"), .Cells(sh1Rws, "K")) 
    End With 

    With sh2l 
     sh2lowRws = .Cells(Rows.Count, "B").End(xlUp).Row 
     Set sh2lowRng = .Range(.Cells(1, "B"), .Cells(sh2lowRws, "B")) 
    End With 
    With sh2h 
     sh2highRws = .Cells(Rows.Count, "C").End(xlUp).Row 
     Set sh2highRng = .Range(.Cells(1, "C"), .Cells(sh2highRws, "C")) 
    End With 

    For Each s1 In sh1Rng 
     For Each s2l In sh2lowRng 
      If s1 > s2l And s1 < s2h Then sh2lowRws.Copy  Destination:=Sheet.sh1.Range("u", i) 
      End If 
      Set i = i + 1 

    End Sub` 

Answer 1

は、以下のコードを試してみて、それが動作するか、変更がループの両方を閉じて、あなたの取得されていません

Sub test() 
i = Sheets(1).Range("a1048576").End(xlUp).Row 
l = Sheets(2).Range("a1048576").End(xlUp).Row 

    For k = 2 To i 
     For x = 2 To l 
     CityCus = Sheets(1).Range("I" & k).Value 
     CitySales = Sheets(2).Range("D" & x).Value 

     CotyCus = Sheets(1).Range("L" & k).Value 
     CotySales = Sheets(2).Range("E" & x).Value 

     ZipCus = Sheets(1).Range("K" & k).Value 
     ZipUpperSales = Sheets(2).Range("B" & x).Value 
     ZiplowerSales = Sheets(2).Range("C" & x).Value 

     c = Sheets(1).Range("b" & k).Value 
     d = Sheets(2).Range("A" & x).Value 

      If CotyCus = CotySales Then 
       If CityCus = CitySales Then 

        If ZipCus <= ZiplowerSales And ZipCus >= ZipUpperSales Then 

         Sheets(1).Range("b" & k).Value = Sheets(2).Range("A" & x).Value 
        End If 
       End If 
      End If 
     Next 
    Next 
End Sub