|
[广告] Excel易用宝 - 提升Excel的操作效率 · Excel / WPS表格插件 ★ 免费下载 ★ ★ 使用帮助★
Public Sub 转换()
On Error Resume Next
Dim i As Integer, j As Integer, rn As Range
For i = 1 To Sheet1.UsedRange.Rows.Count
For j = 1 To Sheet1.UsedRange.Columns.Count
Set rn = Sheet1.Cells(i, j)
Sheet1.Cells(i, j).Select
If ActiveCell.CurrentArray Then
rn.Replace What:="=", Replacement:=" =", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Else
rn.Replace What:="=", Replacement:=" =", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rn.Replace What:="=", Replacement:=" {=", LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
rn.Value = rn.Value & "}"
End If
Next
Next
End Sub |
|