項次自動變更 - Excel程式區 - 麻辣家族討論版版

[發問] 項次自動變更

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

1^# 跳轉到 »

發表於 2012-7-24 16:18 | 顯示全部帖子

回復 1# toxin
看不出你是要如何改變

可以的話開檔或存檔的時候可以自動執行設定好的巨集嗎
如圖

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

2^#

發表於 2012-7-25 15:33 | 顯示全部帖子

回復 3# toxin

Option Explicit
Sub Ex()
Dim Rng As Range, R As Integer, i As Integer
Set Rng = Range("a1").CurrentRegion 'CurrentRegion : 取得A欄的目前區域-> 是指以任意空白列及空白欄的組合為邊界的範圍
R = 1 '項次從1 開始
i = 2 '第2列開始
Do
Rng.Cells(i, 1) = R 'Rng.Cells(i, 1) :目前區域的第一欄
i = i + Rng.Cells(i, 1).MergeArea.Rows.Count '計算儲存格合併範圍的列數
R = R + 1 '項次再加1
Loop While i <= Rng.Rows.Count '執行迴圈: Rng.Rows.Count - 計算範圍的列數
End Sub

複製代碼

靜思自在 : 發脾氣是短暫的發瘋。