Private Sub CommandButton1_Click()
ChanZVal = RefEdit1.Value
V1 = InStr(1, ChanZVal, ":")
V2 = InStr(1, ChanZVal, "$")
V3 = InStr(1, Mid(ChanZVal, V2 + 1, 100), "$")
L1 = Mid(ChanZVal, V2 + 1, V3 - 1)
H1 = Mid(ChanZVal, V2 + V3 + 1, V1 - V2 - V3 - 1)
V4 = InStr(1, Mid(ChanZVal, V2 + V3 + 1, 100), "$")
V5 = InStr(1, Mid(ChanZVal, V2 + V3 + V4 + 1, 100), "$")
H2 = Mid(ChanZVal, V2 + V3 + V4 + V5 + 1, Len(ChanZVal) - V2 - V3 - V4 - V5)
For I = H2 To H1 Step -1
thuan = "$" & L1 & "$" & I
thuanh = Evaluate("$" & L1 & "$" & I)
Cells.Replace What:=thuan, Replacement:=thuanh, LookAt:=xlPart, _
SearchOrder:=xlByRows, MatchCase:=False, SearchFormat:=False, _
ReplaceFormat:=False
Next
MsgBox "替换完成", 1 + 64, "系统提示"
End Sub