关于if后面多个and的的，百思不得其解为什么不行

roadtolondon

大家看我的例子，运用IF AND 作条件判断，其中有些项目需要三个条件，因此用了三个and，但是除了单个条件可以判断，其他都失败了，想了好久都没想明白哪里错了，求大神救急啊~

vbee

注意大小写。。。

vbee

"LOAN   "
"REV "

都有空格，还有全角

roadtolondon

哦大小写确实没注意，但是问题还没解决！！我发现第三列有些单元格的值是有带空格的，问题是我之前已经用application.worksheetfunction.clean 去过一遍了（去了隐含的双引号），谁告诉我空格为啥去不掉呢

roadtolondon

vbee 发表于 2018-8-5 10:55
注意大小写。。。

哦大小写确实没注意，谢谢指正。但是问题还没解决！！我发现第三列有些单元格的值是有带空格的，问题是我之前已经用application.worksheetfunction.clean 去过一遍了（去了隐含的双引号），空格为啥去不掉呢

vbee

roadtolondon 发表于 2018-8-5 11:09
哦大小写确实没注意，谢谢指正。但是问题还没解决！！我发现第三列有些单元格的值是有带空格的，问题是我 ...

1. Sub test()
   
2. Columns("C:C").Replace " ", ""
   
3. For i = 2 To Sheets("rawdata").Range("b2000").End(xlUp).Row
   
4. 
   
5.    If Cells(i, 2).Value = "拆借" And Cells(i, 3).Value = "LOAN" And Cells(i, 25).Value <> "security" Then
   
6.      Cells(i, 1).Value = "拆出银行同业"
   
7.     ElseIf Cells(i, 2).Value = "拆借" And Cells(i, 3).Value = "LOAN" And Cells(i, 25).Value = "security" Then
   
8.      Cells(i, 1).Value = "拆出非银同业"
   
9.     ElseIf Cells(i, 2).Value = "拆借" And Cells(i, 3).Value = "DEPOSIT" Then
   
10.      Cells(i, 1).Value = "同业拆入"
    
11.     ElseIf Cells(i, 2).Value = "存单发行" Then
    
12.      Cells(i, 1).Value = "发行存单"
    
13.     ElseIf Cells(i, 2).Value = "存单投资" Then
    
14.      Cells(i, 1).Value = "投资存单"
    
15.     ElseIf Cells(i, 2).Value = "存放" And Cells(i, 3).Value = "DEPOSIT" Then
    
16.      Cells(i, 1).Value = "吸收同存"
    
17.     ElseIf Cells(i, 2).Value = "回购" And Cells(i, 3).Value = "REV" Then
    
18.      Cells(i, 1).Value = "债券逆回购"
    
19.     ElseIf Cells(i, 2).Value = "利率券" Then
    
20.      Cells(i, 1).Value = "利率债"
    
21.     ElseIf Cells(i, 2).Value = "非标" Then
    
22.      Cells(i, 1).Value = "非标投资"
    
23.    End If
    
24.    Next
    
25. End Sub
    
26. 
    

复制代码

vbee

Sub test()
Columns("C:C").Replace " ", ""
For i = 2 To Sheets("rawdata").Range("b2000").End(xlUp).Row

   If Cells(i, 2).Value = "拆借" And Cells(i, 3).Value = "LOAN" And Cells(i, 25).Value <> "security" Then
     Cells(i, 1).Value = "拆出银行同业"
    ElseIf Cells(i, 2).Value = "拆借" And Cells(i, 3).Value = "LOAN" And Cells(i, 25).Value = "security" Then
     Cells(i, 1).Value = "拆出非银同业"
    ElseIf Cells(i, 2).Value = "拆借" And Cells(i, 3).Value = "DEPOSIT" Then
     Cells(i, 1).Value = "同业拆入"
    ElseIf Cells(i, 2).Value = "存单发行" Then
     Cells(i, 1).Value = "发行存单"
    ElseIf Cells(i, 2).Value = "存单投资" Then
     Cells(i, 1).Value = "投资存单"
    ElseIf Cells(i, 2).Value = "存放" And Cells(i, 3).Value = "DEPOSIT" Then
     Cells(i, 1).Value = "吸收同存"
    ElseIf Cells(i, 2).Value = "回购" And Cells(i, 3).Value = "REV" Then
     Cells(i, 1).Value = "债券逆回购"
    ElseIf Cells(i, 2).Value = "利率券" Then
     Cells(i, 1).Value = "利率债"
    ElseIf Cells(i, 2).Value = "非标" Then
     Cells(i, 1).Value = "非标投资"
   End If
   Next
End Sub

vbee

1. Columns("C:C").Replace " ", ""

复制代码

roadtolondon

vbee 发表于 2018-8-5 11:15

谢谢，我刚才用instr解决了，我还想了解下，clean杀不了空格么？

vbee

clean清不可见字符
空格应该用TRIM