VBA选中单列中连续相同单元格的代码

Question

Excel 工作表中某列的相同的连续单元格同时选中的代码，或VBA实现过程
方便给个E-mail地址吗？有个实例想与你共讨下

Answer 1

Private Sub CommandButton1_Click()

Dim r As Range

Dim f As Boolean

  ' 中是为了测试，所以写得比较简单！！

    For i = 1 To 7

        If i = 1 Then

            Set r = Cells(i, 1)

            r.Select

        Else

            If Cells(i, 1) = Cells(i - 1, 1) Then

                Set r = Union(r, Cells(i, 1))

                r.Select

                f = True

            Else

               '发现不再连续相同，且已经找到过，就结束，这样用来返回第一次连续相同的值。

                If f = True Then

                    Exit For

                End If

                '如果之前没找到过，把这当前的单元格选中。

                Set r = Cells(i, 1)

                r.Select

            End If

        End If

    Next

End Sub

Answer 2

例如判断A列（VBA实现过程）：
记录A1的值，然后开始与A2、A3、……比较
如果A2与A1相同，就说明是2个连续相同单元格
执行Range("A1:A2").Select
如果A3与A1又相同，就说明是3个连续相同单元格
执行Range("A1:A3").Select
如果A4<>A1，程序结束

大概就这个细路，具体代码自己写。

Answer 3

[email protected]