excel vba刪除符合條件的內容

1樓：慶年工坊

sub xx()

s = [f2]

for i = 1 to 10

for j = 1032 to 1017 step -1k = mid(cells(j, i), 2, 1)if instr(s, k) > 0 thencells(j, i).delete

end if

end sub

excel 怎麼用vba高效刪除符合條件的行

2樓：陽光上的橋

刪除很是很慢的，如果刪除後剩餘資料量不是太巨大，可以把要的資料取到陣列中，清空內容後輸出；如果刪除的資料較少、剩下的資料巨大，可以增加輔助列，掃描時候更新輔助列數值，然後按照輔助列排序，可以把需要刪除的部分排到末尾，然後一次性刪除行或者清除內容。

excel vba刪除與條件符合的內容 **3

3樓：慶年工坊

sub cxx()

arr = split([f3], "/")n = ubound(arr) + 1

redim s(1 to n, 1 to 2)for i = 0 to ubound(arr)s(i + 1, 1) = left(arr(i), 1)s(i + 1, 2) = right(arr(i), 1)next

for i = 1 to 10

for j = 1032 to 33 step -1for k = 1 to n

c = cells(j, i)

if (mid(c, 1, 1) - -mid(c, 4, 1)) mod 10 - s(k, 1) = 0 and (mid(c, 3, 1) - -mid(c, 3, 1)) mod 10 - s(k, 2) = 0 then

cells(j, i).delete shift:=xlupexit for

end if

end sub

4樓：

temp = range("a33:j1032").replace(range("f3"), "", xlwhole)

在excel表中如何使用vba程式自動篩選出符合條件的資料並刪除

5樓：匿名使用者

一般採用倒序的方式：例如，將d列中為「否」的整行刪除：

sub test()

for i = cells(rows.count, 4).end(xltoup).row to 1

if range("d" & i) = "否" thenrange("d" & i).entirerow.deleteend if

end sub

6樓：匿名使用者

假定你刪選的條件是單元格資料》10

sub test（）

set a=thisworkbook.sheets("sheet1")

dim mycell as range

for each mycell in a.usedrangeif mycell>10 then

mycell.clear

end if

end sub

excel vba刪除範圍內容

7樓：魚木混豬喲

軟體版本：office2007

舉例來說明如下：

1.將底自色為黃色的範圍內的內容刪除：

2.alt+f11，輸入**如下：

range("b3:c7").clearcontents '將區域b3:c7內容清空

3.f5執行**，關閉vbe，返回excel得到結果如下：

8樓：慶年工坊

sub s()

dim rg as range, c as rangeset rg = [a39:j1039]

t1 = [l30]

t2 = [o32]

ca = array(1, 4)

cb = array(2, 3)

for each c in rg

s1 = (val(mid(c, ca(0), 1)) + val(mid(c, ca(1), 1))) mod 10

s2 = (val(mid(c, cb(0), 1)) + val(mid(c, cb(1), 1))) mod 10

if instr(t1, s1) > 0 and instr(t2, s2) > 0 then c = ""

end sub

excel vba與查詢條件的符合內容全部快速刪除

9樓：慶年工坊

sub qxx()

s = [f2]

for i = 1 to 10

for j = 1032 to 33 step -1k = mid(cells(j, i), 2, 1)if instr(s, k) > 0 thencells(j, i).delete shift:=xlupend if

end sub

excel vba刪除與條件符合的內容 **2

10樓：慶年工坊

sub bxx()

arr = split([f2], "/")n = ubound(arr) + 1

redim s(1 to n, 1 to 2)for i = 0 to ubound(arr)s(i + 1, 1) = left(arr(i), 1)s(i + 1, 2) = right(arr(i), 1)next

for i = 1 to 10

for j = 1032 to 33 step -1for k = 1 to n

c = cells(j, i)

if (mid(c, 1, 1) - -mid(c, 3, 1)) mod 10 - s(k, 1) = 0 and (mid(c, 2, 1) - -mid(c, 4, 1)) mod 10 - s(k, 2) = 0 then

cells(j, i).delete shift:=xlupexit for

end if

end sub

11樓：

temp = range("a33:j1032").replace(range("f2"), "", xlwhole)

excel vba 怎樣刪除某一列符合某個條件的行

12樓：慶年工坊

比如刪除d列空白的行

sub s()

dim c%, i%

c = cells(rows.count, 4).end(3).row

for i = c to 1 step -1if cells(i, 4) = "" then rows(i).delete

end sub

13樓：匿名使用者

刪除第3行，可以用語句：

rows(3).delete

excel vba刪除符合條件的內容

符合退休的條件是什麼

符合離婚的條件有哪些，離婚要滿足哪些條件，離婚的條件有哪些

sql server如何查詢多個符合條件記錄

相關推薦