Sub Macro2()Dim LastRow As Long, Rng1 As Range, Rng2 As Range LastRow = Cells(Rows.Count, 1).End(xlUp).Row Set Rng1 = Лист2.Range(Cells(LastRow, 1), Cells(LastRow, 5)) LastRow = Cells(Rows.Count, 9).End(xlUp).Row Set Rng2 = Лист2.Range(Cells(LastRow, 9), Cells(LastRow, 13)) For i = 1 To 5 If Rng1(i) <> Rng2(i) Then Rng1(i).Interior.ColorIndex = 3 If Rng1(i) <> Rng2(i) Then LastRow = Cells(Rows.Count, 1).End(xlUp).Row Cells(LastRow, 6).Value = "Не верно" If Rng1(i) = Rng2(i) Then LastRow = Cells(Rows.Count, 1).End(xlUp).Row Cells(LastRow, 6).Value = "Верно" NextEnd Sub
Sub Macro2()Dim LastRow As Long, Rng1 As Range, Rng2 As Range LastRow = Cells(Rows.Count, 1).End(xlUp).Row Set Rng1 = Sheets("Лист2").Range(Cells(LastRow, 1), Cells(LastRow, 4)) LastRow = Cells(Rows.Count, 9).End(xlUp).Row Set Rng2 = Sheets("Лист2").Range(Cells(LastRow, 9), Cells(LastRow, 13)) For i = 1 To 4 If Rng1(i) <> Rng2(i) Then Rng1(i).Interior.ColorIndex = 3 End If If Rng1(i) <> Rng2(i) Then LastRow = Cells(Rows.Count, 1).End(xlUp).Row Cells(LastRow, 6).Value = "Не верно" End If If Rng1(i) = Rng2(i) Then LastRow = Cells(Rows.Count, 1).End(xlUp).Row Cells(LastRow, 6).Value = "Верно" End If Next iEnd Sub
Sub проба()Range("A12:D12").Interior.Color = xlNoneEnd Sub
Sub baggy777() Dim i&, j1&, j2&, m As Byte, r1 As Range, r2 As Range j1 = Range("A" & Cells.Rows.Count).End(xlUp).Row j2 = Range("I" & Cells.Rows.Count).End(xlUp).Row Set r1 = Range("A" & j1 & ":D" & j1) Set r2 = Range("I" & j2 & ":L" & j2)For i = 1 To 4 If r1.Cells(i) <> r2.Cells(i) Then Range("F" & j1) = "Не верно" r1.Cells(i).Interior.ColorIndex = 3 Exit Sub End IfNext iFor i = 1 To 4 If r1.Cells(i) = r2.Cells(i) Then m = m + 1 If m = 4 Then Range("F" & j1) = "Верно": End If End If Next iEnd Sub
Sub проба777()Dim j1&j1 = Range("A" & Cells.Rows.Count).End(xlUp).RowRange("A" & j1 & ":D" & j1).Interior.Color = xlNoneEnd Sub
Sub Macro3() Dim LastRow1 As Long, LastRow2 As Long, Rng1 As Range, Rng2 As Range LastRow1 = Cells(Rows.Count, 1).End(xlUp).Row Set Rng1 = Sheets("Лист2").Range(Cells(LastRow1, 1), Cells(LastRow1, 4)) LastRow2 = Cells(Rows.Count, 9).End(xlUp).Row Set Rng2 = Sheets("Лист2").Range(Cells(LastRow2, 9), Cells(LastRow2, 13)) For i = 1 To 4 If Rng1(i) <> Rng2(i) Then Rng1(i).Interior.ColorIndex = 3 Cells(LastRow1, 6).Value = "Не верно" Exit Sub End If If Rng1(i) = Rng2(i) Then m = m + 1 If m = 4 Then Cells(LastRow1, 6).Value = "Верно" End If End If Next iEnd Sub