判斷sheet1裡f列裡單元格的內容是否在sheet2,a列裡,如果不在則將該單元格所在行刪除

2022-05-14 09:30:03 字數 3971 閱讀 5477

1樓:明佳妙明

sub 不符合刪除行()

dim r1 as long, r2 as long, i as long, j as long, n as long, m() as long, k as long

r1 = activeworkbook.sheets("sheet1").range("f1048576").end(xlup).row

r2 = activeworkbook.sheets("sheet2").range("a1048576").end(xlup).row

n = 0

k = 0

redim m(r1)

for i = 1 to r1

for j = 1 to r2

if activeworkbook.sheets("sheet1").cells(i, 6).

value = activeworkbook.sheets("sheet2").cells(j, 1).

value then

n = 1

exit for

end if

next j

if n = 1 then

n = 0

else

k = k + 1

m(k) = i

end if

next i

for i = k to 1 step -1

activeworkbook.sheets("sheet1").rows(cstr(m(i)) & ":

" & cstr(m(i))).delete shift:=xlup

next i

end sub

注意備份才處理,否則儲存資料無恢復。

2樓:智者總要千慮

heet2:a1單元格公式:

=if(countif(sheet1!b:b,c1),"刪除","")

下拉複製公式

對a列自動篩選。篩選出有刪除字樣的。刪除整行。

怎麼用公式在excel在sheet1某列中查詢是否包含y,如果有則在sheet2某單元格輸出a,不包含輸出b

3樓:匿名使用者

在sheet2的c4輸入

=if(countif(sheet1!d:d,"y")>0,"不參加排名","參加排名")回車。

excel中如何用vba檢查sheet1中a列與c列單元格內容是否一致,不一致的顯示在sheet2中

4樓:小姚

sub aa()

dim sht1, sht2 as worksheetset sht1 = worksheets("sheet1")set sht2 = worksheets("sheet2")i = 2

j = 2

doif sht1.cells(i, 1) = sht1.cells(i, 2) then

else: sht2.cells(j, 1) = sht1.cells(i, 1)

sht2.cells(j, 2) = sht1.cells(i, 2)

j = j + 1

end if

i = i + 1

loop until sht1.cells(i, 1) = ""

end sub

j 和 i 是1還是2 ,你自己設定吧。

實踐過了,望盡快採納!

5樓:匿名使用者

在模組中插入如下vba程式:

sub try()

dim i as long, k as long

k = 1

sheet1.select

for i = 1 to range("a65536").end(xlup).row

if range("a" & i).value <> range("c" & i).value then

sheet2.range("a" & k).value = range("a" & i).value

sheet2.range("c" & k).value = range("c" & i).value

k = k + 1

end if

next i

end sub

excel 根據sheet2中列的資料去判斷sheet1中的資料,刪除sheet2對應的行

6樓:我的王是金閃閃

sheet2:a1單元格公式:

=if(countif(sheet1!b:b,c1),"刪除","")

下拉複製公式

對a列自動篩選。篩選出有刪除字樣的。刪除整行。

7樓:平陽虎

可以用巨集,就是vba**,進行自動比較、自動刪除。

excel中,如果sheet1!d列某一單元格=1,sheet2!a1=該單元格所在行的a的單元格

8樓:迷茫

可以用vba,直接求助**吧。

如何在excel中實現查詢sheet2b列各資料是否在sheet1b列中,如果找到讓sheet2a列位置顯示sheet1a列的相應數

9樓:匿名使用者

可以使用vlookup函式實現,請查詢vlookup函式的幫助資訊以及相應語法,但在sheet1中a列與b列的位置需要交換一下,或者在sheet1的a列前插入一列輔助列,輔助列的內容複製b列的資訊。

兩個excel公式應用問題,問題一:如果sheet2 a列中 包含 sheet1 a列中值,且該值所在的 sheet2 a單元格 20

10樓:我來也

在sheet1工作表的b2單元格輸入陣列公式:

=iferror(index(sheet2!$e$1:$e$28,max(if((len(sheet2!

$a$1:$a$28)>len(substitute(sheet2!$a$1:

$a$28,a3,)))*(len(sheet2!$h$1:$h$28)>len(substitute(sheet2!

$h$1:$h$28,"退",))),row($1:$28),-1)),0),"")

複製並下拉,即可(是陣列公式,輸入公式完畢後必須按住 ctrl+shift並同時按回車鍵enter)

同時,在c2單元格輸入陣列公式:

=iferror(index(sheet2!$b$1:$b$28,max(if((len(sheet2!

$a$1:$a$28)>len(substitute(sheet2!$a$1:

$a$28,a3,)))*(len(sheet2!$h$1:$h$28)>len(substitute(sheet2!

$h$1:$h$28,"退",))),row($1:$28),-1)),0),"")

複製並下拉,即可。

11樓:桓慕凝

vlookup函式即可,sheet2中b2單元格輸入:=vlookup($a1,sheet1!$a$1:$c$3,column(b1),0),然後下拉右拉,可以出現性別和年齡

sheet1中a列單元格的內容如果在sheet2中a1:c9區域內出現的話,則sheet1中相同內容的單元格顯示為紅色 5

12樓:匿名使用者

即使相結合,它在第一小區中也被命名。 。 。如b??1,b2,b3,合併,是計算出的細胞中的b1。

直接的公式即可。 。 a1 = sheet2的! b1。 。 。

13樓:匿名使用者

= indrict(「sheet2的!」匹配(「* a1 *」,sheet2的!答:a,0))

excel**中,如果sheet1 a列與sheet2 a列有相同人,則在sheet3輸出sheet1對應一行的內容。

判斷題求45裡面有幾個九,列式是

答案是錯。應該是 判斷題求45裡面有幾個九,列式是45 9 5.望採納。判斷題45 9 5讀作45除以9等於5對嗎 看了半天終於找到會回答的問題,但有好多人比我先回答!不對表示45裡面有9個5 如果是45 9 5才表示這個意思 如有幫助請採納 正確。是對的,你的讀法是正確的。正確啊或讀作9除45等於...

F1的安全車是做什麼用的,F1裡的安全車起著什麼樣的作用?

當因發生撞車 故障等事件後造成賽道危險處有停止的車輛或碎片時,安全車就會駛上賽道。或者因為下雨等特殊情況造成比賽暫時難以安全的進行下去時,安全車也會駛上賽道。以前發生這種情況時由工作人員在賽道邊揮舞紅旗中止比賽,讓車手們回到起步點在此起步。現在,為了不使比賽被中止而匯入了安全車的制度。這一方法與ca...

請問STM32F103中,while 1 裡的語句執行是多長時間執行一次

如果是乙個賦值語句,應該是三個指令。72m時鐘的話就是差不多0.1微妙左右。while迴圈語句的迴圈體至少執行一次嗎 while迴圈語句的迴圈體不是至少執行一次。while迴圈語句的迴圈體不是至少執行一次。for i 0 i 3 i 若開始滿足 i 3 則不執行 while i 若 i 開始為假,則...