Excel総合相談所 132

[0830 名無しさん＠そうだ選挙にいこう 2018/10/31(水) 11:36:21.00]

>>822
値でコピーしたいというので値コピーだけにしちゃった。
VLOOKUPにならないようにってことね

全コピーでOKなら　中央を差し替え。
If Not (r Is Nothing) Then
Y2 = r.Row
Sheet2.Range(Sheet2.Cells(Y2, 2), Sheet2.Cells(Y2, COPY_MAX_COL)).Copy Sheet1.Cells(Y1, 2)
End If