![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
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
エクセルでセルを10個分くらいまとめて下にずらすにはどうしたらいいです
Excel(エクセル)
-
7
エクセルで、複数の参照範囲を一括で変更する方法
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
iMacのモニターを使って
-
El Capitanがインストールでき...
-
“Pipidae”
-
MacにもAutoHotkey(windows)の...
-
Macのメールアドレス追加
-
MacのAutomatorのログの表示の ...
-
mac ファイルの詳細情報を編集...
-
メールソフトBecky!について
-
Mac メールドレスのコピペが出...
-
Macでデスクトップアイコンを整...
-
Microsoft office 2019 for mac...
-
Biohazard re4をMacでプレイし...
-
Macの外付けHDDが認識しない
-
Macにwindouws10入れるメリット...
-
Macでsans serifと同じフォント...
-
Macbookの画面がこのようにズー...
-
PATHを使ってcdなどで簡単に移...
-
Mac プレビューでクリップボー...
-
AmazonでMacBookを買ってパスワ...
-
mac初心者 OS Catalina10.15.7...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
GPU
-
MacにもAutoHotkey(windows)の...
-
Macでデスクトップアイコンを整...
-
Mac システムデータ
-
iMacをMacMiniのモニターとして...
-
今日Macbookを買ったんですが、...
-
最近新しいMacBookを購入しまし...
-
MacBookのパスコードがわからない
-
Mac 同期前に戻す
-
エクセルの表が綺麗にプリント...
-
iMacのモニターを使って
-
Microsoft office 2019 for mac...
-
iTunesのクラウドにある音楽デ...
-
配信の画質
-
Spotifyが勝手に起動
-
mac ファイルの詳細情報を編集...
-
macOS Sonoma 14.1をインストー...
-
CDの曲をスマホに取り込む方法...
-
macbookに繋げてCDを聴く方法は...
-
MacBookの音声入力ができなくな...
おすすめ情報