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

我试图将第三列中的数据与三个相邻列中的数据进行匹配。

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

ROW ABC ---------------------- 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 ABC ---------------------- 1 Cat Car Red 2 Dog Bike Blue 3 4 Bird Car Blue 5 Bear Car Red 6 Fish Bike Red 

基本上，我需要列A和B，看到列C是空的第3行，并插入空白单元格中的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