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