|
▼山田真一郎 さん:
こんばんは。
>お世話になります。
>
>シート内一括で、数式の入ったセルの値を、値のみの表示にしたいのですが
>どなたかよろしくお願い致します。
>
>下記は、自動記録で、ある一つの数式入りセルをコピーし、値のみ貼り付けたものです。これをシート内一括で処理したいのですが、可能でしょうか?
>Sub Macro2()
> Selection.Copy
> Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
> :=False, Transpose:=False
>End Sub
以下のコードはアクティブシートを処理対象としています。
'================================
Sub test1()
Dim rng As Range
Dim t_area As Range
On Error Resume Next
Set rng = ActiveSheet.Cells.SpecialCells(xlCellTypeFormulas)
If Err.Number = 0 Then
For Each t_area In rng.Areas
t_area.Value = t_area.Value
Next
End If
End Sub
|
|