![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
![](http://oshiete.xgoo.jp/images/v2/common/profile/M/noimageicon_setting_01.png?5a7ff87)
No.4ベストアンサー
- 回答日時:
・どの位置のセルを対象とするのか
・どのシートにまとめるのか
がわかりませんし、
・値の転記ではなくリンク貼り付けで
ということなので、
いっそ下記のような関数を定義した方が便利かもしれません。
(少し重くなる可能性がありますが…)
動作の概要
第1引数で指定した番号のシートの、
第2引数で指定したセルと同位置にあるセルの参照を返す。
'----------------------------↓ ココカラ ↓----------------------------------
Function Sample(ByVal シート As Integer, ByVal セル As Range) As Range
Application.Volatile
Set Sample = Worksheets(シート).Range(セル.Address)
End Function
'----------------------------↑ ココマデ ↑----------------------------------
例1
任意のシートの任意のセルを
=Sample(3,B4)
とすると、3番目のシートのB4セルの参照が返る。
例2
任意のシートの任意の行のA列目を
=Sample(COLUMN(),$F$3)
として、右方にフィルすると、各シートのF3セルの参照が順に返る。
※シート番号は、1始まりで左から数えた番号。
※非表示のシートも数に含める。
※グラフシートは数に含めない。
以上ご参考まで。
No.3
- 回答日時:
注意を忘れていました。
このマクロを実行する際は、必ずシート名を羅列するシートをアクティブにした状態で行ってください。
別のシート上で実行すると、そのシート上に書き込まれるので、
必要なデータが上書きされてしまいます。
これを防ぐには、羅列するシート名がSheet1だとすれば、
Sheets("Sheet1").Select
を、
Dim x As Integer
の次の行に挿入してください。
No.2
- 回答日時:
マクロ(VBA)を使って良いなら
http://akubizzz.hp.infoseek.co.jp/sub171.html
に以下のマクロがありました。
Sub シート名取得()
Dim thisSheet As Object
Dim x As Integer
'-----vizzarによる追加 ここから
Columns("A:A").Select
Selection.ClearContents
'-----vizzarによる追加 ここまで
x = 1
For Each thisSheet In Sheets
If thisSheet.Name <> ActiveSheet.Name Then
Cells(x, 1).Value = thisSheet.Name
x = x + 1
End If
Next
'-----vizzarによる追加 ここから
Cells(1, 1).Select
'-----vizzarによる追加 ここまで
End Sub
シート名を羅列したいシートを選びます(或いは追加)。
Alt+F8を押す。
マクロ名ボックスに「シート名取得」と入力し、「作成」ボタンをクリック。
開いたボックス内に
Sub シート名取得()
End Sub
と表示されているはずなので、
この空いている行に、上記のコードをコピぺします。
ここで、二行目からリストさせたいので、
x = 1
を
x = 2
に変更します。
もし、「Sub シート名取得()」と「End Sub」がそれぞれ二重になってしまったら、
一方を削除して、上記コードと同様になるようにしてください。
その後、表示されている、「Visual Basic」のウインドを右上の「×」を押して閉じます。
これで、マクロが設定できましたので、必要な都度、Alt+F8で出てくるパネルで「実行」ボタンを押せばワークシート名がリストされます。
後は、INDIRECT関数で、前回コメントした数式で各シートのセルを参照できます。
お礼が遅くなってすみません。
こちらの方法でやってみました。
INDIRECT関数で参照したいセル番号の前に"!"を入力すると言うことに
なかなか気づかず苦戦しましたがなんとかできました。
丁寧に教えていただきありがとうございました。
これで今月の集計から時間を短縮することが出来ます。
またよろしくお願いいたします。
No.1
- 回答日時:
要は、まとめる側のシートの100行分の各行に、他のシートの同じ位置のセルをまとめたいと言うことでしょうか?
たとえば、
Sheet101のB2にSheet1のK35、C2にSheet1のR58
Sheet101のB3にSheet2のK35、C3にSheet2のR58
といった具合でしょうか?
もしそうなら、そしてシート名がSheet1~Sheet100なら、
まとめるシートのA列をワーク列、さらに一行目は表題に使うとして、
A2に
="Sheet"&(ROW()-1)&"!"
(もし、Sheet35からSheet134なら、「="Sheet"&(ROW()+33)&"!"」)
B2に
=INDIRECT($A1&"K35")
C2に
=INDIRECT($A1&"R58")
として、下に99行分コピーすればOKです。
各シート名が非連続だったり単なる文字だったら、面倒ですがA列に各シート名を記入していってください。
B列とC列の数式はそのままで構いません。
この回答への補足
記入はここでいいのでしょうか。。。
回答ありがとうございます。
各シートには別々の名前がついています。
このシートは月ごとに増減があるため、シート名をひとつずつ書くのは難しいです。
左端のシートから、ひとつ右のシート またひとつ右のシート
のように順番に読み込むことはできないのでしょうか。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 前の(左隣の)シートを連続参照するように、あとから変更したい 1 2023/02/22 00:51
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) vbaエクセルマクロ RemoveDuplicatesについて RemoveDuplicatesを使 3 2023/02/28 01:13
- Excel(エクセル) エクセルシートのデータを1列飛ばしで別ブックのシートに貼り付けるマクロが知りたい 2 2023/06/05 22:37
- Excel(エクセル) エクセルのマクロでコピー後の貼り付け先を毎回指定したところにしたい 5 2022/08/12 10:47
- Visual Basic(VBA) EXCEL VBA 単語置き換え について質問です ブック名 ぶぶぶ シート名 ししし セル V3〜 3 2023/03/08 01:41
- Visual Basic(VBA) エクセルマクロでアニメを作る方法を教えてください。 1 2023/02/07 14:27
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Excel(エクセル) エクセルで”入力シート”の文字書式の変更を”出力シート”で同じ文字書式で印刷したいです。VBA希望 4 2023/04/24 11:07
- Excel(エクセル) 条件に合った数値の合計を表示させたい関数と条件指定の方法 3 2023/05/13 16:07
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
WindowsXPを最近のパソコンに...
-
Windows XP SP3のインストール...
-
絶対にいけるWindowsXPsp3の無...
-
シムズ4(PS4版) マイライブラリ...
-
アウトルックを「タスクバー」...
-
フリープリントソフト「かんた...
-
ピクチャーが無くなった
-
Windowsxpってどうやってインス...
-
Windows10 32ビットから64ビッ...
-
パソコン起動時に2つのユーザー...
-
Windows XP x64のKB4018271につ...
-
パソコンでCDを見たい、見る...
-
ウィンドウズ8.1にウィンドウズ...
-
英語版Windowsに日本語のアプリ...
-
グーグルのクロームキャストを...
-
BD-Rへのデータ移行保存時間
-
Windows11のPCの、ショートカッ...
-
XPが起動しない、バックアップ...
-
コンピュータが数秒毎に更新さ...
-
「96px=1inch(2.54cm)」という...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
絶対にいけるWindowsXPsp3の無...
-
Windows XP SP3のインストール...
-
XPが起動しない、バックアップ...
-
WindowsXPを最近のパソコンに...
-
アウトルックを「タスクバー」...
-
シムズ4(PS4版) マイライブラリ...
-
パソコンでCDを見たい、見る...
-
メモリ、SSD、HDDの違いを教え...
-
アカウント名とユーザー名との...
-
HDDがフォーマット出来なくなった
-
やっぱり現代のPCにWindowsXPを...
-
windows xp proが起動しなくな...
-
Windows xpにWindows10を無理や...
-
windows10 フォルダを上書きす...
-
WindowsXPのプロダクトキーを紛...
-
Windows11のPCの、ショートカッ...
-
最近、パソコンを起動するとこ...
-
フリープリントソフト「かんた...
-
プロダクトキー
-
ラズパイでwindows XPは動くのか
おすすめ情報