时间戳

首页 > 解决方案 > 使用 2 个不相邻的列

excel - 使用 2 个不相邻的列

问题描述

我正在尝试构建一个宏来比较两列以查看它们是否相同。这就是功能。

Sub Compare()
Dim LastRow As Integer
LastRow = Worksheets("Sheet1").Range("A1048576").End(xlUp).Row 
For i=2 to LastRow
    If Range("A" & i).Value = Range("B" & i).Value Then
        Range("C" & i).Value = True
    Else
        Range("C" & i).Value = False
    End If
End Sub

现在很难编码比较A列和B列，然后将True/False输出到C列。我想做的是让用户从他们的excel表中只选择2列，然后运行这个宏，然后比较两个选定的列由用户。这 2 列可以彼此不相邻，因此例如用户可以选择 A 列和 K 列来比较它们之间的值。

标签： excelvba

解决方案

您需要检查非相邻列的 .Areas 属性。

Sub CompareTwo()
    dim rng as range, i as long
    set rng = intersect(selection, selection.parent.usedrange)

    if rng.areas.count>1 then
        for i=1 to rng.areas(1).rows.count
            rng.areas(2).cells(i).offset(0, 1) = cbool(rng.areas(1).cells(i).value = rng.areas(2).cells(i).value)
        next i
    else
        for i=1 to rng.rows.count
            rng.cells(i).offset(0, 2) = cbool(rng.cells(i).value = rng.cells(i).value)
        next i
    end if
End Sub

要将结果放在 excel 表末尾的新列中，请使用 Find 和 xlPrevious 和 xlByColumns 来定位最后使用的列，然后偏移 1。

推荐阅读