Если значение столбца A находится в пределах диапазона столбцов B и C, скопируйте

Question

в этом проекте я должен проверить значение столбца A между столбцом B и столбцом C. Если значения columnA> = значение Columns B или значение Columns A <= значение Columns C, тогда мне нужно скопировать значения столбца d и e ивставьте в лист1 столбец G и H. столбец A находится в листе 1, а столбец B, C, D и E - в листе 2. </p>

Прошу прощения за свои формулировки, я знаю, что их трудно понять.Если кто-то может помочь мне с этим, я был бы всегда благодарен.Спасибо

             A       B    c   D     E
             1       1    9   Dog   Naruto
             11      10   19  Cat   one piece
             21      20   30  Duck  lo 



          i want the outcome like this
           A    G       H
           1    Dog     Naruto   
           11   cat     One piece
           21    duck     lo

Answer 1

это код, который у меня есть, но этот код предназначен для проверки, если значения столбца A = значения столбца G, тогда он возвращает всю строку

              Dim sht1 As Worksheet, sht2 As Worksheet

            Set sht1 = Worksheets("sheet1")
           Set sht2 = Worksheets("sheet2")

             sht1= Worksheets("sheet1").Range("G" & Rows.Count).End(xlUp).Row
             sht2= Worksheets("sheet2").Range("A" & Rows.Count).End(xlUp).Row

           For j = 1 To sht1

                   For i = 1 To sht2

        If sht1.Cells(j, 7).Value = sht2.Cells(i, 1).Value Then
            sht1.Cells(j, 11).Resize(1, 2).Value = _
                          sht2.Cells(i, 1).Resize(1, 2).Value


        Else

        End If

    Next i

Next j

End With

Answer 2

См. Код ниже (не проверено).

Sub ColumnCheck()

Dim i As Long
Dim lRow As Long
Dim colA As Double, colB As Double, colC As Double

'assuming both sheets have the same amount of data rows
lRow = Sheets("Sheet1").Range("A" & Sheets("Sheet1").Rows.Count).End(xlUp).Row

'now loop
For i = 2 To lRow
    colA = Sheets("Sheet1").Range("A" & i).Value
    colB = Sheets("Sheet2").Range("B" & i).Value
    colC = Sheets("Sheet2").Range("C" & i).Value

    If colA >= colB Or colA <= colC Then
        'if true - set values
        Sheets("Sheet1").Range("G" & i).Value = Sheets("Sheet2").Range("D" & i).Value
        Sheets("Sheet1").Range("H" & i).Value = Sheets("Sheet2").Range("E" & i).Value
    End If
Next i

End Sub

Answer 3

Просто сделайте if в каждом из столбцов G и H.

В G1:

=IF(AND(A1<=C1,A1>=B1),D1,"")

А в H1:

=IF(AND(A1<=C1,A1>=B1),E1,"")

Или в H1 просто проверьте, есть ли значение в G1 как:

=IF(G1<>"",E1,"")