1樓：匿名使用者
sub test()
num = 256
for i = 1 to 256
if cells(4, num).value like "*max*" or cells(4, num).value like "*min*" then
columns(num).delete
end if
num = num - 1
next
end sub請測試
2樓：一年孤獨
sub deletecolumns()
dim i as long, maxcol as longdim str as string
maxcol = cells(4, columns.count).end(xltoleft).column
for i = maxcol to 1 step -1str = cells(4, i)
if (str like "*min*") or (str like "*max*") then
cells(4, i).entirecolumn.deleteend if
next i
end sub
寫好時發現已經有知友回答了, 而且他的回答很贊. 但是既然寫了就貼出來吧, 結果都一樣, 細節處理略有不同.
請問如何使用vba刪除某一列單元格的中包含某特定字元所在的行
3樓：匿名使用者
點你想刪的那一行滑鼠右鍵就可以看到刪除
4樓：匿名使用者
sub 刪除e列包含@的行()
dim endh, i as long
endh = range("e65536").end(xlup).row
for i = endh to 1 step -1xx = range("e" & i).valueif instr(xx, "@") <> 0 then '@就是要找到指定的特定字元 可以改成你指定的其回
他字元range("e" & i).entirerow.delete 'e列是指定要查詢答的列.狂野改成你指定的其他列
end if
next
msgbox "已刪除e列包含@ 的行!"
end sub
在excel中 如何用vba查詢某特定單元格並返回該單元格的行和列值？
5樓：小周喜歡熬夜
在工作表中我們經常使用查詢功能，在一列中查詢某個內容，查詢下一個，那在vba中我們該如何進行查詢呢？
我們希望通過輸入班級，點選篩選就能出來想要的內容，這裡我忘了在篩選之前先做個清除，所以篩選二班記錄時，三班的記錄沒有被清除掉。
我們要把某個班級的記錄篩選出來，那麼就希望首先在對應的列裡找到某個班級所在的單元格，這裡就用到了find，找到後就把該行復制到對應位置，然後繼續查詢下一個。我們就可以使用vba**：
sub 篩選()dim rng1, rng2, rng3 as range, addr$, adr$set rng1 = range("a:a").find(range("e6").
value)addr = rng1.addressdo set rng1 = range("a:a").
findnext(rng1) adr = rng1.address set rng2 = cells(rows.count, "e").
end(xlup)(2, 1) set rng3 = rng1.entirerow.range("a1:
c1") rng3.copy rng2loop until addr = rng1.addressend sub
6樓：匿名使用者
dim flag as boolean
flag=false
for i=1 to usedrange.rows.countfor j=1 to usedrange.
columns.countif cells(i,j)="weight/mt contents" then
rows(i+1).insert shift:=xldownrows("1:"& i).delete shift:=xlupflag=true
exit for
end if
next j
if flag then exit fornext i
中如何將一行文字中的幾個字分成兩行
材料 工具 word2010 1 啟動microsoft word 2010程式，為了讓效果更明顯，在文件中至少輸入兩行以上的內容。回 2 在一行中顯答示兩行的文字，實際上就是利用word的 雙行合一 功能。首先選中要設定成兩行的文字。3 單擊 開始 選單選項卡，在工具欄中選擇 中文版式 按鈕。中文...
如何將EXCEL中的後幾列變為下一行的前幾列
請問樓主 a行b行c行是什麼意思?因為在excel表中,只有a列b列c列之分 假設原表為sheet1表,在sheet2表的a1輸入 offset sheet1 a 1,mod 2 row a1 column a1 3,4 int row a1 1 2 offset sheet1 a 1,int ro...
shell如何將一行的資料求累加值？網上很多awk都是
如果一個a.txt檔案中有一行資料，每個用空格隔開的 1 2 5 23 4 77 23 4 6 那麼可以用awk計算一行的 版數權據求和 awk a.txt 就會輸出一行的求和結果。如果有多行的話，上面的程式會輸出每一行的求和結果。使用awk不僅可以計算行，也可以計算列，行列一起都可以計算。echo...