取特殊文字找到对应位置将数据填入

sulli112

wanao2008 发表于 2021-8-8 06:28
没使用什么特殊技巧，甚至连循环都用的常量固定数，
其实就是制作一个“费用统计表”
没完全按你的思路， ...

[img][/img]，我测算了一下，您这个编程大概是会把有两个词组相似的取值在一处，我看了我表上电费应该是576.4，但是取值的时候直接把电费跟水电费的数值加在了一起，所有我在想是不是因为水电费跟电费里面电费这个词组在一款，而水电费跟水费就不会取值重复，像这种特殊情况，可以用红色标记吗

smiletwo

正则表达式：- (.+?)[|（]
或者split函数分别按 - 和| 或（两次拆分

wanao2008

sulli112 发表于 2021-8-8 13:32
[/img]，我测算了一下，您这个编程大概是会把有两个词组相似的取值在一处，我看了我表上电费应该是576.4 ...

其实是因为你的“模具款”和“模具费”的不同，我才取前两个字的，没考虑太多

sulli112

wanao2008 发表于 2021-8-8 16:58
其实是因为你的“模具款”和“模具费”的不同，我才取前两个字的，没考虑太多

好的，谢谢

sulli112

smiletwo 发表于 2021-8-8 14:13
正则表达式：- (.+?)[|（]
或者split函数分别按 - 和| 或（两次拆分

1. Sub ss()
   
2. Dim i, j, arr, brr, str
   
3. arr = Sheet1.Range("A5:A41")
   
4. brr = Sheet2.Range("A5：A33")
   
5. For i = 1 To UBound(brr)
   
6.    str = str & "_" & brr(i, 1)
   
7. Next i
   
8. For i = 1 To UBound(arr)
   
9. If InStr(str, Split(Split(arr(i, 1), "-")(1), "|")(0)) + _
   
10. InStr(str, Split(Split(arr(i, 1), "-")(1), "(")(0)) = 0 Then
    
11. Sheet1.Cells(i + 4, 2).Interior.Color = vbYellow
    
12. End If
    
13. Next i
    
14. End Sub
    
15. 
    

复制代码

代码我按你那个录进去，一运行，sheet1 b列全部变黄，然后sheet2，也没有将数据填到对应位置，麻烦大神看看哪里错误了呢