動態資料範圍 名稱定義

ciboybj

大家好
想請問大家
我有一個excel 內有多個sheet
各個sheet 中的有資料範圍不固定
想請問要如何利用vba 快速地將各個sheet中有資料的範圍進行名稱定義

謝謝

ciboybj

以下為我目前的解決方法

Dim i As Integer
  
  For i = 1 To ｎ 'n=sheet的總數
    Sheets("第" & i & "項").Select
   Sheets("第" & i & "項").UsedRange.Select
   
    ActiveWorkbook.Names.Add name:="第" & i & "項", RefersTo:=Selection
  
  Next

ML089

回復 1# ciboybj

1. Sub ex()
   
2. 
   
3.     shs = Array("sheet1", "sheet2")
   
4. 
   
5.     For Each sh In shs
   
6. 
   
7.         Sheets(sh).Select 'Activate
   
8. 
   
9.         EndRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
   
10.         Set Rng = Range("A2:A" & EndRow)
    
11.         
    
12.         '方法1 靜態範圍名稱，A欄資料以A1為名稱
    
13.         Names.Add Name:=[A1], RefersTo:=Rng
    
14.         
    
15.         '方法2 動態範圍名稱，B欄資料以B1為名稱
    
16.         Names.Add Name:=[B1], RefersTo:="=Offset($B$1,,,COUNTA($B:$B)-1)"
    
17. 
    
18.     Next
    
19. End Sub

複製代碼

ciboybj

謝謝~
不過我有個問題想再向您請教
由於我的SHEET並非我自行建置的
所以有出現類似SHEET1(名稱為第一項)，SHEET3(名稱為第二項)
因此，如是使用您的CODE不知要怎麼改

Hsieh

回復 4# ciboybj

1. Sub ex()
   
2. Dim Sh As Worksheet
   
3. For Each Sh In Sheets '所有工作表迴圈
   
4.    With Sh
   
5.       ActiveWorkbook.Names.Add .Name, .UsedRange '以工作表名稱為名，所有資料為範圍，新增定義名稱
   
6.    End With
   
7. Next
   
8. End Sub

複製代碼

ciboybj

謝謝大家
讓我學習了~~~