[發問] 項次自動變更

toxin

請問各位大師
如附件sheet1一樣項次給予了
而要刪除第五項
變成像是sheet2一樣
要如何做??
可以的話開檔或存檔的時候可以自動執行設定好的巨集嗎?

0724.rar (1.69 KB)

下載次數: 7

2012-7-24 16:05

toxin

回復 4# GBKEE

感謝GBKEE版主的大力幫忙
試驗過一切正常
小部份因需求問題我在自己改就好了謝謝

GBKEE

回復 3# toxin

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

複製代碼

toxin

回復 2# GBKEE

抱歉還沒改...
所以要看內文
主要是sheet1的第10列刪除時
第7項次自動改成第6項次

GBKEE

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

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

下載 (68.45 KB)

2012-7-24 16:18