我想將sheet1 的所有公式最後一個字改為") 巨集如何寫?

1^# 跳轉到 »

發表於 2013-7-31 23:36 | 顯示全部帖子

本帖最後由 luhpro 於 2013-7-31 23:42 編輯

回復 2# t8899

Sub nn()
Dim iI%
Dim sStr$
Dim rTar As Range
With Sheets("Sheet1")
For Each rTar In .Cells.SpecialCells(xlCellTypeFormulas)
With rTar
sStr = .Formula
iI = InStr(1, sStr, "=XQKGIAP|Quote!'")
if iI > 0 then
sStr = "=RTD(" & Chr(34) & "XQRTD.RtdServerKGIAP" & Chr(34) & ",," & Chr(34) & "" & Mid(sStr, 17)
iI = InStr(1, sStr, "'")
If iI > 0 Then sStr = Left(sStr, iI - 1) & Chr(34) & ")"
.Formula = sStr
End If
End With
Next
End With
End Sub

複製代碼

ans.zip (5.67 KB)

靜思自在 : 君子如水，隨方就圓，無處不自在。