VBA - 002 名稱範圍操作 @ Edison.X. Blog

    ' 將 B2:F5 此範圍定義一個名字叫 "DataRange"
    Dim myRgn As Range
    Set myRgn = Range("B2:F5")
    ThisWorkbook.Names.Add "DataRange", myRgn

    ' 選擇 DataRange 範圍
    Range("DataRange").Select
    Names("DataRange").RefersToRange.Select

    ' 選擇不同工作表上資料
    Application.Goto Range("DataRange")

    ' 選擇 DataRange 第 2 列
    Range("DataRange").Rows(2).Select

    ' 選擇 DataRange 第 2~4 列
    Range("DataRange").Rows("2:4").Select

    ' 計算此 DataRange 共幾列
    MsgBox Range("DataRange").Rows.Count


    ' 選擇此 DataRange 相對於向下 2 格，向右 4 格之欄位
    Range("DataRange").Cells(2, 4).Select

    ' 隱藏已定義之名稱範圍
    ThisWorkbook.Names("DataRange").Visible = False

    ' 開啟已定義之名稱範圍
    ThisWorkbook.Names("DataRange").Visible = True

    ' 變更參照範圍
    ThisWorkbook.Names("DataRange").RefersTo = Worksheets("工作表2").Range("B2:F5")

    ' 改回來
    ThisWorkbook.Names("DataRange").RefersTo = Worksheets("工作表1").Range("B2:F5")

    ' 刪除定義名稱範圍
    ThisWorkbook.Names("DataRange").Delete

    ' 列舉定義名稱範圍
    Dim tmpName As Name
    For Each tmpName In ThisWorkbook.Names
        tmpName.Visible = False ' 隱藏所有定義名稱範圍
    Next