返回列表 上一主題 發帖

[發問] 求選取整欄並刪除的方式

momowu

帖子
37 
主題
10 
精華
0 
積分
176 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-6-22 
最後登錄
2014-1-16 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2010-7-27 17:51 | 只看該作者

[發問] 求選取整欄並刪除的方式

hi dear all
以下我寫了個小巨集lastcolumn
目的是sheet2的a1輸入數值後複製至
sheet1最後沒有資料的一欄(e1),執行OK
因為資料來源會創造出F欄,
所以需要有第二個小巨集是要刪除sheet1有資料的倒數第二欄"整欄"(e欄)




因為目前VBA僅能找到最後一欄的那一個cell但無法是整欄,
請問有其他辦法可以選取整欄並刪除嗎
謝謝~
ps.此為第一個小巨集
Sub lastcolumn()
Sheets("Sheet2").Activate
Sheets("Sheet2").Select
Range("a1").Copy
With Sheets("Sheet1")
    .Paste .Range("a1").End(xlToRight).Offset(0, 1)
End With
End Sub
收藏 分享

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
2#
發表於 2010-7-27 18:42 | 只看該作者
像這樣嗎?

'刪除倒數第二欄
Columns([IV1].End(xlToLeft).Column - 1).EntireColumn.Delete

TOP

momowu

帖子
37 
主題
10 
精華
0 
積分
176 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-6-22 
最後登錄
2014-1-16 
3#
發表於 2010-7-27 20:08 | 只看該作者
沒錯就這樣測試OK
jackdream大大
又受到你的幫助
感謝再感謝!!
這書本上會教嗎,我怎麼一直查不到....

TOP

jackdream
　暱稱: Jack

中學生Rank: 2

帖子
133 
主題
9 
精華
0 
積分
147 
點名
0  
作業系統
Win10 
軟體版本
Office 2010 
閱讀權限
20 
性別
男 
來自
高雄 
註冊時間
2010-5-1 
最後登錄
2024-11-11 
4#
發表於 2010-7-27 20:34 | 只看該作者
本帖最後由 Hsieh 於 2010-7-27 22:25 編輯
這書本上會教嗎,我怎麼一直查不到....
momowu 發表於 2010-7-27 20:08


在 VBA 的編輯畫面,按下 F1 會有很多相關說明文件

TOP

momowu

帖子
37 
主題
10 
精華
0 
積分
176 
點名
0  
作業系統
windows 7 
軟體版本
office 2007 
閱讀權限
20 
性別
男 
註冊時間
2010-6-22 
最後登錄
2014-1-16 
5#
發表於 2010-7-27 20:55 | 只看該作者
了解,感謝了,畢竟懂了要用比較方便

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題