IF THEN 程序取数问题请益

aseong · 发表于 2018-9-5 20:20

文件数据有数十个类似程序取数据且数据量大需花费时间等待,恳请老师协助可否增快计算速度

liulang0808 · 发表于 2018-9-5 20:37

建议楼主结合附件，举例说明具体要做什么及怎么做

aseong · 发表于 2018-9-5 21:52

liulang0808 发表于 2018-9-5 20:37
建议楼主结合附件，举例说明具体要做什么及怎么做

你好SHEET1中O及P依据SETUP中各条件符合条件取数至O P列

liulang0808 · 发表于 2018-9-6 06:58

aseong 发表于 2018-9-5 21:52
你好SHEET1中O及P依据SETUP中各条件符合条件取数至O P列

不好意思，还是不能理解。

iwangyi · 发表于 2018-9-6 08:23

本帖最后由 iwangyi 于 2018-9-6 08:28 编辑

Sub CC()
NROW = [d65536].End(3).Row
For N = 2 To NROW
If InStr(Cells(N, 3), "NO") > 0 And InStr(Cells(N, 4), "MICCE-SD") > 0 Then
Cells(N, "O") = "NO-REJECT"
End If
If InStr(Cells(N, 3), "MT") > 0 And InStr(Cells(N, 5), "AT") > 0 Then
Cells(N, "O") = "(23-PP{1,4}23-PS{8,13}32-PP{5,7,8}23-PS{6,7,10}"
End If
If InStr(Cells(N, 3), "BT") > 0 And InStr(Cells(N, 5), "TR") > 0 Then
Cells(N, "O") = "BT{32-PP{5,6}"
End If
If InStr(Cells(N, 3), "MT") > 0 And InStr(Cells(N, 5), "YW") > 0 Then
Cells(N, "O") = "(23-PP{1,4}23-PS{8,13}32-PP{5,7,8}23-PS{6,7,10}"
End If
If InStr(Cells(N, 3), "MT") > 0 And InStr(Cells(N, 5), "4Y") Then
Cells(N, "O") = "LOW ALAPA"
End If
If InStr(Cells(N, 3), "MT") > 0 Then Cells(N, "P") = 5
If InStr(Cells(N, 3), "BT") > 0 Then Cells(N, "P") = 12
If InStr(Cells(N, 3), "KB") > 0 Then Cells(N, "P") = 12
If InStr(Cells(N, 3), "QE") > 0 Then Cells(N, "P") = 6
If InStr(Cells(N, 3), "NO") > 0 Then Cells(N, "P") = "NA"
Next
End Sub

iwangyi · 发表于 2018-9-6 08:29

附件，请参考**********

iwangyi · 发表于 2018-9-6 08:30

楼主的表达能力还须加强哦，确实表达的东西很让人费解

		自动登录	找回密码
密码			免费注册

[求助] IF THEN 程序取数问题请益