Сравните пустые строки в 2 листах, вставьте пустые строки, если они найдены разными. В VBA

Question

Я пытаюсь вставить пустые строки в 2 листа после сравнения между ними, используя Col A Или Col B в качестве руководства. И у меня есть более 10 столбцов и много строк. Может быть, я попытаюсь объяснить с упрощенным пример ниже:

Лист1

A B C    
1 2 3 
111 222 333 
1111 2222 3333 

Лист2

A B C    
1 2 3 
11 22 33 
1111 2222 3333 

После сравнения

Лист1

A B C    
1 2 3 
(insert a blank row) 
111 222 333 
1111 2222 3333 

Sheet2

A B C    
1 2 3 
11 22 33 
(insert a blank row) 
1111 2222 3333 

Answer 1

Я думаю, что нам нужно более подробно на примере. Логика пустых строк, по-видимому, добавляет пустую строку, если в противоположной таблице нет совпадения. Однако это будет очень сложно сделать, если они не будут отсортированы по определенному столбцу в том же направлении. Я не уверен в конкретном коде, но я думаю, что логикой этого будет вложенный цикл, который проверял каждую строку листа B на строке листа A. Пока он проверяет, он также должен нести переменную с ближайшим соответствием до значения, которое не больше значения. Таким образом, если он не найдет соответствия, он может вставить пустую строку после ближайшего совпадения, не переходя. Вы бы затем запустить тот же код, а затем проверить все значения в B против всех строк в A.

Answer 2

Поиграйте:

Sub InsertBlankIfNotMatched() 

    Dim rngA As Range 
    Dim rngB As Range 
    Dim lngDataCounter As Long 
    Dim lngRowCount As Long 
    Dim varData1 As Variant 
    Dim varData2 As Variant 

    Dim chk As Integer 
    chk = 1 
    Set rngA = Sheet1.Range("A1").CurrentRegion 
    Set rngB = Sheet2.Range("A1").CurrentRegion 
    lngRowCount = rngA.Rows.Count 
    For lngDataCounter = 1 To lngRowCount 
     varData1 = Application.Transpose(Application.Transpose(rngA.Rows(lngDataCounter).Value)) 
     varData2 = Application.Transpose(Application.Transpose(rngB.Rows(lngDataCounter).Value)) 

     If chk = 1 Then 
      If Join(varData1, "") <> Join(varData2, "") Then 
       rngA.Rows(lngDataCounter).Insert Shift:=xlDown 
       lngRowCount = lngRowCount + 1 
       chk = 2 
      End If 
     ElseIf chk = 2 Then 
      If Join(varData1, "") <> Join(varData2, "") Then 
       rngB.Rows(lngDataCounter).Insert Shift:=xlDown 
       lngRowCount = lngRowCount + 1 
       chk = 1 
      End If 
     End If 
    Next 

End Sub