Excel vba刪除特定的最后幾列

Excel vba刪除特定的最后幾列

今天朋友問了我一個這樣的問題，他要刪除100個工作簿的第一個工作表特定行的最后6列，

他問我有什么方法，他不想一個個打開一個個刪，這樣很費手。我想了下，在保證他每個工作簿所要的工作表正好都是第一個的前提下。我給他寫了這樣一段代碼。

Sub aa()

h = [dz1].End(xlToLeft).Column ‘判斷最后一個非空的列

For i = h To h – 5 Step -1 ‘循環(huán)

Columns(i).Delete ‘滿足條件行的刪除

Next

End Sub

我上面選dz1的原因是保證從一個較大的列標向左取，dz基本是快第100列。肯定是可以的。

這樣的話，最后6列就被刪除了。VBA的操作是不可逆的，所以操作前我們應該要先備份數(shù)據(jù)，這本身就是工作的良好習慣養(yǎng)成。100個工作簿就能很容易的搞定了。

這幾段VBA代碼，看似很簡單的。但也要花些功夫去學習的。而且首先要先去熟練函數(shù)，然后才適合去涉及VBA.

版權聲明：本文內容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內刪除侵權內容。

版權聲明：本文內容由網(wǎng)絡用戶投稿，版權歸原作者所有，本站不擁有其著作權，亦不承擔相應法律責任。如果您發(fā)現(xiàn)本站中有涉嫌抄襲或描述失實的內容，請聯(lián)系我們jiasou666@gmail.com 處理，核實后本網(wǎng)站將在24小時內刪除侵權內容。