F-07D 一括の解決方法

質問者が納得マクロでの回答。 上記のような状況ならば、１行でできます。 Sub Sample() With Range("C3:C5") .Value = .Value End With End Sub これでOKです。 また表示形式もついでに変更やエラー回避など考えるならば Sub Sample2() On Error Resume Next Dim myRng As Range For Each myRng In Range("C3:C5") With m...