连续区域取范围

破例 · 发表于 2023-1-1 12:36

总感觉自己写的很麻烦请问大家都是怎么解的

tmplinshi · 发表于 2023-1-1 14:43

Sub aa()
Dim rng As Range, cell As Range, lastColor, beginRow, endRow
Set rng = Cells(UsedRange(1).Row, "B").Resize(UsedRange.Rows.Count + 1)
For Each cell In rng
If endRow > 0 And cell.Interior.Color <> lastColor Then
Cells(Rows.Count, "f").End(xlUp).Offset(1) = "B" & beginRow & "-" & endRow
endRow = 0
End If
If cell.Interior.Color <> rgbWhite Then
If cell.Interior.Color = lastColor Then
endRow = cell.Row
Else
beginRow = cell.Row
End If
End If
lastColor = cell.Interior.Color
Next
End Sub

复制代码

tmplinshi · 发表于 2023-1-1 16:12

Sub aa()
Dim rng As Range, cell As Range, lastColor, beginRow, endRow
Set rng = Cells(UsedRange(1).Row, "B").Resize(UsedRange.Rows.Count + 1)
For Each cell In rng
If beginRow And cell.Interior.Color <> lastColor Then
Cells(Rows.Count, "f").End(xlUp).Offset(1) = "B" & beginRow & "-" & cell.Row - 1
beginRow = 0
End If
If cell.Interior.Color <> rgbWhite _
And cell.Interior.Color <> lastColor Then
beginRow = cell.Row
End If
lastColor = cell.Interior.Color
Next
End Sub

复制代码

破例 · 发表于 2023-1-1 16:57

tmplinshi 发表于 2023-1-1 16:12

If beginRow And cell.Interior.Color <> lastColor
请问这句里面的 beginRow 没加判断是什么意思
如果beginRow 怎么样？

tmplinshi · 发表于 2023-1-1 21:37

变量未赋值的时候，它的布尔值是 False
0 的布尔值是 False
正整数的布尔值是 True

Sub test()
Debug.Print CBool(Empty) ' False
Debug.Print CBool(0) ' False
Debug.Print CBool(123) ' True
End Sub

复制代码

类似地，比如 InStr 函数返回的结果是 0 或者正整数，可以直接写 If InStr(1, "abc", "c")，不需要写成 If InStr(1, "abc", "c") > 0

准提部林 · 发表于 2023-1-1 21:54

Sub TEST_A1()
Dim B As Range, A As Range, CC, CK, n&
For Each B In Intersect(ActiveSheet.UsedRange, Range("b:b"))
CC = B.Interior.ColorIndex
If CC <> CK Then CK = CC: Set A = B
If B(2).Interior.ColorIndex <> CK And CK <> -4142 Then
n = n + 1
Cells(n, "e") = Range(A, B).Address(0, 0)
End If
b01: Next
End Sub

gwjkkkkk · 发表于 2023-1-1 22:16

参与一下。。。

破例 · 发表于 2023-1-1 22:31

tmplinshi 发表于 2023-1-1 21:37
变量未赋值的时候，它的布尔值是 False
0 的布尔值是 False
正整数的布尔值是 True

谢谢~~~~~~~~~~~~~~~~~~

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

[讨论] 连续区域取范围

评分

评分

评分

评分