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 開始為假,則...