VBA セル内の関数を書き換えたいが構文エラーが出る

Question

オートフィルが使用できない状況で、
「関数が入っていたら、その行の6から36列のセル範囲の『あ』『い』をカウントする関数に修正する」
という構文でfor分を回したいと思っています。元の関数はreplaseで変更できる形ではありません。

が、y=　の部分で構文エラーが出ます。

Sub 関数書き換え()
    Dim i As Long, n As Long, m As Long
    Dim x As String, y As String
    
    For i = 9 To 5000
    If Cells(i, 42).HasFormula Then
    x = Range(Cells(i, 6), Cells(i, 36)).Address
    y= "=COUNTIF(" & x & ","あ")+COUNTIF(" & x & ","い")"
    Cells(i, 42).Formula = y
    End If
    Next i
End Sub

「”」に使用方法に問題があるようにも思えますが、「’」に変えても構文エラーはそのままでした。

よろしくお願いします。

Answer 1

x & ","あ"であの前後の"がエスケープ("")されてません。いの箇所も同様です。
一度固定文字列で設定し内容確認してから可変部分を変更していきましょう。

Answer 2

ダブルクォートは、文字の区切りにつかうので、ダブルクォートそのものを文字としてあつかう場合
２つ連続で記述する必要があります。

y = "=COUNTIF(" & x & ",""あ"")+COUNTIF(" & x & ",""い"")"

Comments

[Izumo1101]

前にやったことをすっかり失念していました。ありがとうございます。先の回答者をBAとさせてください。