Question

今セルJ16に

契約書件名勤務時間計算処理システム用サーバ

と入力されています。
ここから抜き出しをして

勤務時間計算処理システム用サーバ

とB10に表示させるマクロを作成しています。

B10に入力する関数は

=SUBSTITUTE(J16,LEFT(J16,5),””)

と分かっているのですが、これをマクロにしようと

Sub Macro2()
' Macro2 Macro
    Range(”B10”).Select
    Range(”B10”) = ”=SUBSTITUTE(J16,LEFT(J16,5),””)”★
    Range(”B11”).Select
End Sub

とすると★のところで
「アプリケーション定義またはオブジェクト定義のエラーです」
となってしまいます。
なにが設計ミスなのでしょうか？
ご教授よろしくお願いします

Answer 1

”=SUBSTITUTE(J16,LEFT(J16,5),””)”
のダブルクォーテーションのつけ方が間違っています。

　”=SUBSTITUTE(J16,LEFT(J16,5),””)”
　←　ここが一つ目のセット　→　←→（2つ目のセット）

になってしまいます。
ダブルクォーテーションのセットの中に，他のダブルクォーテーションを
入れるには　「””文字列””」のように2個ずつ入れます。
つまり

　”=SUBSTITUTE(J16,LEFT(J16,5),””””)”
　
のように，両端の「”　・・・・　”」セットの中に「””」＋「””」を入れる
と考えます。