[[20191128211313]]　『シート毎に参照セルをずらしていく』（な）　ページの最後に飛ぶ

『シート毎に参照セルをずらしていく』（な）

はじめまして。よろしくお願いします。

一覧シート、シート1、シート2、シート3、…、シート200と続くブックがあります。
シート1には一覧シートのセルA1を、シート2には一覧シートのセルA2を、
シート3には一覧シートのセルA3を、とシート毎に参照セルをずらしていきたいです。
この場合、シート毎に(200シート分)参照セルを入力しなければならないのでしょうか。
まとめて200シート分入力できる数式はあるのでしょうか。

＜使用 Excel：Excel2016、使用 OS：Windows8 ＞

 =IFERROR(INDIRECT("一覧シート!A"&REPLACE(CELL("Filename",A1),1,FIND("]シート",CELL("Filename",A1))+3,"")),"")

 ※ファイルが一度でも保存されていないと機能しまへん。
（GobGob） 2019/11/29(金) 08:13

 マクロを使えば一瞬で終わりますがいかがでしょうか？

 Sub test()

     Dim i As Long

     Application.ScreenUpdating = False

     For i = 1 To 3
         Sheets("シート" & i).Range("A" & i).Formula = "=一覧!A" & i
     Next

     Application.ScreenUpdating = True

 End Sub
（bi） 2019/11/29(金) 08:47

ご回答をいただきありがとうございます。
せっかくお二方にご教示いただいたのですが、
当方の知識不足によりできませんでした…
勉強します。
（な） 2019/11/29(金) 14:43

コメント返信：

[ 一覧(最新更新順) ]

[[20191128211313]] 『シート毎に参照セルをずらしていく』（な） ページの最後に飛ぶ

[[20191128211313]]　『シート毎に参照セルをずらしていく』（な）　ページの最後に飛ぶ