ブックの転記で計算式も転記したい

質問

ブックの転記で計算式も転記したい

データを転記するマクロを作成しました。
【知りたいこと】
その1：
転記元となるブックを毎回「master」という名前に変更してから作業をしています。
この一手間を省きたいと考えているのですが、開いているもう一つのブックを自動で
転記元の〔mst〕と認識させて作業を進めるにはどうしたら良いでしょうか？

その2：
転記先のD列に、転記元(master)E列の数式を転記させるにはどうしたら良いでしょうか？
このE列には、数値の値だったり、足し算・引き算・割り算などの計算式が混在しています。
また、転記先の書式は保ち、値もしくは計算式だけを転記したい。

宜しくお願い致します。
----------------------------------------------------------
Sub 値の転記()

Dim ent As Worksheet, mst As Worksheet
Dim i As Integer, j As Integer
Dim lstCel As Integer

Set ent = Workbooks("転記先").ActiveSheet
Set mst = Workbooks("master").ActiveSheet　　　'←★その1：このブック名の指定

lstCel = mst.Cells(Rows.Count, "B").End(xlUp).Row
For i = 1 To lstCel
ent.Cells(j + 2, "A") = mst.Cells(i + 2, "A")
ent.Cells(j + 2, "B") = mst.Cells(i + 2, "B")
ent.Cells(j + 2, "C") = mst.Cells(i + 2, "D")
ent.Cells(j + 2, "D") = mst.Cells(i + 2, "E")'←★その2：ここだけ数式を転記

j = j + 1
Next i
End Sub
----------------------------------------------------------

回答No.1

nattocurry · ベストアンサー

> 開いているもう一つのブックを

とありますが、開いているブックは必ず2つなのでしょうか？
それ以外のブックが開かれている状態では絶対にこのマクロを実行しないのであれば、

Dim Bk As Workbook
For Each Bk In Workbooks
If Not Bk Is ThisWorkbook Then Exit For
Next Bk

とすれば、Bkがもう1つのブックになります。

もし、もう1つのブックが、必ず最後に開かれるのであれば、

Workbooks(Workbooks.Count)

が、最後に開かれたブック＝もう1つのブックになります。

数式に関してですが、その前に。

セルの値を　Cells(r, c)　と書いていますが、Cells(r, c).Value　と書く癖をつけたほうが良いと思いますよ。

そうすれば、.Value　を　.Formula　に変えれば、値から数式に変わるということも、解りやすくなるんじゃないでしょうか。

お礼

回答ありがとうございました。
Set mst = Workbooks(Workbooks.Count).ActiveSheet
で希望通りの動作になりました。
また、今後は"Value"を省略せずにコードを書くクセをつけたいと思います。
大変助かりました。