VBA实现依次选中相同数据的区域

hust112233 · 发表于 2018-3-23 11:46

要使用VBA实现依次选中相同数据的区域，使用循环依次给出相应区域

hust112233 · 发表于 2018-3-23 11:47

A1：A6，A7：A10，A11：A13，A14：A15

6688 · 发表于 2018-3-23 12:32

Sub kb()

t = Cells(1, 1).Value

For i = 2 To Range("a65535").End(xlUp).Row + 1

If Range("A" & i) <> t Then
      t = Range("a" & i)
      en = i - 1
      MsgBox st & "," & en
      st = ""
Else
      If st = "" Then
         st = i - 1
      End If
End If

Next i

st = ""
End Sub

hust112233 · 发表于 2018-3-23 16:59

厉害哥们！！！多谢了！

		自动登录	找回密码
密码			免费注册

[求助] VBA实现依次选中相同数据的区域