我想將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)

靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。