1樓：朱仕平
刪除偶數列內容
sub test()
for i = 128 to 1 step -1columns(i * 2).clear
next
end sub
刪除奇數列內容
sub test()
for i = 128 to 1 step -1columns(i * 2-1).clearnext
end sub
2樓：匿名使用者
sub 清除偶數行內容()
dim rng as range
for each rng in columnsif rng.column mod 2 = 0 then rng.clear
next
end sub
sub 清除偶數行內容()
dim rng as range
for each rng in columnsif rng.column mod 2 = 1 then rng.clear
next
end sub
3樓：姓王的
如果刪除1、3、5、7、9……等奇數列，**如下：
sub abc()
for n = 1 to 128
if worksheetfunction.counta(columns(n)) = 0 then exit for
columns(n).delete
next
end sub
如果刪除2、4、6、8……等偶數列，只將第二句修改即可：
for n = 2 to 128
4樓：匿名使用者
sub del()
dim i as long
'第3行開始 到第200行，間隔一行刪除.自己根據需要修改下面三個數就可以了
for i = 3 to 200 step 2 '
columns(i).clear
next
end sub
如何一次性將excel中的資料每隔一列刪掉一列？
5樓：匿名使用者
1、首先，在最下邊一行輸入數字：「1」和「2」，「1」對應要刪除的那一列，「2」對應要保留的那一列。選擇這兩個單元格，並按住右下角橫向拖。
2、拖到最後一列的時候，點選出現的圖示，選擇「複製單元格」。
3、選擇這一整列，在頁面右上角點選「查詢和選擇」點選「查詢」，4、在查詢內容中輸入「1」，點選「查詢全部」，5、在下方全選所有的查詢結果。
6、選擇其中一個「1」的單元格，右鍵，選擇「刪除」。
7、選擇刪除「整列」，
8、隔列刪除完成，最下行也可以順便刪除，完成效果圖。
6樓：
工具/材料：excel
1、首先在**一行空白輔助行裡面輸入1，2，1，2的數字。
2、然後選中這一行，ctrl+f快捷鍵將查詢和替換功能開啟，並在查詢內容裡面輸入1，點選全部查詢。
3、這樣就將帶有一的單元格全部查詢出來，在裡面將查詢的結果全部選中。
4、然後將查詢功能關閉，右鍵單擊滑鼠點選刪除選項。
5、彈出來的刪除視窗裡面選擇整列。
6、最後點選確定，這樣可以一次性將excel中的資料每隔一列刪掉一列。
7樓：七星小蘑菇
1、在不使用的行裡，需要保留的列對應的單元格內輸入1。
2、選中前兩個單元格。
3、向右拖動填充柄複製。
4、按f5開啟定位對話方塊，點選定位條件。
5、選擇物件，確定。
6、在選中的任一單元格點選右鍵，點選刪除。
7、選擇整列，確定。
8、刪除下方輔助資料，完成。
8樓：
解決方法（如下圖，雙擊檢視大圖）：
1、在一行輔助行輸入1，2，1，2，1，2，1，2，向右複製到最後；
2、查詢其中一個數字，如1，查詢全部，ctrl+a全選，關閉查詢視窗，在查詢的內容上右鍵，刪除，整列，確定。
9樓：渢
之前用過類似的功能,用的是錄製巨集,然後改下巨集的**,加個迴圈重複操作多少次.其實excel的巨集是拿vb編寫的,懂vb的話很好實現.
excel巨集 批量刪除列
10樓：
sub abc()
dim s
dim y(20) as integer '如果刪除的列數多餘20列，怎在次修改列數
dim i, j, k as integer
s = array(5, 6, 10, 11) '需要刪除的列
k = 0
for each i in s '倒置，從右側開始刪除，避免左側的列號改變
y(k) = i
k = k + 1
next
for j = k - 1 to 0 step -1 '刪除操作
debug.print y(j)
cells(, y(j)).select
selection.delete shift:=xltoleft
next
end sub
11樓：匿名使用者
sub d()
dim s(254) as long
dim k as long
for i = 5 to 255 step 5s(k) = i
s(k + 1) = i + 1
k = k + 2
next
for i = 254 to 0 step -1if s(i) <> 0 then
columns(s(i)).delete
end if
next i
end sub
在excel中，如何批量的每隔一列刪除五列？
12樓：繁仁尉緞
可以用一個代替的辦法，隔行插入的話，可以在右邊利用一個空列，假設為f列，f1中輸入1，f2中輸入2，選中f1：f2，用自動填充柄下拉到資料結束，如果資料在a1：g100，那就拉到f100，f101中輸入1.
5，f102行中輸入2.5，將f101：f102行下拉到f200行，再利用這個空列排序，就可以將空行插入了，插入之後，將輔助的空列中資料刪除。
13樓：朱仕平
在第一行插入空行
bcdef第一行輸入任意資料
選擇a1:f1單元格,向右填充到最右端
選擇第一行
f5定位常量
確定選單》格式》刪除》刪除列,,整列
14樓：寒塘鶴影
可以用巨集實現，按alt+f11，然後把這個**放複製進去，然後點上面那個執行符號（一下小三角，在工具欄中間位置），這個程式可以完成100列，如果不夠你可以該裡面的i的值，i 越大修改的列越多。
sub macro1()
'' macro1 macro
'dim i as single
for i = 100 to 1 step -1 』這個地方的100可以修改，有多少列就可以改成多少
if i mod 6 <> 1 then
columns(i).select
selection.delete shift:=xltoleftend if
next i
end sub
excel中用巨集批量刪除特定列
15樓：匿名使用者
public sub del_col(a, b) 'a為首列位置，b為末列數，按1,2,3 填寫
'a列為1,b列為2依次類推，sheet_n 為dim i as integer
for i = a to b
range(cstr(chr(96 + a) & ":" & chr(96 + a))).delete
next i
end sub
16樓：匿名使用者
sub test()
dim tempcol, tempcount as integer
dim ws as worksheet
set ws = activesheet
dim tempvalue as string
for tempcol = 1 to ws.usedrange.columns.count
if ws.cells(1, tempcol) <> "" then tempvalue = ws.cells(1, tempcol)
if instr(1, ws.cells(2, tempcol), "專案1") or instr(1, ws.cells(2, tempcol), "專案3") or instr(1, ws.
cells(2, tempcol), "專案5") or instr(1, ws.cells(2, tempcol), "專案8") then
ws.columns(tempcol).delete
tempcol = tempcol - 1
elseif ws.cells(2, tempcol) = "" then
exit for
else
tempcount = tempcount + 1
end if
if ws.cells(1, tempcol + 1) <> "" or tempcol = ws.usedrange.columns.count then
ws.cells(1, tempcol - tempcount + 1) = tempvalue
tempcount = 0
end if
next
end sub試試吧
17樓：匿名使用者
自己錄製一個吧。別懶
excel 怎麼用巨集刪除指定列的資料
18樓：
比如刪除a列 >10的資料
sub 刪除()
dim i%
for i = 1 to range("a65536").end(xlup).row
if cells(i, "a") > 10 thencells(i, "a") = ""
end if
next
end sub
excel一列中怎麼刪除重複項，Excel一列中，如何刪除重複的資料？相同資料只保留一個？
第一種情況 在b1單元格輸入公式 if a1 a2,a1 然後複製下拉,再將b列的空格刪除或者排序後就可以了.第二種情況 先將a列的資料先排序後再按第一種情況的方式操作就可以了.在表前增加一列，此時序號列變為b列，用公式 if b1 b2，1 0 然後將a列重新貼上一次，再用排序的方法就可以了，我剛...
excel怎麼把從一列到另一列的資料刪除
方法 將想要刪除的哪一行隱藏，這樣就不會更改結果了 將顯示結果的這欄資料複製下來，再在相同的位置上用 選擇性貼上 再選 數值 進行貼上即可。可利用公式實現此功能。具體操作如下 以將a列資料新增到b列的空白處為例 首先在任意其他列輸入公式 if b1 a1,b1 然後點選enter 將滑鼠停放在單元格...
excel 用vba如何刪除一列中的重複資料
1 開啟要進行資料處理的 2 按alt f11，進入vbe程式操作頁面，3 將滑鼠下移，右鍵彈出如圖，4 選擇插入 模組，5 滑鼠向右移動，將如下 寫入 sub test dim d as object dim r i dim arr set d createobject scripting.dic...