Как сравнить значения между строками

Question

Мне нужна помощь здесь. У меня есть таблица, которая содержит более 6 тысяч данных. Мне нужно сравнить значения между " MOVE_IN_QTY " и " MOVE_OUT_QTY " с помощью VBA. Проблема в том, что мне нужно сравнить значение сразу после того, как код изменился с « CV64 » и « TW78 » в столбце кода. Значение, которое я выделил красным, и код, выделенный синим и желтым. Буду признателен за любую помощь. Спасибо.

Answer 1

Здесь делается несколько допущений:

1. Move In & Move Out - это всегда числа.
2. Числа ходов конкурируют с использованием процесса =, <,>.
3. Неизвестно, требуется дальнейшее действие, основанное на результате.

Также полезно включить то, что вы пробовали, а что не работает.

Sub ReviewData()

Dim wkbk As Workbook
Dim xsheet As Worksheet
Dim codeColumn As String, moveIN As String, moveOUT As String
Dim rowCount As Double

Set wkbk = ThisWorkbook
Set xsheet = wkbk.Worksheets("Sheet1") 'change sheet name here
codeColumn = "B" ' change column letter here
moveIN = "C" 'set move in column
moveOUT = "D" 'set move out column

'this will loop through the Code column until the last set of data.
rowCount = xsheet.Range(codeColumn & xsheet.Rows.Count).End(xlUp).Row 'find last row

For x = 2 To rowCount
    'checks if code transitions from one code to another
    If not xsheet.Range(codeColumn & x).Value = xsheet.Range(codeColumn & x + 1).Value Then

        If xsheet.Range(moveIN & x).Value = xsheet.Range(moveOUT & x + 1).Value Then
            'do something if the code is the same
        Else
            xsheet.Range(codeColumn & x).Interior.ColorIndex = 3
            MsgBox ("Row: " & x & " is different") 'comment this out not to get the message
        End If
    Else
    End If

Next x
End Sub