[已解决]用VBA怎样写？请各位老师帮帮忙！

ok5i

A列单元格中如果含有类似“3D”这样的字符("3D"只是单元格值的一部分，而且不管它的位置)，则在B列单元格中自动填写值“3D”。用VBA怎样写？请各位老师帮帮忙！

最佳答案

月排行榜 / 总排行榜

mxg825

2011-10-11 20:46

1. Sub FIND3D()
   
2. Dim X&
   
3. For X = 1 To Range("a65536").End(xlUp).Row
   
4. If Not (IsError(Application.Find("3D", Cells(X, 1), 1))) Then Cells(X, 2) = "3D"
   
5. Next
   
6. End Sub
   

复制代码

跳转到最佳答案楼层

mxg825

1. Sub FIND3D()
   
2. Dim X&
   
3. For X = 1 To Range("a65536").End(xlUp).Row
   
4. If Not (IsError(Application.Find("3D", Cells(X, 1), 1))) Then Cells(X, 2) = "3D"
   
5. Next
   
6. End Sub
   

复制代码

yuhe0008

Sub FIND3D()
Dim X&
For X = 1 To Range("a65536").End(xlUp).Row
If InStr(Cells(X, 1), "3D") Then Cells(X, 2) = "3D"
Next
End Sub

ok5i

谢谢mxg825 老师！

ok5i

谢谢版主啦！你也可以是最佳答案 的！