Vba 逐单元格匹配两行值，直到最后使用的单元格

案例1
逐个匹配两行单元格值，直到同一行中最后使用的单元格。行是最后一行是第1页，第二行是最后一行。在最后一行和倒数第二行之间有一个空行。行和列中都有一些空白单元格，数据从列“D”开始

Sub copyRow()
Dim rng As Range
Dim ws As Worksheet

'ws = ActiveWorkbook("sheet1").Select

Set rng = ws.Range("A6").End(xlUp).Offset(-2, 0).Select
lRow = Range("A" & Rows.Count).End(xlUp).Row


Set MR = Range("A2:A" & lRow)
For Each cell In MR
    If cell.Value = "False" Then
    rng.Interior.ColorIndex = 10
      ElseIf cell.Value = "True" Then
End If


Next
End Sub

案例2
如果单元格匹配，则进入同一行中的下一个单元格，或者如果单元格值不匹配，则更改该特定列中值不匹配的第二个最后一行单元格的背景色

Sub copyRow()
Dim rng As Range
Dim ws As Worksheet

'ws = ActiveWorkbook("sheet1").Select

Set rng = ws.Range("A6").End(xlUp).Offset(-2, 0).Select
lRow = Range("A" & Rows.Count).End(xlUp).Row


Set MR = Range("A2:A" & lRow)
For Each cell In MR
    If cell.Value = "False" Then
    rng.Interior.ColorIndex = 10
      ElseIf cell.Value = "True" Then
End If


Next
End Sub

完成所有映射后，删除最后一行

Sub copyRow()
Dim rng As Range
Dim ws As Worksheet

'ws = ActiveWorkbook("sheet1").Select

Set rng = ws.Range("A6").End(xlUp).Offset(-2, 0).Select
lRow = Range("A" & Rows.Count).End(xlUp).Row


Set MR = Range("A2:A" & lRow)
For Each cell In MR
    If cell.Value = "False" Then
    rng.Interior.ColorIndex = 10
      ElseIf cell.Value = "True" Then
End If


Next
End Sub

我的代码不起作用：

Sub copyRow()
Dim rng As Range
Dim ws As Worksheet

'ws = ActiveWorkbook("sheet1").Select

Set rng = ws.Range("A6").End(xlUp).Offset(-2, 0).Select
lRow = Range("A" & Rows.Count).End(xlUp).Row


Set MR = Range("A2:A" & lRow)
For Each cell In MR
    If cell.Value = "False" Then
    rng.Interior.ColorIndex = 10
      ElseIf cell.Value = "True" Then
End If


Next
End Sub

---

这个问题看起来像是对代码编写服务的请求，即有点不适合这样做。请给我们您的VBA代码片段并突出显示问题部分。您可以使用宏记录器创建一个快速原型，然后润色代码。致以最诚挚的问候，我投票结束这个问题，因为它看起来像是家庭作业问题。请编辑这个问题，以便我们可以实际阅读代码…欢迎来到StackOverflow（so）。请参阅当社区投下5张接近票数时，您的问题将被关闭。确保指定代码中错误的具体位置，以及在解决编程问题/瓶颈方面需要社区提供哪些帮助。