|
▼Jaka さん:
>> 'もし、対象セルと対象セルの下のセルが違った場合、
>> If Cells(R, 1).Value <> Cells(R + 1, 1).Value Then
>この比較が何のためにあるのか解りません。
>×列最後の行のセルと次の行のセルの内容は一致する事ないです。
>次の行のセルは、空白だから.....。
>最後行以降、空行が999行以下だった場合の処理も考えた方が
>いいのかも知れませんが、51000行ぐらいのようですので。
>こんな感じでいけると思います。
>
>For i = 2 To 50
> LastR = Sheets("Sheet1").Range("A65536").End(xlUp).Row
> Sheets("Sheet1").Range("A" & lastr + 1).Resize(999).Value = _
> Sheets("Sheet" & i).Range("A2:A1000").Value
> DoEvents
>Next
上記の内容で、欲しい結果となりました。
ただなぜそうなるのかが理解できておりませんでの、
理解できるように勉強致します。
また解らない事がでてきたら、質問させていただきます。
|
|