|
▼こば。 さん:
こんばんは。
>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
|
|