以空行(单元格)为基础,获取不连续区域中的连续区域数据

wangds

请求帮助,获取指定区域数据循环赋值给数组,详见附件,谢谢!

大灰狼1976

1. Sub test()
   
2. Dim rng As Range, rg As Range, arr
   
3. Set rng = Range("a1:c" & [a65536].End(3).Row)
   
4. Set rng = rng.SpecialCells(xlCellTypeConstants)
   
5. For Each rg In rng.Areas
   
6.   arr = rg
   
7.   [f65536].End(3).Offset(1).Resize(UBound(arr), UBound(arr, 2)) = arr  'Check line
   
8. Next rg
   
9. End Sub

复制代码

网海遨游

不知这样做，是否能满足要求


Sub test()
    For Each Rng In Range("a1:a" & [a65536].End(3).Row)
        If Rng <> "" Then
            n = n + 1
            If n = 1 Then
                arr = Rng.CurrentRegion
            End If
        End If
        If n = UBound(arr) Then n = 0
    Next Rng
End Sub

wangds

非常感谢灰狼和遨游!2种算法都成功解决!

linhaichao430

新人第一答，供参考。大神请轻拍

Sub get_arrn()
    Dim arr() As Variant
    Dim row1, row2 As Integer
    row2 = 0
    Do
    On Error GoTo 100
    row1 = Range("a" & row2 + 1, "a" & r + 65536).SpecialCells(xlCellTypeConstants).Row
    row2 = row1 + Range("a" & row1).CurrentRegion.Rows.Count - 1
    arr = Range("a" & row1).CurrentRegion
    Loop
100:
End Sub

wangds

linhaichao430 发表于 2019-6-12 22:02
新人第一答，供参考。大神请轻拍

Sub get_arrn()

谢谢～测试成功。