excel VBA 单元格替换实例（“林地K“替换为“可调整林地“）

          excel表格中有时会有特殊需求的单元格文本替换，比如把"林地K"替换为"可调整林地"，为避免重复工作量，可用vba代码实现。

Sub 替换()
On Error Resume Next
Dim mycell As Range
ActiveSheet.UsedRange.Select
For Each mycell In Selection
    If InStr(mycell.Value, "k") <> 0 Then
    mycell.Value = "可调整" & Replace(mycell.Value, "k", "")
    End If

Next mycell
End Sub