Question

excel vba替换某列中含有某个字的单元格代码！

举个例子！
A B
非营业个人 A2014000840

非营业个人 B4414000840

营业个人 A2014000840

营业机关 C0004000840
vba代码实现A列中所有带“非营业”字的单元格替换为“非营业”，所有带“营业”的单元格变为“营业”

B列中 所有带“A”的单元格替换为“交强”两个汉字
在线等！！！！秒给分！！！

Answer 1

考试题目吗，你们老师的题目太没有水平了，这样替换编程真是无聊，直接查找、替换多好的～～～

代码如下：

Option Explicit
Option Base 0

Sub xx()
    Dim i, s
    For i = 1 To UsedRange.Rows.Count
        If InStr(Cells(i, "A"), "非营业") <> 0 Then
            Cells(i, "A") = "非营业"
        ElseIf InStr(Cells(i, "A"), "营业") <> 0 Then
            Cells(i, "A") = "营业"
        End If
        If InStr(Cells(i, "B"), "A") <> 0 Then
            Cells(i, "B") = "交强"
        End If
    Next i
End Sub

追问

多谢 哥们 我每天报表 都每天都要执行同样整理工作 每天把40多列数据整理到新表，这是代码其中一部分，我正在实现一键自动搞定，所有遇到这个实在不会！！！
另外问一下 UsedRange.Rows.Count 这个怎么替换成行数？你的代码我把他换成5才能执行，否则报错 UsedRange.Rows.Count 你确定没写错吗？获取不到行数

追答

UsedRange.Rows.Count 是当前工作表的已经使用空间，我的代码在表里面，所以是可以执行的，如果如果放到模块里面，需要这样写：

Sheet1.UsedRange.Rows.Count

或者：
ActiveSheet.UsedRange.Rows.Count

Answer 2

用替换（ctrl+f），就可以了。不需要代码吧

追问

好了 我知道了 谢谢 给你分
activesheet.usedrange.rows.count 改成这个就可以了！！！