
excel2021を使用しています。
データベースから抽出したexcelデータはシート毎に入出金明細があり、それらすべてのシートの同じセルの数字だけ抽出したいです。
シート名が複雑かつシート数も100以上あり、INDIRECTを使うことが出来ません。
何か方法はありませんでしょうか。
シート名を一括で変更することができればINDIRECTを使用して欲しいデータだけ抽出することも出来ます。
①シート名は記号英数字漢字全て混ざっており複雑
②シート数は100以上ある
③全てのシートのA1にあるCD番号とC1にある残高を別シートにまとめたい
以上の条件で何か手段があれば教えて下さい。
色々試しましたが思いつきませんでした。
A 回答 (3件)
- 最新から表示
- 回答順に表示
No.3
- 回答日時:
こんにちは
すこしトリッキーな方法になりますが・・
2021ということですので、もしかするとTEXTSPLIT関数が使えないかも知れませんけれど・・
Webの機能制限付き365で試したところ、以下で可能でした。
以下は、串刺し計算を利用して展開する方法です。
ただし、対象となるシートが連続している必要があります。
(串刺しなので、シート名ではなくタブが連続しているという意味です)
例えば、Sheet1~Sheet20が連続しているとして、別シートのA1セルに
=TEXTSPLIT(TEXTJOIN(CHAR(27),0,Sheet1:Sheet20!A1),,CHAR(27))
を入力すると、Sheet1とSheet20の間にあるシートのA1セルの値が、A列にスピルされます。
(両端にあるシート名を指定すれば、それに挟まれているシート全体が対象になります)
※ 2021が手元にはありませんので、TEXTSPLITが使えない場合に展開する方法がわかりません。
手元にある2019でも、
TEXTJOIN(CHAR(27),0,Sheet1:Sheet20!A1)
までは計算可能ですので、うまく展開する方法がわかれば、2021でも可能ではないかと思います。
No.2
- 回答日時:
私の場合
参考程度で(参考にもならないかも知れません)
ユーザー定義関数
https://support.microsoft.com/ja-jp/office/excel …
https://valmore.work/excel-vba-function/
ファンクションコード
Public Function jOtherSHEET_CELLVALUE(cell As Range) As Variant()
Application.Volatile '複数シートの為不要
Dim callSheet As Worksheet
Set callSheet = ActiveSheet
Dim chkAddress As String
chkAddress = cell.Address(0, 0)
Dim ws As Worksheet
Dim Ans(), i As Long
For Each ws In Worksheets
ReDim Preserve Ans(i)
If callSheet.Name <> ws.Name Then
Ans(i) = ws.Range(chkAddress).Value
i = i + 1
End If
Next
Application.DisplayAlerts = False '循環参照対策
jOtherSHEET_CELLVALUE = Application.Transpose(Ans)
Application.DisplayAlerts = True
End Function
別シートの任意のセル
(参照先セルと同じセルアドレスでは無いのが望ましい)
A2セルに =jOtherSHEET_CELLVALUE(A1)
B2セルに =jOtherSHEET_CELLVALUE(C1)
対象セルは単セルのみ
関数入力セルの下には十分な空きセルが必要
参照先セルの値を変えても再計算されませんので変更時は再計算が必要
関数名は予約語などと被らない様に変更可能
頭文字のjはマイルールです =jと入力時に選び易いため
No.1
- 回答日時:
> 何か方法はありませんでしょうか。
マクロを作るか別ブックから Power Queryを使って読み込むかです。
> データベースから抽出したexcelデータは
データベースがあるならそっちから抽出してマージしたほうが早いです。
シートで分けてしまったデータを読み込み直すなんてのは時間の無駄です。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) 複数セルデータを別シートの単一セルにコピーしたい。(詳細をご参照ください) 1 2022/12/14 15:08
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) マクロか関数で処理したいのですが、教えて頂けませんか。 8 2022/10/31 15:18
- Excel(エクセル) シート参照を含む数式を連続コピー 3 2022/12/10 11:42
- Excel(エクセル) エクセル 別シートの各セルそれぞれの比率を計算したい 4 2023/08/05 15:20
- Excel(エクセル) エクセルの数式について ブック内の別シートの値の含まれたセルの個数を集計したい 全シート一覧のシート 1 2022/07/21 19:28
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) Excel>マクロ>特定のセルで同じ情報が登録されている行を1行にまとめたい(文字連結) 6 2023/01/05 16:30
- Excel(エクセル) 【Excel関数】値が合致するセルの隣のセルを表示させたい 8 2022/10/12 17:44
- Visual Basic(VBA) 複数のシートを一つのシートにまとめたい 左から3番目以降のシートのE列のセルに⚪︎が入っている行を抽 2 2022/09/18 18:42
このQ&Aを見た人はこんなQ&Aも見ています
-
複数シートの同じセル内容を1シートに順番に貼り付けたい
その他(Microsoft Office)
-
Excel、複数シート同セルを別シートで列に表示するいい方法教えてください
Excel(エクセル)
-
excel 複数のシートの同じ場所からコピーして1つのシートにまとめる方法
Excel(エクセル)
-
-
4
複数シートの固定のセルの値を一覧表にしたい
Excel(エクセル)
-
5
複数シートの同一セルを抽出する方法
Excel(エクセル)
-
6
EXCEL:複数シートから特定行を一覧化したい
その他(Microsoft Office)
-
7
EXCEL VBAで複数シート内のセルをまとめて表を作成
Visual Basic(VBA)
-
8
Excelの「0」だけ非表示、小数点の0.~は表示したいのですが、どうすればいいのでしょう。
Excel(エクセル)
-
9
エクセルで隣接していない複数のセルをコピーして、その状態(隣接していない)で張り付ける方法
Excel(エクセル)
-
10
別ファイルを開かず、INDIRECT関数を使用せずに、別ファイルのデータを求めたい
Excel(エクセル)
-
11
エクセル2016でfilter関数がないので、、抜き出す関数をおしえてください。
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
iPhoneのExcelアプリで、別のシ...
-
エクセルで条件に一致したセル...
-
Excelで複数シートの選択セルを...
-
Excelの「0」だけ非表示、小数...
-
エクセルで1月0日と表示される!!
-
ExcelでTODAY関数を更新させな...
-
日付が未入力の際はゼロか、空...
-
Excelシートの保護時にデータの...
-
EXCELのハイパーリンクのセルを...
-
Excelでスクロールすると文字が...
-
別シートのセルを絶対参照にする
-
エクセルで特定のセルの値を別...
-
複数シートの同じセル内容を1シ...
-
エクセルで指定のセルのみ完全...
-
シート参照で変数を使いたい(EX...
-
EXCEL関数でシート名が変わる可...
-
エクセルで、勤務表から 日付...
-
エクセルVBA「リストボックスで...
-
エクセル ハイパーリンクで画像...
-
エクセルでシート保護をかける...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iPhoneのExcelアプリで、別のシ...
-
Excelの「0」だけ非表示、小数...
-
Excelで複数シートの選択セルを...
-
Excelシートの保護時にデータの...
-
エクセルで条件に一致したセル...
-
エクセルで1月0日と表示される!!
-
日付が未入力の際はゼロか、空...
-
ExcelでTODAY関数を更新させな...
-
EXCELのハイパーリンクのセルを...
-
別シートのセルを絶対参照にする
-
Excelでスクロールすると文字が...
-
複数シートの同じセル内容を1シ...
-
マクロ 新しいシートにデータ...
-
エクセルで複写のように自動入...
-
エクセルで、加筆修正したセル...
-
エクセル ハイパーリンクで画像...
-
ハイパーリンク で『指定された...
-
エクセルで20万行あるシート...
-
エクセルで特定のセルの値を別...
-
INDIRECT(空白や()がある文字列...
おすすめ情報