返回列表 上一主題 發帖

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

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

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

像這樣嗎?

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

TOP

沒錯就這樣測試OK
jackdream大大
又受到你的幫助
感謝再感謝!!
這書本上會教嗎,我怎麼一直查不到....

TOP

本帖最後由 Hsieh 於 2010-7-27 22:25 編輯
這書本上會教嗎,我怎麼一直查不到....
momowu 發表於 2010-7-27 20:08


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

TOP

了解,感謝了,畢竟懂了要用比較方便

TOP

        靜思自在 : 站在半路,比走到目標更辛苦。
返回列表 上一主題