数式を削除して値だけ残すマクロ

質問

お世話になります。
エクセル2013のVBAについて教えて下さい。
　Q 　　　　　　R
1　タイトル　　　タイトル　←１行目はタイトル行
2　状況出荷済　　出荷済
3　状況準備中　　準備中
4　状況未出荷　　未出荷

このような表でQ列の文字をR列にRIGHTで文字を抽出しました。
行数は表を作る都度変わります。
Rに入っている関数を削除して値のみ残したいです。

１００行だった場合は
Range("R2":"R100")
Selection.value=Selection.value
で実行可能なのですが、範囲が変化する場合はどう書けばいいでしょうか？

回答No.1

keithin · ベストアンサー

sub macro1()
　on error resume next
　with range("R:R").specialcells(xlcelltypeformulas)
　　.value = .value
　end with
end sub

みたいに。

＃数式が実はひとつも入ってなかったみたいな場合にも，エラーにならないように細工をします。

＃参考
実際には，どこまで数式が入ってる「可能性があるか」だけで

sub macro2()
　range("R2:R999").value = range("R2:R999").value
end sub
とか

sub macro3()　’あまりお勧めはしません
　range("R:R").value = range("R:R").value
end sub
とかでもかまいません。

お礼

ありがとうございます。
最初に書かれているやり方で解決できました。

回答No.3

Prome_Lin

r = 100
Range("R2":"R" & r).Selection.Value = Selection.Value

というように、変数が使えますから、単に変数にして、「r」を変化させれっばいいと思います。

また、この変数「r」が最終行であれば、「r = Range("R1").End(xlDown).Row」のように、列「Ｒ」の最終行を取得するようにしておかれてはどうでしょうか？（この場合、「Ｒ」列は途中に空白が存在するとダメですが）。

回答No.2

watabe007

>範囲が変化する場合はどう書けばいいでしょうか？
Q列の行数を取得すれば
With Range("Q2", Cells(Rows.Count, "Q").End(xlUp)).Offset(, 1)
.Value = .Value
End With

お礼

ありがとうございます。
参考になりました。