返回列表 上一主題 發帖

[發問] 自動增加列問提請教

KITTYBOY
　暱稱: KITTYBOY
　頭銜: KITTYBOY

小學生Rank: 1

帖子
29 
主題
11 
精華
0 
積分
41 
點名
0  
作業系統
WINDOW XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-4 
最後登錄
2011-11-1 

論壇贊助勳章論壇榮譽勳章
1# 跳轉到 » 正序看帖
打印
tT
發表於 2011-10-31 17:04 | 只看該作者

[發問] 自動增加列問提請教

本帖最後由 GBKEE 於 2011-11-1 11:13 編輯

Dear  all 大大 -
   如附檔. 請教於a欄每列有數字之下方自動新增一列.程式如何書寫
    煩不吝賜教  thanks*10000

1.rar (1.63 KB)

收藏 分享

KITTYBOY
　暱稱: KITTYBOY
　頭銜: KITTYBOY

小學生Rank: 1

帖子
29 
主題
11 
精華
0 
積分
41 
點名
0  
作業系統
WINDOW XP 
軟體版本
OFFICE 2003 
閱讀權限
10 
性別
男 
註冊時間
2010-5-4 
最後登錄
2011-11-1 

論壇贊助勳章論壇榮譽勳章
3#
發表於 2011-11-1 08:05 | 只看該作者
回復 2# chin15


    DEAR  大大
            TEST  OK  感謝指導  THANKS    ROBERT 11/01

TOP

chin15

帖子
227 
主題
3 
精華
1 
積分
273 
點名
0  
作業系統
XP 
軟體版本
XP 
閱讀權限
20 
性別
女 
註冊時間
2011-3-22 
最後登錄
2013-1-29 
2#
發表於 2011-10-31 23:51 | 只看該作者
  1. For i = [a65536].End(xlUp).Row To 2 Step -1
  2. Rows(i).Insert
  3. Next
複製代碼

TOP

        靜思自在 : 不要小看自己，因為人有無限的可能。
返回列表 上一主題