替换

ddz79101

老师！希望将表中，凡D列单元格中有“100201”,“1001”则在E列填写“C”，F列填写“101”，望老师指点

无关岁月

副本替换.7z (11.72 KB, 下载次数: 5)

2024-1-14 14:15 上传

点击文件名下载附件

sxbjzjf110

Sub test()
Dim arr, i, j
arr = Range("A4").CurrentRegion
For i = 2 To UBound(arr)
    If arr(i, 4) = "100201" Or arr(i, 4) = "1001" Then
        Cells(i + 3, 5) = "C"
        Cells(i + 3, 6) = "'" & 101
    End If
Next
End Sub

ykcbf1100

参与一下。。。

1. Sub ykcbf()  '//2024.1.14
   
2.     b = [{"100201","1001"}]
   
3.     With Sheets("表1")
   
4.         r = .Cells(Rows.Count, 4).End(3).Row
   
5.         arr = .Range("d5:f" & r)
   
6.         For i = 1 To UBound(arr)
   
7.             s = CStr(arr(i, 1))
   
8.             If InStr(s, b(1)) > 0 Or InStr(s, b(2)) > 0 Then
   
9.                 arr(i, 2) = "C": arr(i, 3) = "101"
   
10.             Else
    
11.                 arr(i, 2) = "": arr(i, 3) = ""
    
12.             End If
    
13.         Next
    
14.         .Range("d5:f" & r) = arr
    
15.     End With
    
16.     MsgBox "OK！"
    
17. End Sub
    

复制代码

ykcbf1100

附件供参考。。。

ddz79101

ykcbf1100 发表于 2024-1-14 21:22
附件供参考。。。

谢谢老师！又帮忙解困。运行完全正确

ddz79101

sxbjzjf110 发表于 2024-1-14 14:17
Sub test()
Dim arr, i, j
arr = Range("A4").CurrentRegion

谢谢老师！运行顺利

ddz79101

无关岁月 发表于 2024-1-14 14:16

谢谢老师！代码运行正确

qline302

如果是特定的N个数值，可以用公式吗？
E=IF(VALUE(D5)*OR(100201,1001),"C","")
F=IF(VALUE(D5)*OR(100201,1001),"101","")

tmplinshi