A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
質問者様が御求めになられているのは、
Sheet2のA1セルにSheet1のA1セルのデータを反映させ、
Sheet2のA2セルにSheet1のD1セルのデータを反映させ、
Sheet2のA3セルにSheet1のG1セルのデータを反映させ、
・
・
・
という事を行う関数なのでしょうか?
それでしたら、Sheet2のA1セルに次の関数を入力してから、Sheet2のA1セルをコピーして、Sheet2のA2以下に貼り付けると良いと思います。
=IF(OFFSET(Sheet1!$A$1,,(ROWS($3:3)-1)*3)="","",OFFSET(Sheet1!$A$1,,(ROWS($3:3)-1)*3))
又、次の関数でも、同じ事が出来ます。
=IF(INDEX(Sheet1!$1:$1,COLUMN(Sheet1!$A$1)+(ROWS($3:3)-1)*3)="","",INDEX(Sheet1!$1:$1,COLUMN(Sheet1!$A$1)+(ROWS($3:3)-1)*3))
No.1
- 回答日時:
マクロでVBA記述をすれば簡単にできます。
関数では…コピー先シートの全てのセルに式のセットが必要ですね。
オートフィルで簡単にできそうではありますが。
以下のような形でいかがでしょうか。
コピー元のセルを選択するのに、変数を使って右に3つ飛ばし、
繰り返しの処理をさせています。
シート名は実際のシート名をセットしてください。
また、変数名はお好きなものにしてください。
======================================
'コピー元と貼り付け先セルの位置変数
Dim copyCell As Long
Dim pasteCell As Long
'コピー元と貼り付け先セルの位置変数
copyCell = 1
pasteCell = 1
'コピー元セルの内容がNULLか空白になるまで繰り返し
Do Until IsNull(Worksheets("Sheet1").Cells(1, copyCell).Value) Or Worksheets("Sheet1").Cells(1, copyCell).Value = ""
Sheets("Sheet1").Select 'Sheet1を選択
Cells(1, copyCell).Select 'Sheet1のセルを選択
Selection.Copy '選択したセルの内容をコピー
Sheets("Sheet2").Select 'Sheet2を選択
Cells(1, pasteCell).Select 'Sheet2のセルを選択
ActiveSheet.Paste 'コピーしたセルの内容を貼り付け
copyCell = copyCell + 3 '選択するセル用の変数を3加算(右へ3ずらすため)
pasteCell = pasteCell + 1 '貼り付けするセル用の変数を1加算(右へ1ずらすため)
Loop
======================================
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) Excel関数について質問です。 シート1に入力シートがあります。 =A1 =B1などで離れた数字な 5 2022/12/18 13:42
- Excel(エクセル) 重複したデータ(空白は除く)のVBA表記について 4 2022/08/15 07:28
- Excel(エクセル) 同じExcelのBOOK内で 1枚目のシートのA1のセルにデータを 入れると2枚目のシートのC1のセ 1 2022/10/25 09:40
- Visual Basic(VBA) Excel VBA 最終行を取得しVlookup関数をコピーする方法をコーディングで教えてください。 3 2023/05/11 13:14
- Excel(エクセル) 関数EXACT(文字列,文字列)とexcelVBA 3 2022/04/14 15:07
- Excel(エクセル) 【Excel関数】値が合致するセルの隣のセルを表示させたい 8 2022/10/12 17:44
- Excel(エクセル) Excel 売上管理シートに入力した売上データを、日報に自動反映させたいと考えています。 売上管理シ 3 2023/04/29 18:08
- Excel(エクセル) Excelの複数人での参照について 2 2022/06/01 13:38
- Excel(エクセル) Excelで日報を自動で作成したい 売上管理シートに入力した売上データを、日報に自動反映させたいと考 1 2023/04/29 18:07
- Excel(エクセル) Excelで、別シートの表のステータスに伴った動的な自動転記をしたいです。 2 2023/06/14 15:56
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
エクセルのセル参照、一つずつ参照セルをずらしていきたい
Excel(エクセル)
-
セルを決まった数だけずらしていく方法
Excel(エクセル)
-
【エクセル関数】参照するセルを一定数ずつ増やす
Excel(エクセル)
-
-
4
エクセルの参照先が固定されてしまうため、ずらすことは出来ないのでしょうか。教えてください。
Excel(エクセル)
-
5
別シート参照のセルをシート毎にずらしたいです
Excel(エクセル)
-
6
SUMIF関数で、「ブランク以外を合計」を指定したい
その他(Microsoft Office)
-
7
エクセルでセルを10個分くらいまとめて下にずらすにはどうしたらいいです
Excel(エクセル)
-
8
Excel 例A(1+9) のように番地のたし足し算の方法を教えてください
その他(Microsoft Office)
-
9
エクセルで、複数の参照範囲を一括で変更する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
MacBookのパスコードがわからない
-
最近新しいMacBookを購入しまし...
-
MacBookのファインダーの中身は...
-
iMacのモニターを使って
-
iMacをMacMiniのモニターとして...
-
エクセルの表が綺麗にプリント...
-
Biohazard re4をMacでプレイし...
-
MacBookの音声入力ができなくな...
-
MacのFinderでmovファイルのサ...
-
今日Macbookを買ったんですが、...
-
Spotifyが勝手に起動
-
mac ファイルの詳細情報を編集...
-
macOS に対して古すぎるパソコ...
-
Mac OS CatalinaからVenturaに...
-
Mac 同期前に戻す
-
GPU
-
Mac拡張子をいじらず名前変更の...
-
Mac OSが再インストールできな...
-
Macの手書き漢字入力ツールにつ...
-
会社でMacを使っているところが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
今日Macbookを買ったんですが、...
-
iMacをMacMiniのモニターとして...
-
iMacが起動できなくなりました。
-
Macでデスクトップアイコンを整...
-
Microsoft office 2019 for mac...
-
iMacのモニターを使って
-
iMacをデュアルモニタ(外部ディ...
-
Mac拡張子をいじらず名前変更の...
-
mac ファイルの詳細情報を編集...
-
Macに詳しい方教えて下さい M1...
-
mac os 10.6の入ったMac mini ...
-
Mac OS14 いきなりディクトップ...
-
MacBook Airの買い替えについて
-
macOS Sonoma 14.1をインストー...
-
iPhoneで撮った写真はMacでも見...
-
Macの手書き漢字入力ツールにつ...
-
Mac bookで録画ファイル.movを...
-
MacにもAutoHotkey(windows)の...
-
El Capitanがインストールでき...
-
Clean mac x
おすすめ情報