按alt+F11进入VBA,插入新模块,编写如下代码:
Sub work()
'假设sheet1是数据源,sheet2是将符合条件的内容粘贴到的工作表
m = 2 '设置初值m,m是sheet2开始粘贴的初始行
For i = 1 To 1000
If Sheet1.Cells(i, 1) = "" Then '如果遇到空值则退出循环
Exit For
End If
If Sheet1.Cells(i, 4) = "录取" Then '筛选条件,其中cells(i,4)中,i是行号,4是列号(及“录取”所在列,这个4是我假设的)
For j = 1 To 10 '哪一列到哪一列要复制,我假设的是从第一列到第十列是要复制的
Sheet2.Cells(m, j) = Sheet1.Cells(i, j)
Next j
m = m + 1
End If
Next i
End Sub
然后执行宏就可以了
在表1中找一个字段,在表2中输入这个公式VLOOKUP(表2!符合字段,表1!范围,2,false),最好把你的例子发上来。
筛选A列包含a的所有字段名
=OFFSET(Sheet1!$A$1,SMALL(IF(ISERROR(FIND("录取",Sheet1!A:A)),100000,ROW(Sheet1!A:A)),ROW(a1))-1,COLUMN(A1)-1,1,1)
ctrl+shif+回车
右拉,下拉
假设录取在 sheet1的A列
设置一个范围~~~要是有数字的话 就设置一个数字的范围 达标的和不达标的就会按不同的颜色显示出来
=IF(COUNTIF(A1,"录取"),A1,"")