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