![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?8acaa2e)
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も見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
エクセルのセル参照、一つずつ参照セルをずらしていきたい
Excel(エクセル)
-
セルを決まった数だけずらしていく方法
Excel(エクセル)
-
【エクセル関数】参照するセルを一定数ずつ増やす
Excel(エクセル)
-
-
4
別シート参照のセルをシート毎にずらしたいです
Excel(エクセル)
-
5
エクセルの参照先が固定されてしまうため、ずらすことは出来ないのでしょうか。教えてください。
Excel(エクセル)
-
6
SUMIF関数で、「ブランク以外を合計」を指定したい
その他(Microsoft Office)
-
7
エクセルでセルを10個分くらいまとめて下にずらすにはどうしたらいいです
Excel(エクセル)
-
8
エクセルで、複数の参照範囲を一括で変更する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
MAC フォルダ内の写真整理で簡...
-
iMacのモニターを使って
-
Macでデスクトップアイコンを整...
-
Macの手書き漢字入力ツールにつ...
-
iPhoneで手書き文字入力(2)
-
メールソフトBecky!について
-
Monolingual for macOS
-
Biohazard re4をMacでプレイし...
-
“Pipidae”
-
Macに詳しい方教えて下さい M1...
-
プレミアプロ2023と2024どちら...
-
iMacをMacMiniのモニターとして...
-
MacにもAutoHotkey(windows)の...
-
Mac プレビューでクリップボー...
-
Macのメールアドレス追加
-
配信の画質
-
プレミアプロを立ち上げても英...
-
mac ファイルの詳細情報を編集...
-
macOS Sonoma 14.1をインストー...
-
Mac M2を使っています。 モニタ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
iMacのモニターを使って
-
新品macの起動時の移行元の検索...
-
Macでデスクトップアイコンを整...
-
Macのメールアドレス追加
-
MacにもAutoHotkey(windows)の...
-
iMacをMacMiniのモニターとして...
-
Macの手書き漢字入力ツールにつ...
-
今日Macbookを買ったんですが、...
-
mac ファイルの詳細情報を編集...
-
CDの曲をスマホに取り込む方法...
-
Mac システムデータ
-
Microsoft office 2019 for mac...
-
MacBook 入力ソースに日本語がない
-
Mac プレビューでクリップボー...
-
macbookに繋げてCDを聴く方法は...
-
MacのFinderでmovファイルのサ...
-
Mac メールドレスのコピペが出...
-
macOS Sonoma 14.1をインストー...
-
El Capitanがインストールでき...
-
メールソフトBecky!について
おすすめ情報