|
▼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 さんのシートのロジックで少しヒントをいただいたので自分でも
考えてみたいと思います。
|
|