|
アドバイス頂き有難う御座いました。勉強しております。苦戦しております。
恐縮ですが再度下記教えて下さい。
選択したセル全てにおいて、ある操作をした後、そのセルにデータとして各々
'=RSS|'2575.T'!現在値
'=RSS|'8625.T'!現在値
'=RSS|'1953.T'!現在値
'=RSS|'4498.T'!現在値
等の文字式が変換入力される。この文字式の左端の ' を除去して数式としたく。この場合下記文のActiveCell.FormulaR1C1 = Range(" ").Formula の中の
(" ") ここの箇所はどの様な文を入れればよいでしょうか?
VBA文:
Dim r As Range
If TypeOf Selection Is Range Then
For Each r In Selection
Selection.Copy
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _:=False, Transpose:=False
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = Range(" ").Formula
Next
End If
End Sub
|
|