excel - 如何比较列中的值？

Question

我有一列连续重复的整数。

我想在每次连续匹配后插入一行。

我的值(value)观是:

2
2
5
5
10
10
20
20

代码的输出是:

2
2
5
5

10
10

20
20

它正在工作，直到它区分 2 和 5。

For k = myRange.Rows.Count To 2 Step -1
    If InStrRev(myRange.Cells(k, 1).Value2, vbTextCompare) <> InStrRev(myRange.Cells(k - 1, 1).Value2, vbTextCompare) Then
        Range(myRange.Cells(k, 1).EntireRow, myRange.Cells(k, 1).EntireRow).Insert
    End If
Next k

其中 'myRange' 是要分隔的值的范围。

我尝试使用 myRange.Cells(k,1).Text而不是 Value2，并且还尝试进行 vbBinaryCompare 而不是文本比较。

Answer 1

这是您尝试执行的操作的简单示例。

For k = myRange.Rows.Count To 3 Step -1 'If you have a header and loop to row 2 it will insert a row above row 2
    If Cells(k, 1) <> Cells(k - 1, 1) Then
        Cells(k, 1).EntireRow.Insert
    End If
Next k