求大神，下面公式想通过VBA实现，如何写代码？

jbg1002

如果这个公式 =IF(C9="","",IF(C9=B9,"SYB4L-MM-0825-P4",IF(C9="","",VLOOKUP(C9,数据!A:B,2,FALSE)))) 想通过VBA来实现，列是1到最大！用公式感觉数据很大！

mmwwdd

If Range("C9").Value = "" Then
    Range("D9").Value = ""
ElseIf Range("C9").Value = Range("B9").Value Then
    Range("D9").Value = "SYB4L-MM-0825-P4"
Else
    Range("D9").Value = Application.WorksheetFunction.VLookup(Range("C9"), Sheets("数据").Range("A:B"), 2, False)
End If

其中，假设公式的结果要放在D9单元格里面。代码的逻辑与公式基本一致，即如果C9为空，则D9也为空；如果C9等于B9，则D9为"SYB4L-MM-0825-P4"；否则，使用VLOOKUP函数在"数据"工作表中查找C9对应的值，并将结果存放在D9单元格中。

jbg1002

如果按列来求值呢？

zhenghui13

没有附件，没太明白意思。大概的写法如下，如果是求和，就将retValue累加即可

1. Sub VBA_20230308()
   
2. Dim strB$, strC$
   
3. Dim arrData, i
   
4. Dim m, maxRow
   
5. Dim retValue$
   
6. Debug.Print "start.process"
   
7. arrData = Sheets("数据").UsedRange                  '数据源
   
8. With Sheets("Sheet1")                               '目标数据
   
9.     maxRow = .Cells(65536, "B").End(xlUp).Row       '最大行数
   
10.     For m = 2 To maxRow                             '循环目标工作表行
    
11.         strB = .Cells(m, "B").Text                  'b列数据
    
12.         strC = .Cells(m, "C").Text                  'c列数据
    
13.         '以下是判断条件
    
14.         If strC = "" Then                           'c列为空时
    
15.             retValue = ""
    
16.         ElseIf strB = strC And strC <> "" Then      'b列=c列并且c列不为空
    
17.             retValue = "SYB4L-MM-0825-P4"           '获取批定值
    
18.         Else                                        'b列<>c列
    
19.             '以下为查找数据源
    
20.             For i = 2 To UBound(arrData)
    
21.                 If strC = arrData(i, 1) Then        '匹配相符
    
22.                     retValue = arrData(i, 2)        '获取区配值
    
23.                     Exit For                        '退出循环
    
24.                 End If
    
25.             Next i
    
26.         End If
    
27.         .Cells(m, "D") = retValue                  '写入结果
    
28.     Next m
    
29. End With
    
30. Debug.Print "finish.process"
    
31. End Sub

复制代码

sxbjzjf110

上传文件才能正确写代码

jbg1002

抱歉,我现在上传档案!