将空行插入列以匹配相邻列中的空行

Question

我正在尝试将三个相邻列中的数据与第四列中的数据进行匹配。

这是我的数据当前的组织方式：

ROW   A     B     C
----------------------
1    Cat   Car    Red
2    Dog   Bike   Blue
3    Bird  Car    
4    Bear  Car    Blue
5    Fish  Bike   Red  
6    Cow   Car    Red 

（A列的值是唯一的；B和C列的值是重复值）

这就是我需要的组织方式：

ROW   A     B     C
----------------------
1    Cat   Car    Red
2    Dog   Bike   Blue
3
4    Bird  Car    Blue
5    Bear  Car    Red
6    Fish  Bike   Red

基本上，我需要 A 和 B 列来查看第 3 行中的 C 列是空的，并在 A3 和 B3 中插入​​空白单元格，以便下面的每个 A 和 B 值都向下移动一个。

电子表格中有许多需要插入的内容。其中一些会像上面的示例一样是单独的插入，但其他可能是连续 3、4、5、10 次插入。

我可以使用公式或某种自动化流程来实现这一点吗？

谢谢！

Answer 1

从您发布的示例中，您想在 C 为空白时将 A 和 B 向下推？

Sub PushDown()
    Dim X As Long
    For X = 1 To Range("A" & Rows.Count).End(xlUp).Row
        If IsEmpty(Range("C" & X)) Then Range("A" & X & ":B" & X).Insert xlDown
    Next
End Sub

Answer 2

Sub clearContent()
Dim lastrow As Integer

lastrow = Range("D65536").End(xlUp).Row

For i = 2 To lastrow
    If Cells(i, 4) = "" Then
        Range(Cells(i, 2), Cells(i, 3)).ClearContents
    End If
Next i
End Sub