[已解决]请帮助看看如何使B列显示符合条件的数据，用代码，谢谢

chensir

如果A列是“人事行政部”、“财务部”、“资讯部”、“商务工程部”、“培训企划部”，那么B列显示为“大区”，但如果同时D列中含“租金”或“物业”，B列显示C列中数据，其他条件B列均为C列中数据

最佳答案

月排行榜 / 总排行榜

dsmch

2014-2-27 13:41

a8和要求不一致，是否有误？

1. Sub Macro1()
   
2. Dim arr, brr, zf$, i&
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 1, 1 To 1)
   
5. zf = "人事行政部,财务部,资讯部,商务工程部,培训企划部"
   
6. For i = 2 To UBound(arr)
   
7.     If InStr(zf, arr(i, 1)) Then
   
8.         brr(i - 1, 1) = "大区"
   
9.         If InStr(arr(i, 4), "租金") > 0 Or InStr(arr(i, 4), "物业") > 0 Then brr(i - 1, 1) = arr(i, 3)
   
10.     Else
    
11.         brr(i - 1, 1) = arr(i, 3)
    
12.     End If
    
13. Next
    
14. Range("b2").Resize(UBound(brr)) = brr
    
15. End Sub
    

复制代码

跳转到最佳答案楼层

冥王

1. Sub jj()
   
2. Dim r As Long
   
3. Dim i As Long
   
4. Dim mystr As String
   
5. r = Cells(1, 1).End(xlDown).Row
   
6. 
   
7. For i = 2 To r
   
8.    If Cells(i, 1) = "人事行政部" Or Cells(i, 1) = "财务部" Or Cells(i, 1) = "人事行政部" Or Cells(i, 1) = "资讯部" Or Cells(i, 1) = "商务工程部" Or Cells(i, 1) = "培训企划部" Then
   
9.       If InStr("租金", Cells(i, 4)) > 0 Or InStr("物业", Cells(i, 4)) > 0 Then
   
10.          Cells(i, 2) = "大区"
    
11.       Else
    
12.          Cells(i, 2) = Cells(i, 3)
    
13.       End If
    
14.    Else
    
15.       Cells(i, 2) = Cells(i, 3)
    
16.    End If
    
17. Next
    
18. End Sub
    

复制代码

冥王

表格中的“培训企划部”有个错别字，写成了“培训企化部”

dsmch

a8和要求不一致，是否有误？

1. Sub Macro1()
   
2. Dim arr, brr, zf$, i&
   
3. arr = Range("a1").CurrentRegion
   
4. ReDim brr(1 To UBound(arr) - 1, 1 To 1)
   
5. zf = "人事行政部,财务部,资讯部,商务工程部,培训企划部"
   
6. For i = 2 To UBound(arr)
   
7.     If InStr(zf, arr(i, 1)) Then
   
8.         brr(i - 1, 1) = "大区"
   
9.         If InStr(arr(i, 4), "租金") > 0 Or InStr(arr(i, 4), "物业") > 0 Then brr(i - 1, 1) = arr(i, 3)
   
10.     Else
    
11.         brr(i - 1, 1) = arr(i, 3)
    
12.     End If
    
13. Next
    
14. Range("b2").Resize(UBound(brr)) = brr
    
15. End Sub
    

复制代码

dsmch

………………

chensir

冥王 发表于 2014-2-27 13:25

多谢