凡是某單元有特定字元的,則刪除整行 (VBA )

2021-07-31 07:21:09 字數 514 閱讀 8261

有個工作表,有n行n列,b列是領料部門,c列是領料用途,e列是發料倉庫,凡是b列有「研發部」、「技術部」,則整行刪除;

凡是c列有「檢測」、「修理」、「生產」,則整行刪除;凡是e列有「基建倉庫」、「成品倉庫」,則整行刪除。

sub delrows() 

dim arr, k&

arr = [a1].currentregion

for k = ubound(arr) to 1 step -1

if instr(arr(k, 2), "研發部") + instr(arr(k, 2), "技術部") + _

instr(arr(k, 3), "檢測") + instr(arr(k, 3), "修理") + instr(arr(k, 3), "生產") + _

instr(arr(k, 5), "基建倉庫") + instr(arr(k, 5), "成品倉庫") then

rows(k).delete

end if

next

end sub

刪除字串中的特定字元

當要刪除字串中的特定字元時,只需要用find 和erase 兩個函式搭配使用即可,find 用於找到特定字元的位置,而erase 則用於刪除該位置上的字元。find c,pos 表示從pos這個位置開始找c字元 erase pos,n 表示從pos這個位置開始刪除n個字元 例如下面就是我寫的乙個刪除...

在字串中刪除特定的字元

題目 輸入兩個字串,從第一字串中刪除第二個字串中所有的字元。例如,輸入 they are students.和 aeiou 則刪除之後的第乙個字串變成 thy r stdnts.分析 這是一道微軟面試題。在微軟的常見面試題中,與字串相關的題目佔了很大的一部分,因為寫程式操作字串能很好的反映我們的程式...

在字串中刪除特定的字元

63.在字串中刪除特定的字元。題目 輸入兩個字串,從第一字串中刪除第二個字串中所有的字元。例如,輸入 they are students.和 aeiou 則刪除之後的第乙個字串變成 thy r stdnts.string firststr,secondstr int m firststr.size ...