将查找到符合条件的单元格，求教

lxyjlyg

将查找到符合条件的单元格时，将该单元格所在行的其他所需要的数据，拷贝到另一个数据表，有附件，有说明，谢谢

鱼东东

搞定了 请看看是否满足要求

chenbiao2012

Sub 筛选出不是汉族的考生()
Dim rng As Range
Dim n As Integer
For Each rng In Sheet1.Range("p2:p" & Cells(Rows.Count, 1).End(xlUp).Row)
If rng.Value <> "汉族" Then
n = n + 1
Sheet2.Cells(n, 1) = Sheet1.Cells(rng.Row, "g")    '也可以用rng.offset(,-9)
Sheet2.Cells(n, 2) = Sheet1.Cells(rng.Row, "af")
Sheet2.Cells(n, 3) = Sheet1.Cells(rng.Row, "f")
Sheet2.Cells(n, 4) = "少数民族考生，请核实身份证"
End If
Next

End Sub

chenbiao2012

如果要加表头如下：
Sub 筛选出不是汉族的考生()
Dim rng As Range
Dim n As Integer
Sheet2.Cells(1, 1) = “姓名"
Sheet2.Cells(1, 2) = "身份证号"
Sheet2.Cells(1, 3) = "报考点名称"
For Each rng In Sheet1.Range("p2:p" & Cells(Rows.Count, 1).End(xlUp).Row)
If rng.Value <> "汉族" Then
n = n + 1
Sheet2.Cells(n+1, 1) = Sheet1.Cells(rng.Row, "g")    '也可以用rng.offset(,-9)
Sheet2.Cells(n+1, 2) = Sheet1.Cells(rng.Row, "af")
Sheet2.Cells(n+1, 3) = Sheet1.Cells(rng.Row, "f")
Sheet2.Cells(n+1, 4) = "少数民族考生，请核实身份证"
End If
Next

End Sub