比较excel中的两列，插入空行并移动关联数据

Question

我在A，B，C，D列中输入了单元格，我想要在F，G，H，I中输入结果，那么我应该在单元格中插入什么公式

Answer 1

F3将是：

=IF(LEN(F3),INDEX(B:B,MATCH(F3,A:A,0)),"")

和G3：

Listener.onListEndReached()

将F3：G3复制到H3：I3和＆＃34;自动填充＆＃34;根据需要

Answer 2

如果您想使用宏，那么只需将此代码复制到Visual Basic编辑器中的模块中并运行它。

Sub insertRows()
Columns("G:J").EntireColumn.Delete

Dim lrow As Long: lrow = Range("A" & Rows.Count).End(xlUp).Row
Dim brng As Range: Set brng = Range("A1:D" & lrow)
brng.Copy Range("G1"): Range("G1").Value = "After"
Dim arng As Range: Set arng = Range("G3:G" & lrow)
Dim rng As Range

For Each rng In arng
  If rng <> rng.Offset(, 2) Then
      If rng > rng.Offset(, 2) Then
        rng.Resize(, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      Else
        rng.Offset(, 2).Resize(, 2).Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
      End If
  End If
Next rng

End Sub

Answer 3

OMG，这个很难，但这些是你可以尝试的公式：

来自cell F3：

=IF(AND(N(F2)=0,F2<>""),1,IF(AND(NOT(COUNTIF($A$3:$A$22,MIN(INDEX($A$3:$A$22,MATCH(MAX(F$2:F2,H$2:H2),$A$3:$A$22,1)+1),INDEX($C$3:$C$22,MATCH(MAX(F$2:F2,H$2:H2),$C$3:$C$22,1)+1)))),INDEX($A$3:$A$22,MATCH(MAX(F$2:F2,H$2:H2),$A$3:$A$22,1)+1)),"",INDEX($A$3:$A$22,MATCH(MAX(F$2:F2,H$2:H2),$A$3:$A$22,1)+1)))

来自cell G3：

=IF(N(F3),INDEX(B:B,MATCH(F3,A:A,0)),"")

来自cell H3：     

=IF(AND(N(H2)=0,H2<>""),1,IF(AND(NOT(COUNTIF($C$3:$C$22,MIN(INDEX($C$3:$C$22,MATCH(MAX(H$2:H2,F$2:F2),$C$3:$C$22,1)+1),INDEX($A$3:$A$22,MATCH(MAX(H$2:H2,F$2:F2),$A$3:$A$22,1)+1)))),INDEX($C$3:$C$22,MATCH(MAX(H$2:H2,F$2:F2),$C$3:$C$22,1)+1)),"",INDEX($C$3:$C$22,MATCH(MAX(H$2:H2,F$2:F2),$C$3:$C$22,1)+1)))

来自cell I3：

=IF(N(H3),INDEX(D:D,MATCH(H3,C:C,0)),"")

基本上，公式在Debit和Credit列下非常相似，但只是交换范围引用。试着让我知道。