戻る

 B2セルに数式が入っているとする。
 B2セルの数式を1行分コピーしては値に変換、という操作を行数分繰り返す。
 開始行・列などにセルを指定しておけば、いちいちマクロを書き換えなくてもよい。



Sub copy_paste() ' ' 数式をコピー後、値に変換 ' Dim R As Integer Dim Myrng As Range ' Application.ScreenUpdating = False For R = [開始行] To [終了行] Range("B2").Copy ' B2セルに数式が入っているとする Range(Cells(R, [開始列]), Cells(R, [終了列])).PasteSpecial Set Myrng = Range(Cells(R, [開始列]), Cells(R, [終了列])) Myrng.Copy Myrng.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone Next R Application.CutCopyMode = False Application.ScreenUpdating = True Range("b1").Select MsgBox "変換終了", vbInformation End Sub

戻る