连续区域取范围

破例

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

tmplinshi

1. Sub aa()
   
2.     Dim rng As Range, cell As Range, lastColor, beginRow, endRow
   
3.    
   
4.     Set rng = Cells(UsedRange(1).Row, "B").Resize(UsedRange.Rows.Count + 1)
   
5.    
   
6.     For Each cell In rng
   
7.    
   
8.         If endRow > 0 And cell.Interior.Color <> lastColor Then
   
9.             Cells(Rows.Count, "f").End(xlUp).Offset(1) = "B" & beginRow & "-" & endRow
   
10.             endRow = 0
    
11.         End If
    
12.    
    
13.         If cell.Interior.Color <> rgbWhite Then
    
14.             If cell.Interior.Color = lastColor Then
    
15.                 endRow = cell.Row
    
16.             Else
    
17.                 beginRow = cell.Row
    
18.             End If
    
19.         End If
    
20.         
    
21.         lastColor = cell.Interior.Color
    
22.         
    
23.     Next
    
24. 
    
25. End Sub

复制代码

tmplinshi

1. Sub aa()
   
2.     Dim rng As Range, cell As Range, lastColor, beginRow, endRow
   
3.    
   
4.     Set rng = Cells(UsedRange(1).Row, "B").Resize(UsedRange.Rows.Count + 1)
   
5.    
   
6.     For Each cell In rng
   
7.    
   
8.         If beginRow And cell.Interior.Color <> lastColor Then
   
9.             Cells(Rows.Count, "f").End(xlUp).Offset(1) = "B" & beginRow & "-" & cell.Row - 1
   
10.             beginRow = 0
    
11.         End If
    
12.    
    
13.         If cell.Interior.Color <> rgbWhite _
    
14.         And cell.Interior.Color <> lastColor Then
    
15.             beginRow = cell.Row
    
16.         End If
    
17.         
    
18.         lastColor = cell.Interior.Color
    
19.         
    
20.     Next
    
21. 
    
22. End Sub

复制代码

破例

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

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

tmplinshi

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

1. Sub test()
   
2.     Debug.Print CBool(Empty) ' False
   
3.     Debug.Print CBool(0)     ' False
   
4.     Debug.Print CBool(123)   ' True
   
5. End Sub

复制代码

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

准提部林

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

参与一下。。。

破例

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

变量未赋值的时候，它的布尔值是 False

0 的布尔值是 False

正整数的布尔值是 True

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