excel VBA将数字之间的值赋给数组

8xiog9wr  于 2023-01-31  发布在  其他
关注(0)|答案(1)|浏览(173)

我有一个包含430列的excel文件,我需要遍历列28-32 39-56 60-71 89-268 276-291 323-396 416-418 420-429
为此,我创建了一个数组,但我不知道如何分配每个边界之间的所有值,该数组应该包含值28, 29, 30, 31, 32, 39, 40,...等等。
我一直在找,但我可能用错了关键词。

eoxn13cs

eoxn13cs1#

除了使用数组之外,还有一种替代方法是使用Select Case,如下所示:

Sub tester()
    Dim col As Range
    For Each col In ActiveSheet.Range("AB:PM").Columns
        Select Case col.Column
            Case 28 To 32, 39 To 56, 60 To 71 ' and so on
                ' Process col here       
        End Select
    Next
End Sub

相关问题