请教，当 D, F 列数据满足一定条件时，则更改 F 列的数据，代码怎么写？

vexce

请教，要实现以下功能，代码怎么写？
数据行数变化不定。希望代码运行时，弹窗提示输入起始的行数。结尾行数 R = Sheet1.Cells(Rows.Count, 4).End(xlUp).Row
如果 D 列数据 Like "?W?????????? *" （即包含类似 1W0993000004 这样的数据）,并且 F 列数据不含 "-B"，则
如果 F 列含 CN...，则把 F 列的 CN 改为 CN-B，
如果 F 列含 PRC...，则把 F 列的 CN 改为 CN-B，

模拟效果如 G 列所示。


谢谢！



工作簿1.zip (8.74 KB, 下载次数: 2)

2024-12-2 15:40 上传

点击文件名下载附件

excel玉米

准提部林

sub test()
dim arr, brr, i
with range([a1], [f65536].end(xlup)
      arr=.value
      brr= .columns(6)
      for i=2 to ubound(arr)
           if arr(i, 4) like "#W########## *" and instr(brr(i, 1), "-B")=0 then
             brr(i, 1)=replace(repalce(brr(i, 1), "CN","CN-B"), "PRC","PRC-B")
           end if
     next i
     .columns(6)=brr
end with
end sub

转角处的沉思

准提部林 发表于 2024-12-2 21:13
sub test()
dim arr, brr, i
with range([a1], [f65536].end(xlup)

1. Sub 准提部林()
   
2. Dim arr, brr, i
   
3. With Range([a1], [f65536].End(xlUp)<font color="#ff0000">)</font>
   
4.       arr = .Value
   
5.       brr = .Columns(6)
   
6.       For i = 2 To UBound(arr)
   
7.            If arr(i, 4) Like "#W########## *" And InStr(brr(i, 1), "-B") = 0 Then
   
8.              brr(i, 1) = Replace(Rep<font color="#ff0000">la</font>ce(brr(i, 1), "CN", "CN-B"), "PRC", "PRC-B")
   
9.            End If
   
10.      Next i
    
11.      .Columns(6) = brr
    
12. End With
    
13. End Sub
    

复制代码

修正了代码中的小笔误，运行无误。

vexce

excel玉米 发表于 2024-12-2 20:52

感谢指点，测试效果如愿，谢谢！

vexce

准提部林 发表于 2024-12-2 21:13
sub test()
dim arr, brr, i
with range([a1], [f65536].end(xlup)

感谢准提部林指点。改了缺的半个“)"，和一处拼写错误后，运行正常。感谢！

准提部林

转角处的沉思 发表于 2024-12-2 22:17
修正了代码中的小笔误，运行无误。

單憑需求條件..信手寫出, 並未用附件測試~~

准提部林

vexce 发表于 2024-12-3 15:09
感谢准提部林指点。改了缺的半个“)"，和一处拼写错误后，运行正常。感谢！

看需求邏輯清楚,
隨手逐字敲打出來, 沒去糾錯~~

vexce

准提部林 发表于 2024-12-3 16:29
看需求邏輯清楚,
隨手逐字敲打出來, 沒去糾錯~~

对任何需求都能信手拈来，真心佩服这编程水平。