Сравнить 2 двумерных массива

@Samyrro · Регистрация: 13.10.2014

Author24 — интернет-сервис помощи студентам

Здравствуйте, существует 2 двумерных массива вида:

1 100

2 200

3 300

и

1 400

5 500

3 300

Как их сравнить, чтобы в результате получился новый массив с данными

1 400

5 500

при условии, что (A(i,0) <> B(i,0) И A(i,1) <> B(i,1)) ИЛИ (A(i,0) = B(i,0) И A(i,1) <> B(i,1)).

Т.е. значения либо вообще не должны совпасть из двух колонок, либо из 1-й колонки может совпасть, а из 2-й - Нет.

@Narimanych · 16.11.2019, 21:48

Samyrro,

Сообщение от Samyrro

2 двумерных массива вида:

A(0,0)=1 ; A(0,1)=100
A(1,0)=2 A(1,1)=200
Я правильно понял?

Добавлено через 2 минуты
Samyrro,

Файл экселя с 10-15 заполненными строками...

@Samyrro · 16.11.2019, 21:55 **[ТС]**

Narimanych, Да, правильно.

@Narimanych · 16.11.2019, 22:13

Samyrro,

Для вашего файла :

Visual Basic

Sub MMM()
Application.ScreenUpdating = False
LR = Cells(Rows.Count, 1).End(xlUp).Row
m = 1
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
    If Cells(i, 1).Value = Cells(i, 4).Value And Cells(i, 2).Value <> Cells(i, 5).Value _
        Or Cells(i, 1).Value <> Cells(i, 4).Value And Cells(i, 2).Value <> Cells(i, 5).Value _
        Or Cells(i, 1).Value <> Cells(i, 4).Value And Cells(i, 2).Value = Cells(i, 5).Value _
           Then
         Cells(m, 8).Value = Cells(i, 4).Value
         Cells(m, 9).Value = Cells(i, 5).Value
         m = m + 1
    End If
Next
Application.ScreenUpdating = True
MsgBox "Task Complete"
End Sub

@Samyrro · 16.11.2019, 22:18 **[ТС]**

Narimanych, Прикол в том, что элементы 2-го массива могут быть расположены случайным образом.

@Narimanych · 17.11.2019, 11:38

Samyrro,

Кликните здесь для просмотра всего текста

Visual Basic

Sub MMM()
Application.ScreenUpdating = False
LR1 = Cells(Rows.Count, 1).End(xlUp).Row
LR2 = Cells(Rows.Count, 4).End(xlUp).Row
 
A = Range(Cells(1, 1), Cells(LR1, 2)).Value
B = Range(Cells(1, 4), Cells(LR2, 5)).Value
ReDim B1(1 To LR2, 1 To 3)
 
For i = 1 To LR1
     For j = 1 To LR2
        For x = 1 To 2
          B1(j, x) = B(j, x)
          If A(i, 1) = B(j, 1) And A(i, 2) = B(j, 2) Then B1(j, 3) = 1
        Next
    Next
Next
 
m = 1
 
For i = 1 To LR2
    If B1(i, 3) <> 1 Then
        Cells(m, 8).Value = B1(i, 1)
        Cells(m, 9).Value = B1(i, 2)
        m = m + 1
    End If
Next
 
Application.ScreenUpdating = True
End Sub

@Narimanych 2724 / 1701 / 776 Регистрация: 23.03.2015 Сообщений: 5,388
	16.11.2019, 21:48	2
	Samyrro, Сообщение от Samyrro 2 двумерных массива вида: A(0,0)=1 ; A(0,1)=100 A(1,0)=2 A(1,1)=200 Я правильно понял? Добавлено через 2 минуты Samyrro, Файл экселя с 10-15 заполненными строками... 0

	17.11.2019, 11:38

Сравнить 2 двумерных массива

Решение