返回列表 上一主題 發帖

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

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
收藏 分享

momowu

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

TOP

momowu

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

TOP

        靜思自在 : 世上有兩件事不能等：一、孝順 二、行善。
返回列表 上一主題