Excel VBA 質問スレ Part72

[804 デフォルトの名無しさん (ﾜｯﾁｮｲ 4668-bRsM) 2021/09/01(水) 19:36:37.25 ID:QyYX1GEf0]

>>792
>>721を改造

Sub Macro6()
Application.Calculation = xlManual
Application.ScreenUpdating = False
myAddress = Split(Selection.SpecialCells(xlCellTypeFormulas, 23).Address, ",")
For Each EE In myAddress
Range(EE) = Range(EE)
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub


変えたのは
Range(EE) = Range(EE)
だけ。これで多分いけるとおもうけど、どうだろう