优化一下代码

mzx1987mzx

1. If InStr(Cells(i,"G"),"A-1-1")>0 Then
   
2.       Cells(i,"G").offset(0, 1)="头部"
   
3.       Cells(i,"G").offset(0, 2)="1/2位置'
   
4.       Cells(i,"G").offset(0, 3)="-20℃'
   
5. Elself InStr(Cells(i,"G),"A-1-2") >0 Then
   
6.       Cells(i,"G").offset(0, 1)="头部"
   
7.       Cells(i,"G").offset(0, 2)="1/2位置'
   
8.       Cells(i,"G").offset(0, 3)="-84℃'
   
9. Elself InStr(Cells(i,"G),"A-2-1") >0 Then
   
10.       Cells(i,"G").offset(0,1)="头部"
    
11.       Cells(i,"G").offset(0, 2)="1/4位置'
    
12.       Cells(i,"G").offset(0, 2)="-20℃'
    
13. Elself InStr(Cells(i,"G),"A-2-2") >0 Then
    
14.       Cells(i,"G").offset(0,1)="头部"
    
15.       Cells(i,"G").offset(0, 2)="1/4位置'
    
16.       Cells(i,"G").offset(0, 2)="-84℃'
    
17. Elself InStr(Cells(i,"G),"A-3-1") >0 Then
    
18.       Cells(i,"G").offset(0,1)="头部"
    
19.       Cells(i,"G").offset(0, 2)="表面'
    
20.       Cells(i,"G").offset(0, 2)="-20℃'
    
21. Elself InStr(Cells(i,"G),"A-3-2") >0 Then
    
22.       Cells(i,"G").offset(0,1)="头部"
    
23.       Cells(i,"G").offset(0, 2)="表面'
    
24.       Cells(i,"G").offset(0, 2)="-84℃'
    
25. Elself InStr(Cells(i,"G),"B-1-2") >0 Then
    
26.       Cells(i,"G").offset(0, 1)="尾部"
    
27.       Cells(i,"G").offset(0, 2)="1/2位置'
    
28.       Cells(i,"G").offset(0, 3)="-20℃'
    
29. Elself InStr(Cells(i,"G),"B-1-2") >0 Then
    
30.       Cells(i,"G").offset(0, 1)="尾部"
    
31.       Cells(i,"G").offset(0, 2)="1/2位置'
    
32.       Cells(i,"G").offset(0, 3)="-84℃'
    
33. Elself InStr(Cells(i,"G),"B-2-1") >0 Then
    
34.       Cells(i,"G").offset(0,1)="尾部"
    
35.       Cells(i,"G").offset(0, 2)="1/4位置'
    
36.       Cells(i,"G").offset(0, 2)="-20℃'
    
37. Elself InStr(Cells(i,"G),"B-2-2") >0 Then
    
38.       Cells(i,"G").offset(0,1)="尾部"
    
39.       Cells(i,"G").offset(0, 2)="1/4位置'
    
40.       Cells(i,"G").offset(0, 2)="-84℃'
    
41. Elself InStr(Cells(i,"G),"B-3-1") >0 Then
    
42.       Cells(i,"G").offset(0,1)="尾部"
    
43.       Cells(i,"G").offset(0, 2)="表面'
    
44.       Cells(i,"G").offset(0, 2)="-20℃'
    
45. Elself InStr(Cells(i,"G),"B-3-2") >0 Then
    
46.       Cells(i,"G").offset(0,1)="尾部"
    
47.       Cells(i,"G").offset(0, 2)="表面'
    
48.       Cells(i,"G").offset(0, 2)="-84℃'
    
49. Elself InStr(Cells(i,"G),"A-1") >0 Then
    
50.       Cells(i,"G").offset(0,1)="头部"
    
51.       Cells(i,"G").offset(0, 2)=""
    
52.       Cells(i,"G").offset(0, 2)="-20℃'
    
53. Elself InStr(Cells(i,"G),"A-2") >0 Then
    
54.       Cells(i,"G").offset(0,1)="头部"
    
55.       Cells(i,"G").offset(0, 2)=" "
    
56.       Cells(i,"G").offset(0, 2)="-84℃'
    
57. Elself InStr(Cells(i,"G),"B-1") >0 Then
    
58.       Cells(i,"G").offset(0,1)="尾部"
    
59.       Cells(i,"G").offset(0, 2)=" "
    
60.       Cells(i,"G").offset(0, 2)="-20℃'
    
61. Elself InStr(Cells(i,"G),"B-2") >0 Then
    
62.       Cells(i,"G").offset(0,1)="尾部"
    
63.       Cells(i,"G").offset(0, 2)=" "
    
64.       Cells(i,"G").offset(0, 2)="-84℃'
    
65. end if

复制代码

类似这样的多个if语句还能优化吗?请大神赐教。
office版本是2010，最新的函数或者语法可能会没法用。

目前这样写，能满足我日常的工作。

一招秒杀

把上述数据写入表格，剩下的只需要1个函数（例如 Filter）就好了。

mzx1987mzx

一招秒杀 发表于 2023-11-20 21:37
把上述数据写入表格，剩下的只需要1个函数（例如 Filter）就好了。

2010版本好像不支持filter，我试试

sunya_0529

代码里重复的语句有很多时，一定是有优化空间的。
具体如何优化，要结合你的实际案例来，比如上面的单元格写入，可以采用字典或数组的形式，代码会简洁许多，执行效率也会高很多。

那时雨

需求表达清楚，上传附件，最好能有结果展示。相信你会收到惊喜!

a411

conditions = {
    "A-1-1": ["头部", "1/2位置", "-20℃"],
    "A-1-2": ["头部", "1/2位置", "-84℃"],
    "A-2-1": ["头部", "1/4位置", "-20℃"],
    "A-2-2": ["头部", "1/4位置", "-84℃"],
    "A-3-1": ["头部", "表面", "-20℃"],
    "A-3-2": ["头部", "表面", "-84℃"],
    "B-1-1": ["尾部", "1/2位置", "-20℃"],
    "B-1-2": ["尾部", "1/2位置", "-84℃"],
    "B-2-1": ["尾部", "1/4位置", "-20℃"],
    "B-2-2": ["尾部", "1/4位置", "-84℃"],
    "B-3-1": ["尾部", "表面", "-20℃"],
    "B-3-2": ["尾部", "表面", "-84℃"],
    "A-1": ["头部", "", "-20℃"],
    "A-2": ["头部", " ", "-84℃"],
    "B-1": ["尾部", " ", "-20℃"],
    "B-2": ["尾部", " ", "-84℃"]
}

cell_value = Cells(i, "G").Value
for key in conditions:
    if key in cell_value:
        Cells(i, "G").Offset(0, 1).Value = conditions[key][0]
        Cells(i, "G").Offset(0, 2).Value = conditions[key][1]
        Cells(i, "G").Offset(0, 3).Value = conditions[key][2]
        break

沈默00

这代码和工作表函数差不多吧，不会卡？？
上个附件说明目标，让老师直接给写一个好了

mzx1987mzx

沈默00 发表于 2023-11-21 08:11
这代码和工作表函数差不多吧，不会卡？？
上个附件说明目标，让老师直接给写一个好了

目前还不卡，我用6楼的key-value试试看

yellowhawk

根据你的描述，应该使用循环也是可以的呀，发个附件，说明意图，可能别人并不会用你这种方法。

一招秒杀

mzx1987mzx 发表于 2023-11-21 08:37
目前还不卡，我用6楼的key-value试试看

一个最简单的Xlookup 就可以完美解决，我想这么古老的函数，Office 2010 一定支持。