检查上面的值以识别与一个项目相同的值

时间:2015-11-11 18:05:24

标签: excel vba excel-vba excel-formula

我有一个如下所示的数据集:

ID  Item       No of items    No of items ordered
1   Vauxhall   
2   Vauxhall                         40
3   Vauxhall       30                 
4   Vauxhall                         60
6   Vauxhall  
7   Vauxhall       40
8   Vauxhall                         25
9   Vauxhall       
10  BMW            30
11  BMW  
12  BMW            25
13  BMW            
14  BMW                              55
15  BMW  
16  BMW  
17  BMW            20
18  BMW  

每个项目有九行。我希望VBA代码或公式查看活动单元格上方的“项目”,如果“项目”相同且“项目数”字段为空,我希望它复制下一个可用值'上面的单元格中没有“项目”为空。如果一个项目没有下一个可用的“项目数”,则将默认值设为100

我希望看到结果:

ID  Item       No of items    No of Items ordered
1   Vauxhall                          40
2   Vauxhall                          40
3   Vauxhall       30                   
4   Vauxhall                          60
6   Vauxhall       40
7   Vauxhall       40
8   Vauxhall                          25
9   Vauxhall      100 
10  BMW            30
11  BMW            25
12  BMW            25
13  BMW                               55
14  BMW                               55 
15  BMW            20
16  BMW            20
17  BMW            20
18  BMW           100

1 个答案:

答案 0 :(得分:0)

如果ID在A1中,那么您可以尝试在D2中复制以适应:

=IF(B1=B2,"Do something","Do something else")  

VBA的一般原则是相同的(比如If ... Else),但VBA有更多的范围可以做什么或做什么。

关于你的编辑你需要调整上面的公式,以便区分每个组中的最后一个,而不是第一个,比如在E2中复制以适应:

=B2<>B3  

过滤ColumnE以选择TRUE并过滤ColumnC以选择(空白)。填写100然后填写ColumnC,选择它,Go To Special ...,Blanks(仅限),=,Down,Ctrl + Enter(see)。