[已解决]求助：如何在数据区中循环

jbh121

选中区域，在单元格地址栏输入了几个地址，比如说，“区域1”=A1：C5，“区域2”=E4：G3“，其中，名称也比较有规律，都叫“区域**”

现在想用代码在这几个区域里循环，怎么实现？

1、如何统计我定义的数量？比如有几个带“区域*”

2、如何选中区域？

比如说，for i=1 to 10

“区域”& i .select

会出错的。

最佳答案

月排行榜 / 总排行榜

amulee

2010-6-8 10:47

Sub 遍历区域()
    Dim aName
    For Each aName In ThisWorkbook.Names
        If Left(aName.Name, 2) = "区域" Then
            aName.RefersToRange.Select
        End If
    Next
End Sub

跳转到最佳答案楼层

yuhe0008

Range("区域1").Select

coolliangfen

等答案学习下

amulee

Sub 遍历区域()
    Dim aName
    For Each aName In ThisWorkbook.Names
        If Left(aName.Name, 2) = "区域" Then
            aName.RefersToRange.Select
        End If
    Next
End Sub

木文

QUOTE:

以下是引用amulee在2010-6-8 10:47:00的发言：
Sub 遍历区域()
    Dim aName
    For Each aName In ThisWorkbook.Names
        If Left(aName.Name, 2) = "区域" Then
            aName.RefersToRange.Select
        End If
    Next
End Sub

学习来了,可看不懂.

jbh121

thisworkbook.names.count是区域数量

这个“S”容易被漏掉。

aname.referstorange