[[20211007153957]]　『別シートの複数セルからデータを転記したい』（VBA初心者）　ページの最後に飛ぶ

『別シートの複数セルからデータを転記したい』（VBA初心者）

以下のような一覧表を作成しましたが、関数とシートが多くデータが重くなってしまったのでマクロで少しでも処理が速くなるといいなと思い質問しました。
似たような質問がいくつかありましたが、なかなかうまくいかず助けていただきたいです。
もし可能であればハイパーリンクも付けられるといいなと思っています。

一覧のA列にはそれぞれシート名と同じ番号を入力します。
B列には、別シートのG2
C列には、別シートのA11
D列には、別シートのM11
E列には、別シートのR4
F列には、別シートのR6
が表示される関数が入力されています。

関数

B3　=IF($A3="","",INDIRECT("'"&$A3&"'!"&O$1))
C3　=IF($A3="","",INDIRECT("'"&$A3&"'!"&O$2))
D3　=IF($A3="","",INDIRECT("'"&$A3&"'!"&O$3))
E3　=IF($A3="","",INDIRECT("'"&$A3&"'!"&O$4))
F3　=IF($A3="","",INDIRECT("'"&$A3&"'!"&O$5))

シート名：一覧

　　　　A　　　　B　　　　C　　　　D　　　E　　　F　　　　・・・　O

1　　　　　　　　　　○○一覧　　　　　　　　　　　　　　　　　　 G2
2　　　番号　　名称　　購入日　購入金額　備考　　売却日　　　　　 A11
3　　　A1-1　○○○○　○○〇　　1,000　○○〇　○○〇　　　　 M11
4　　　A1-2　○○○○　○○〇　　2,000　○○〇　○○〇　　　　　 R4
5　　　A1-3　○○○○　○○〇　　3,000　○○〇　○○〇　　　　　R6

VBAではなくても、今より処理が速くなる方法があればご教授ください。
よろしくお願いします。

＜使用 Excel：Excel2010、使用 OS：Windows10 ＞

 こんばんわ　＾＾
回答ではありませんで、すみません。＾＾；
ご提示の数式では各シートのＯ列の１，２，３，４，５行が指定
されているようですが
 B列   G2 
 C列  A11 
 D列  M11 
 E列  R4 
 F列  R6
は。。。シート一覧のいずこに。。。（？？；）。。。
ちょっと、不思議だな～と思っただけの興味本位なので
無視して戴いても構いませんが、気が向いたら教えて頂
けると、うれしいです。 Ａ列以外の、項目名かなぁ？
え？違うか。。。とほほほほ。。。m(_ _)m

（隠居Ｚ） 2021/10/07(木) 17:21

こんばんは(*^^*)
INDIRECT関数のことはよくわかっていないのですが、シート一覧のO列に G2 A11 M11 R4 R6
と入力してあって、各シートの G2 A11 M11 R4 R6を探してもらう動きになっています。
これで合っているのかわかりませんが、一応思い通りに動いているのでいいかと放置しています。
（VBA初心者） 2021/10/07(木) 17:49

 ＞＞一応思い通りに動いているのでいいかと放置
え＾＾；そぉなんですね。。。いや～そのぉ、わたし
関数は不得手でして、お詳しい方の回答をお待ちくださいませ。
コメント、有難う御座いました。INDIRECT、勉強させて戴きました
でわ。m(_ _)m

（隠居Ｚ） 2021/10/07(木) 18:10

 察するに…
 A3以降に書いてある番号と同名のシートが存在しており、
 そのシートの「名称」「購入日」…に該当するセルがその各シートに存在しているのですね？
 だとして、その別シートのレイアウトを提示していただくことは可能でしょうか？
（*） 2021/10/07(木) 18:16

返事が遅くなり申し訳ありません。
各シートは印刷して保存することを想定して作成したもので、セルの結合を多用しています。
見づらいとは思いますがこちらが別シートのレイアウトです。
コクヨの固定資産台帳の紙を参考に作成したものです。

シート名（例）：A1-1

　A　B　C　D　E　F　G　H　I　J　K　L　M　N　O　P　Q　R　S　T　U　V　W　X　Y　Z　AA

1　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　　A1-1

2　　　　　　　　　　　　　　　　　　　○○○○（G2の名称です）

4　　　　　　　　　　　　　　　　　　　　　　　　　　　備考○○○（R4）

5　　　　残存価格　　　　　　　　　　　　　　　　　　所在

6　　　　耐用年数　　　　　　　　　　　　　　　　　　売却日○○○（R6）

7　　　　償却率　　　　　　　　　　　　　　　　　　　購入先

10　年月日　　概要　　　　　　　　数量　　増加　　　　　減価　　　　帳簿価格

11　○○（A11）　　　　　　　　　　　　　1,000（M11）

見づらくて申し訳ないです。
X1にはシート名と同じ値が自動で入力される関数を設定しています。

X1　=RIGHT(CELL("filename",A1),LEN(CELL("filename",A1))-FIND("]",CELL("filename",A1)))

よろしくお願いします。
（VBA初心者） 2021/10/08(金) 14:30

コメント返信：

[ 一覧(最新更新順) ]

[[20211007153957]] 『別シートの複数セルからデータを転記したい』（VBA初心者） ページの最後に飛ぶ

[[20211007153957]]　『別シートの複数セルからデータを転記したい』（VBA初心者）　ページの最後に飛ぶ