[已解决]关于提取符合条件的单元格的值

beijiren368

大家好：
     我的附件里工作表sheet1里有原始数据。
     1.现在在sheet2里面，想通过条件“部门A”抓取sheet1里符合条件的数据在sheet2里
     2.抓取出来的数据，按照领导力和绩效，分别放在旁边的16宫格里，比如张三和王五，都是部门A的，领导力和绩效都是优，则张三和王五都放在领导力和绩效交叉的H3单元格里，其她人以此类推放在对应的单元格里。
     谢谢了！请大家帮忙了！

最佳答案

月排行榜 / 总排行榜

ligh1298

2013-6-6 07:13

楼主：是不是想要这样的？见附件！

如果满意，请给设置个“最佳答案”！亲。

跳转到最佳答案楼层

1091126096

看看。                     

鱼鱼简澜

。。。。。。。。。。。。。

ligh1298

楼主：是不是想要这样的？见附件！

如果满意，请给设置个“最佳答案”！亲。

hwc2ycy

1. Sub 填充()
   
2.     Dim arr
   
3.     With Sheet1
   
4.         arr = .Range("a1").CurrentRegion.Value
   
5.     End With
   
6.     Dim arrResult(1 To 4, 1 To 4)
   
7.     Dim strRow$, strCol$
   
8.     Dim bRow As Byte, bCol As Byte, i As Byte
   
9.     strRow = "优良中差": strCol = "差中良优"
   
10.     For i = LBound(arr) + 1 To UBound(arr)
    
11.         bRow = InStr(strRow, arr(i, 2))
    
12.         bCol = InStr(strCol, arr(i, 3))
    
13.         If bRow > 0 And bCol > 0 Then arrResult(bRow, bCol) = arrResult(bRow, bCol) & arr(i, 1) & ","
    
14.     Next
    
15.     With Sheet2
    
16.         .Range("e3").Resize(UBound(arrResult), UBound(arrResult, 2)).Value = arrResult
    
17.     End With
    
18. End Sub

复制代码

你定位出行列坐标就成了嘛。这个也不难的。

jamwe

谢谢谢  学习学习