如何在有資料的地方自動編號? - Excel程式區 - 麻辣家族討論版版

麻辣家族討論版版 » Excel程式區 » 如何在有資料的地方自動編號?

返回列表下一主題上一主題發帖

[發問] 如何在有資料的地方自動編號?

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

11^# 跳轉到 »

發表於 2010-12-6 23:46 | 只看該作者

請問大大，下列的程式碼之結果，若不想出現多餘的空白格子，即不想最後一筆資料跳到65536，我的資料約編號到500而已，請問該如何修改?
Sub yy()
[a:a].HorizontalAlignment = xlCenter
Range("a2:a" & [b65536].End(3).Row) = "=row()-1"
[a:a] = [a:a].Value
End Sub

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

12^#

發表於 2010-12-7 08:22 | 只看該作者

回復 11# winston219
End 屬性套用至範例特定傳回 Range 物件，該物件代表包含來源範圍之區域結尾處的儲存格。等於按 END+向上鍵、END+向下鍵、END+向左鍵或 END+向右鍵可參閱 http://forum.twbts.com/thread-2055-1-1.html 4樓

Sub yy()
[a:a].HorizontalAlignment = xlCenter
Range("a2:a" & [b2].End(xlDown).Row) = "=row()-1"
'Range("a2:a" & [b2].End(4).Row) = "=row()-1"
[a:a] = [a:a].Value
End Sub
Sub EX()
With Range("B2", [b2].End(xlDown)).Offset(, -1)
' Range("B2", [b2].End(xlDown))-> 從B2往下到最後有資料的範圍,Offset(, -1)->向左位移一欄的範圍,
.HorizontalAlignment = xlCenter
.Cells = "=row()-1"
.Value = .Value
End With
End Sub

複製代碼

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

13^#

發表於 2010-12-7 11:06 | 只看該作者

最後一筆資料跳到65536
這應該是b欄的資料有問題， [b65536].End(3).Row應該是b欄最後有資料的列，若跑到65536表示有看不到的字符存在。

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

14^#

發表於 2010-12-8 17:56 | 只看該作者

我試了GBKEE與oobird兩位大大的方法後，仍然沒辦法解決這個問題。換了另一個工作表後，也同樣出現到65536的空格，請問可否到有資料的列數即可，不要出現那麼多往下的空格資料?

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

15^#

發表於 2010-12-8 20:12 | 只看該作者

已告訴你問題所在了，請自行檢查吧。
或者把檔案附上來了解！

　暱稱: 小溫
　頭銜: Dr.

中學生 Rank: 2

帖子: 93
主題: 32
精華: 0
積分: 129
點名: 0
作業系統: xp
軟體版本: Office 2007
閱讀權限: 20
性別: 男
註冊時間: 2010-9-4
最後登錄: 2016-11-19

論壇贊助勳章

16^#

發表於 2010-12-9 22:05 | 只看該作者

謝謝oobird大大，已發新問題，將檔案已附上去了!

中學生 Rank: 2

帖子: 135
主題: 19
精華: 0
積分: 165
點名: 0
作業系統: XP
軟體版本: 2003
閱讀權限: 20
性別: 男
來自: 香港
註冊時間: 2010-12-9
最後登錄: 2012-8-27

17^#

發表於 2010-12-10 12:39 | 只看該作者

建議樓主用9樓第一個macro時
最初加上這一句

Range("E2:E" & Rows.Count).Clear

複製代碼

先清除E列資料,否則下次再用便會移位(變了F列),搞得車毁人亡

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

18^#

發表於 2010-12-10 12:54 | 只看該作者

回復 17# FAlonso
很好的建議,此程序是依照樓主的需求,所量身製作的故沒加上你建議的程式碼.

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

19^#

發表於 2012-4-2 17:45 | 只看該作者

我和版大有一樣問題

借版大的順風車喔不知哪個方法好用試一下

lionliu

中學生 Rank: 2

帖子: 97
主題: 26
精華: 0
積分: 158
點名: 0
作業系統: windows
軟體版本: office2010
閱讀權限: 20
性別: 男
來自: taichung
註冊時間: 2010-9-12
最後登錄: 2019-8-29

20^#

發表於 2012-4-3 11:58 | 只看該作者

我試出來一個方法結合各位大大的方法就可以了
運用excel --> 編輯--到在選擇空格後
可將所有空格選取-->刪除-->整列上移
然後再執行2為大大的方法就可以了
方法有點笨但是可以做

lionliu

靜思自在 : 受人點水之恩，須當湧泉以報。

返回列表下一主題上一主題