【マクロ】関数をセルに入力するも、スピルしない件

【やりたい事】
B1:B3へ、関数を入力したい
B1へ入力し、B2,B3はスピルさせたいです
officeは365です

スピルさせたい理由は、行数が毎回ことなる為です

Formula2にすると、スピルすると記載ありますが
以下コードのとおり実行しても、スピルしません

ご存じの方、教えて下さい


Sub 電話番号ハイフンあり()


Dim filePath As String
filePath = "C:\Users\2020\OneDrive\マクロ\電話ハイフンあり.xlsx"

Dim wb2 As Workbook
Set wb2 = Workbooks.Open(filePath)

Set ws2 = wb2.Worksheets("Sheet1")


ws2.Columns("B").Insert
ws2.Columns("B").NumberFormatLocal = "G/標準"


ws2.Range("B1").Formula2 = "=MID(A1,1,2) & "" - "" & MID(A1,3,4) & "" - "" & MID(A1,7,5)& "" - "" & MID(A1,12,4)& "" - "" & MID(A1,16,1)"



End Sub

No.1 ベストアンサー 回答者： fujillin 回答日時： 2024/06/09 23:32

こんばんは

スピル機能の環境がないので、以下は正確ではありませんけれど・・

ご提示の式を手動で入力してもスピルしませんよね？
スピルする内容の式でなければ、（当然のことながら）スピルされることはないでしょう。

この回答へのお礼

いつもごしなんありがとうございます
確かに、スピルさせたい範囲を指定していませんでした。ありがとうございます

お礼日時：2024/06/10 08:43