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

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

論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2010-12-3 23:11 | 只看該作者

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

請問如何在有出現姓名的地方，自動向下編號? 且編號能置中對齊? (如下1、2、3的數字自動跑出來)

編號姓名
1    林小明
2    張大同
3    李小璇

樓主熱帖

lionliu

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

20^#

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

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

lionliu

lionliu

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

19^#

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

我和版大有一樣問題

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

lionliu

GBKEE

帖子: 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
很好的建議,此程序是依照樓主的需求,所量身製作的故沒加上你建議的程式碼.

FAlonso

帖子: 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列),搞得車毁人亡

winston219

　暱稱: 小溫
　頭銜: Dr.

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

論壇贊助勳章

16^#

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

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

oobird

　頭銜: 街友一族

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

論壇貢獻勳章

15^#

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

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

winston219

　暱稱: 小溫
　頭銜: Dr.

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

論壇贊助勳章

14^#

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

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

oobird

　頭銜: 街友一族

帖子: 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表示有看不到的字符存在。

GBKEE

帖子: 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

複製代碼