|
▼Jaka さん:
>こんにちは。
>
>もしかして削除とかしないとダメだったんでしょうか?
>そこまで頭が回りません出でした。
>
>Sub dnnn()
>Dim Cel As Range
>With Sheets("Sheet2")
>For Each Cel In .Range("A2", .Range("A65536").End(xlUp))
> Mct = Application.Match(Cel.Value, Sheets("Sheet1").Columns(1), 0)
> If IsError(Mct) Then
> Sheets("Sheet1").Range("A65536").End(xlUp).Offset(1).Resize(, 3).Value = _
> Cel.Resize(, 3).Value
> Else
> Sheets("Sheet1").Range("A" & Mct).Resize(, 3).Value = _
> Cel.Resize(, 3).Value
> End If
>Next
>End With
>End Sub
早速の回答ありがとうございます。
すいません。お願い追いでで申し訳ありませんが
上のプログラム解説していただければ
非常にありがたいのですが、何とかお願いいたします。
あと、メインの表の方は削除(行ごと)がいります。
重ね重ね宜しくお願いします。
|
|