'批量替换字符

Sub Test()

Dim i As Integer

For i =  To 

If Cells(i, ).Value = "已激活" Then

Cells(i, ).Value = "Active"

End If

Next

End Sub

Sub Test()

Dim rowsNum, i, j, equalRowsNum As Integer '声明变量

rowsNum = ActiveSheet.UsedRange.Rows.Count '获得行数

For i =  To rowsNum '遍历全部行数

If Cells(i, ).Value = Cells(i + , ).Value Then

j = j +

Else

For equalRowsNum =  To j

'给指定列追加数值。把相同行的同列追加到第一相同行

Cells(i - j, ).Value = CStr(Cells(i - j, ).Value) + Chr() + CStr(Cells(i - j + equalRowsNum, ).Value)

Next

j = 

End If

Next

Range("A3:G20").RemoveDuplicates  '用自带函数清空重复行

For i =  To rowsNum '遍历全部行数，删除空行。

'(这段代码须多执行几次，才能把空行删干净)

If Cells(i, ) = "" Then

Cells(i, ).EntireRow.Delete

End If

Next

'另外，还可以用排序的方式“清除”空行：

'Sheet1.UsedRange.Sort [A3], xlAscending, Header:=xlYes

'注：[A3]代表作为排序依据的列

'Debug.Print rowsNum '测试

End Sub