EXCEL公式或者VB,求大神指导

发布网友发布时间：2022-05-25 20:30

共2个回答

热心网友时间：2024-03-29 19:40

是要在sheet2的A或N列显示sheet1中A列+B列的内容么？如果是，可以：

sheet2A1输入公式：=IF(ISERROR(FIND("呵呵",Sheet1!A1)),Sheet1!A1,"")&IF(ISERROR(FIND("呵呵",Sheet1!B1)),Sheet1!B1,"")
sheet2N1输入公式：=IF(ISERROR(FIND("呵呵",Sheet1!A1)),"",Sheet1!A1)&IF(ISERROR(FIND("呵呵",Sheet1!B1)),"",Sheet1!B1)
然后下拉填充公式。

按你补充的看追问，可以将公式这样改：
sheet2A1输入公式：=IF(ISERROR(FIND("呵呵",Sheet1!B1)),Sheet1!A1,"")
sheet2A2输入公式：=IF(ISERROR(FIND("呵呵",Sheet1!B1)),Sheet1!B1,"")
sheet2M1输入公式：=IF(ISERROR(FIND("呵呵",Sheet1!B1)),"",Sheet1!A1)
sheet2N1输入公式：=IF(ISERROR(FIND("呵呵",Sheet1!B1)),"",Sheet1!B1)追问你这样用公式就有一个小问题，那就是会出现空行的情况，能否让其自动排序呢？

追答可以筛选，选择空单元格，然后选中，删除。也可以不删除，筛选非空单元格，这样，记录行与前表会有对应。

热心网友时间：2024-03-29 19:40

sub check()
with sheet1
for i=1 to .Range("B65536").End(xlUp).Row
if instr(.cells(i,1),"呵呵")>0 then
t=t+1
sheet2.cells(t,1)=.cells(i,14)
end if
if instr(.cells(i,2),"呵呵")>0 then
n=n+1
sheet2.cells(n,1)=.cells(i,14)
end if
if instr(.cells(i,1),"呵呵")=0 and instr(.cells(i,2),"呵呵")=0 then
c=c+1
sheet2.cells(t,1)=.cells(i,2)
end if
next
end with
end sub

手工写的，大致应该差不多。追问额！我没表述清楚，列B中含有“呵呵‘字符的，那么对应的列A列B的就放到sheet2表中的N列M列，如果没有就放到sheet2表中的A列B列