[[20130526180206]]　『最下行の次の行に貼り付け』（とよしま）　ページの最後に飛ぶ

 『最下行の次の行に貼り付け』（とよしま）

 Book1、Sheet1のA列の最下行の次の行に、Book2、Sheet1、D2から下を貼り付け
 Book1、Sheet1のB列の最下行の次の行に、Book2、Sheet1、M2から下を貼り付け
 るマクロを教えてください。Windows 7 Excel2007です。

 Book1                         Book2
 Sheet1                        Sheet1
      A     　　B                D        M
 1 整理番号　　納期           整理番号  納期
 2　 12        4/2              17       4/18　            
 3    9       3/22              21       4/22
 4   10       3/27              18       4/20
 5   15        4/7              25       4/26
 6    4       3/15                 
 7    7       3/29
 8    8       4/1
 9

 一例

 Sub Sample()
    Dim shF As Worksheet
    Dim r1 As Range
    Dim r2 As Range

    Set shF = Workbooks("Book2").Sheets("Sheet1")

    With shF
        Set r1 = .Range("D2", .Range("D" & .Rows.Count).End(xlUp))
        Set r2 = .Range("M2", .Range("M" & .Rows.Count).End(xlUp))
    End With

    With Workbooks("Book1").Sheets("Sheet1")
        r1.Copy .Range("A" & .Rows.Count).End(xlUp).Offset(1)
        r2.Copy .Range("B" & .Rows.Count).End(xlUp).Offset(1)
    End With

 End Sub

 (ぶらっと)

 ぶらっとさん、助かりました。ありがとうございました。

（とよしま）

コメント返信：

[ 一覧(最新更新順) ]

[[20130526180206]] 『最下行の次の行に貼り付け』（とよしま） ページの最後に飛ぶ

[[20130526180206]]　『最下行の次の行に貼り付け』（とよしま）　ページの最後に飛ぶ