動態資料範圍名稱定義

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

謝謝

樓主熱帖

ciboybj

中學生 Rank: 2

帖子: 47
主題: 19
精華: 0
積分: 82
點名: 0
作業系統: win
軟體版本: xp
閱讀權限: 20
註冊時間: 2014-7-4
最後登錄: 2021-9-4

2^#

發表於 2014-7-23 23:24 | 只看該作者

以下為我目前的解決方法

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

TOP

ML089

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2025
主題: 13
精華: 0
積分: 2053
點名: 0
作業系統: WIN7
軟體版本: Office2007
閱讀權限: 100
性別: 男
來自: 台北市
註冊時間: 2011-3-2
最後登錄: 2024-3-14

論壇榮譽勳章論壇贊助勳章熱烈參與勳章 2014馬年全勤獎章 2015羊年全勤獎章 2016猴年全勤獎章

3^#

發表於 2014-7-24 00:34 | 只看該作者

回復 1# ciboybj

Sub ex()
shs = Array("sheet1", "sheet2")
For Each sh In shs
Sheets(sh).Select 'Activate
EndRow = Cells(Cells.Rows.Count, 1).End(xlUp).Row
Set Rng = Range("A2:A" & EndRow)
'方法1 靜態範圍名稱，A欄資料以A1為名稱
Names.Add Name:=[A1], RefersTo:=Rng
'方法2 動態範圍名稱，B欄資料以B1為名稱
Names.Add Name:=[B1], RefersTo:="=Offset($B$1,,,COUNTA($B:$B)-1)"
Next
End Sub

複製代碼

{...} 表示需要用 CTRL+SHIFT+ENTER 三鍵輸入公式

TOP

ciboybj

中學生 Rank: 2

帖子: 47
主題: 19
精華: 0
積分: 82
點名: 0
作業系統: win
軟體版本: xp
閱讀權限: 20
註冊時間: 2014-7-4
最後登錄: 2021-9-4

4^#

發表於 2014-7-24 12:45 | 只看該作者

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

TOP

Hsieh

超級版主 Rank: 8 Rank: 8

帖子: 4901
主題: 44
精華: 24
積分: 4916
點名: 90
作業系統: Windows 7
軟體版本: Office 20xx
閱讀權限: 150
性別: 男
來自: 台北
註冊時間: 2010-4-30
最後登錄: 2024-4-18

2023年全勤獎章 2022虎年全勤獎章 2021牛年全勤獎章 2020鼠年全勤獎章 2019 豬年全勤獎章 2018 狗年全勤獎章 2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱心公益勳章 2011兔年全勤獎章