替换

ddz79101

老师！有列其中单元格中间部分的金额需要按左表有条件替换。请老师帮忙看看！

ykcbf1100

你这个不是所有的0.00都换吗？
不会是按颜色来替换吧？

ddz79101

ykcbf1100 发表于 2024-3-27 14:58
你这个不是所有的0.00都换吗？
不会是按颜色来替换吧？

老师！是有金额的则换，没有的酒不换。红色是我为看了清除而标色的。

ddz79101

ykcbf1100 发表于 2024-3-27 14:58
你这个不是所有的0.00都换吗？
不会是按颜色来替换吧？

老师！对应表中金额

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.3.27
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, "g").End(3).Row
   
4.     brr = [g1].Resize(r, 1)
   
5.     n = 1
   
6.     For i = 1 To r
   
7.         If InStr(brr(i, 1), "<hmc>") Then
   
8.             n = n + 1
   
9.             st1 = brr(i + 1, 1)
   
10.             st2 = brr(i + 2, 1)
    
11.             d(n) = Array(Mid(st1, InStr(st1, ">") + 1, 4), Mid(brr(i + 2, 1), InStr(st2, ">") + 1, 4))
    
12.         End If
    
13.     Next
    
14.     r = Cells(Rows.Count, "a").End(3).Row
    
15.     arr = [a1].Resize(r, 4)
    
16.     For i = 2 To UBound(arr)
    
17.         If arr(i, 3) <> Empty Then
    
18.             arr(i, 3) = d(i)(0)
    
19.             arr(i, 4) = d(i)(1)
    
20.         End If
    
21.     Next
    
22.     [a1].Resize(r, 4) = arr
    
23.     Set d = Nothing
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

LIUZHU

这个标签不统一啊，比如“减：营业成本”这个标签，在A列是中文状态的冒号，在G列是英文状态的了，又比如“三、利润总额（亏损总额以“-”号填列）”，在A列中，括号是中文状态的，到G了都是英文状态的括号了，A列有双引号，G列没有了，是不是都要先处理一遍哦？

ykcbf1100

如果替换的数字不是固定长度的话，改用这个附件。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.3.27
   
2.     Set d = CreateObject("Scripting.Dictionary")
   
3.     r = Cells(Rows.Count, "g").End(3).Row
   
4.     brr = [g1].Resize(r, 1)
   
5.     n = 1
   
6.     For i = 1 To r
   
7.         If InStr(brr(i, 1), "<hmc>") Then
   
8.             n = n + 1
   
9.             st1 = brr(i + 1, 1): c1 = InStr(st1, "/") - InStr(st1, ">") - 2
   
10.             st2 = brr(i + 2, 1): c2 = InStr(st2, "/") - InStr(st2, ">") - 2
    
11.             d(n) = Array(Mid(st1, InStr(st1, ">") + 1, c1), Mid(brr(i + 2, 1), InStr(st2, ">") + 1, c2))
    
12.         End If
    
13.     Next
    
14.     r = Cells(Rows.Count, "a").End(3).Row
    
15.     arr = [a1].Resize(r, 4)
    
16.     For i = 2 To UBound(arr)
    
17.         If arr(i, 3) <> Empty Then
    
18.             arr(i, 3) = d(i)(0)
    
19.             arr(i, 4) = d(i)(1)
    
20.         End If
    
21.     Next
    
22.     [a1].Resize(r, 4) = arr
    
23.     Set d = Nothing
    
24.     MsgBox "OK！"
    
25. End Sub
    

复制代码

ddz79101

ykcbf1100 发表于 2024-3-27 15:14
附件供参考。。。

老师！我试了一下，好像未成功。老师是将表中金额复制到右列对应的一列代码中。试后，右列没有反应，左边表中金额却清空了。老师烦请你再看看