Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


46400 / 76732 ←次へ | 前へ→

【35304】Re:複数の別シートから一気に情報を取得したい。
お礼  こば。  - 06/2/26(日) 0:47 -

引用なし
パスワード
   ▼ponpon さん:
>▼こば。 さん:
>こんばんは。
>
>>10個のExcelシートA〜Jの特定のセル、行の情報を取得したい。
>>例)Aの情報
>> 新しいシートのRenge("J23")に、シートAのRenge("I23")から最終行までの値をコピー。
>> 新しいシートのRenge("J4")に、シートAのRenge("C10")をコピー。
>>というように、A〜Jまでの情報をJ23から読み込んだ情報を右側にどんどんシフト
>>コピーしていくようなイメージです。
>
>右側にシフトしていくなら
>  
>  Bの情報
> 新しいシートのRenge("K23")に、シートBのRenge("I23")から最終行までの値をコピー。
> 新しいシートのRenge("K5")に、シートBのRenge("C10")をコピー。
>
>ではないですか??
>
>Sub test()
>  Dim myr As Range
>  Dim myVal
>  Dim NewSh As Worksheet
>  
>  myVal = Array("A", "B", "C", "D", "E", "F", "G", "H", "I", "J")
>  Set NewSh = Sheets.Add(after:=Sheets(Sheets.Count))
>  For i = 0 To UBound(myVal)
>    With Sheets(myVal(i))
>      .Range("I23", .Range("I65536").End(xlUp)).Copy _
>      NewSh.Cells(23, 10 + i)
>      .Range("C10").Copy NewSh.Cells(5, 10 + i)
>    End With
>  Next
>  Set NewSh = Nothing
>End Sub


ソースまで作成していただき感謝しております。
説明が勘違いされる書き方を書いてしまい申し訳ないのですが
10個のシートではなく、10個のExcelファイルのそれぞれのRenge("I23")から最終行までの値と、
Renge("C10")の値を同時に取得したいのです。同時に取得するにはどうすれば
良いのかがわかりません。
でも、ponpon さんのシートのロジックで少しヒントをいただいたので自分でも
考えてみたいと思います。
8 hits

【35284】複数の別シートから一気に情報を取得したい。 こば。 06/2/25(土) 15:33 質問
【35285】Re:複数の別シートから一気に情報を取得し... なっちゃん 06/2/25(土) 17:29 発言
【35303】Re:複数の別シートから一気に情報を取得し... こば。 06/2/26(日) 0:42 お礼
【35286】Re:複数の別シートから一気に情報を取得し... ponpon 06/2/25(土) 20:44 発言
【35304】Re:複数の別シートから一気に情報を取得し... こば。 06/2/26(日) 0:47 お礼
【35306】Re:複数の別シートから一気に情報を取得し... ponpon 06/2/26(日) 2:09 発言

46400 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free