[[20090807124749]]　『ﾌﾞｯｸの中の選択した複数ｼｰﾄのﾃﾞｰﾀを、新たにｼｰﾄを』（AA）　ページの最後に飛ぶ

『ﾌﾞｯｸの中の選択した複数ｼｰﾄのﾃﾞｰﾀを、新たにｼｰﾄを挿入してそれにはりつけるﾏｸﾛ』（AA）

ｼｰﾄすべてというわけではなく、そのときに選択した複数のｼｰﾄを、あらたに挿入した1ｼｰﾄにまとめるという作業をﾏｸﾛで組めますか?ちなみにデータは表になっていますが必ずしも同じ列数や行数ではないものです｡

 基本的な事はマクロの記録で出来そうですが
 ポイントは「そのときに選択した複数のｼｰﾄ」と
「必ずしも同じ列数や行数ではないものです｡ 」という事ですね。

 前者はActiveWindow.SelectedSheetsをループ処理
 後者はUsedRangeで出来そうですが
 シートの中のデータがどうなっているか解らないので断言できません。

 具体的なサンプルは以下のように。

  Sub test()
  Dim SelSh As Sheets, s As Worksheet
  Set SelSh = ActiveWindow.SelectedSheets
  SelSh.Item(1).Select
  With Worksheets.Add(After:=Sheets(Sheets.Count))
    For Each s In SelSh
      If .UsedRange.Cells.Count = 1 Then
        s.UsedRange.Copy .Range("A1")
      Else
        s.UsedRange.Copy .UsedRange.Offset(.UsedRange.Rows.Count).Cells(1)
      End If
    Next s
  End With
  End Sub

 （ｍｏｍｏ）

コメント返信：

[ 一覧(最新更新順) ]

[[20090807124749]] 『ﾌﾞｯｸの中の選択した複数ｼｰﾄのﾃﾞｰﾀを、新たにｼｰﾄを』（AA） ページの最後に飛ぶ

[[20090807124749]]　『ﾌﾞｯｸの中の選択した複数ｼｰﾄのﾃﾞｰﾀを、新たにｼｰﾄを』（AA）　ページの最後に飛ぶ