エクセルvbaでの処理方法

Alt+Enterで2段表示しているものを他のシートにコピペしても2段表示にしたいのですが、
貼り付け先の書式設定を適用したいので値で貼り付けると、当然ですが2段表示になりません。
しかし値で貼り付けたセルをF2（ﾌｧﾝｸｼｮﾝ2）で選択してやると2段表示になります。
これをVBAで処理したいのです。

わかりづらいので言い換えると・・・

①AのシートのA1:N2000をコピー
②Ｂのシートに値で貼り付け（Bのシートの書式設定を生かす為）
③A･B･C･E列には”Alt+Enter"で2段表示にしているデータがランダムな位置にある
④Bのシートの2段表示にしたいセルをF2（ﾌｧﾝｸｼｮﾝ2）で選択して2段表示にする処理を
　VBAで一括処理したい

このVBAのコードがわかる方、どうかお力を貸して下さい・・・。
よろしくお願いします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2019/02/01 09:22

こんにちは

簡単なテストしかしてませんので、確実ではありませんが・・
以下ではいかがでしょうか？

Sub Test()
　Set r = Worksheets("SheetB").Range("A1:E2000")
　r.Value = r.Value
End Sub

この回答へのお礼

ありがとうございます！！
とても助かりました！

お礼日時：2019/02/04 07:29