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

时间:2015-05-29 20:50:25

标签: excel vba excel-vba

案例1
将两行单元格值逐个匹配,直到同一行中最后使用的单元格为止。行的最后一行是第1行和第二行。最后一行和倒数第二行之间有一个空行。两行中都有一些空白单元格,数据从列#34; D"开始。

案例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

0 个答案:

没有答案