Excel VBA質問箱 IV

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

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


46417 / 76732 ←次へ | 前へ→

【35286】Re:複数の別シートから一気に情報を取得したい。
発言  ponpon  - 06/2/25(土) 20:44 -

引用なし
パスワード
   ▼こば。 さん:
こんばんは。

>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

7 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 発言

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