| |
▼えあ さん：
>お世話になっております。
>
>早速ですが、ExcelシートがSheet1〜Sheet50まであります。
>各シートの中身は1000件ずつデータが入っております。
>各シートの先頭行はフィールド名があります。
>
>やりたい事は、Sheet1の1000件のデータの下行にSheet2から順に
>Sheet50までのデータを一括で移したいのです。
>※先頭行を省いたデータを移したいのです。
>
>どのような方法がありますでしょうか？
>ヒントでも構いませんので宜しくお願いします。
【追記】
Sub CopyPro()
Dim R As Long
Dim LastR As Long
Application.ScreenUpdating = False
LastR = Range("A65536").End(xlUp).Row
For R = LastR To 2 Step -1
'もし、対象セルと対象セルの下のセルが違った場合、
If Cells(R, 1).Value <> Cells(R + 1, 1).Value Then
'Sheet1のデータがある一番下のセルの次にSheet2のA1:A999のデータ
を転記する。
Worksheets("sheet1").Cells(R + 1, 1).Value = _
Worksheets("Sheet2").Range(Cells(1, 1), Cells(1, 999))
End If
Next
Application.ScreenUpdating = True
End Sub
エラーになります。
それと、上記の方法ではSheet2からSheet50までのデータを一括で転記できません。
できる方法をお願いします。
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
