>>710
もう手間のかかる子だなぁｗ
Sub Macro5()
Application.Calculation = xlManual
Application.ScreenUpdating = False
myAddress = Split(Selection.SpecialCells(xlCellTypeFormulas, 23).Address, ",")
Dim temp()
For Each EE In myAddress
If Range(EE).Count = 1 Then
Range(EE).Value = Range(EE).Value
Else
temp = Range(EE)
Range(EE) = temp
End If
Next
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

100万を超えるデータで動かすと何秒で終わるか教えてね