定義一個range，不論怎麼修改都找的到?

lolmuta

一般要定義一個range很簡單

1. dim a as range

复制代码

但若使用者在列1的地方增新一列，則原來的range("A1")就被移到下一列去了

range("A1")跑到下面去了

原來的程式碼，你若定義他在range("a1"), 就始終在range("A1")

在vba中，我應該怎麼設定才可以抓到原來的range在range("A2")呢?


只能用vba來設定
原本是想發問的，結果自己就解決了
用定義就好

1. Sub gg1()
   
2. ActiveWorkbook.Names.Add _
   
3.         Name:="hhh", _
   
4.         RefersTo:="=工作表1!$A$1:$D$3"
   
5. End Sub
   
6. Sub gg3()
   
7. 
   
8. 
   
9. Dim t As Range
   
10. Set t = Range("hhh")
    
11. 
    
12. t.Interior.ColorIndex = 4
    
13. 
    
14. End Sub

复制代码

只要先跑了gg1(),定義range("a1")~range("D3")的名稱為hhh
之後不論你怎麼編輯，多一列少一列

執行gg3()都可以抓到。

jsxjd

A1必须要有相应的特征

840205910

jsxjd 发表于 2013-9-23 19:32
A1必须要有相应的特征

说白了，楼主就是先用代码定义个“名称”，再在随意变化行、列后的表中找到那名称