[[20151126154036]]　『セルの管理NOを参照し、別シートに転記する』（みや）　ページの最後に飛ぶ

『セルの管理NOを参照し、別シートに転記する』（みや）

シート１に当日のデータ、シート２に前日データが記載されています。
シート１、２共に日々更新しています。
行数は日々変化します。
列はＡ～Ｉ列まで使用しており、シート１、２共に構成は同じです。

シート１（当日）のＩ列にシート２（前日）のＩ列の記載を転記したいです。
転記するのはシート２のＥ列の管理NOがシート１のＥ列と同じ場合にシート２のＩ列に転記する方法を教えてください。

シート２のＥ２セルにＡＡＡ１１１、Ｉ２セルに新規と記載されていて
シート１のＥ５セルにＡＡＡ１１１が記載されていたらＩ２セルに新規（シート２のＩ２セルをコピペする）と転記したいです。

＜使用 Excel：Excel2010、使用 OS：Windows7 ＞

 VLOOKUP関数を使ってはどうか？

 ところで
 >シート１のＥ５セルにＡＡＡ１１１が記載されていたらＩ２セルに
 は
 >シート１のＥ５セルにＡＡＡ１１１が記載されていたらＩ５セルに
 だろうか？
（ねむねむ） 2015/11/26(木) 16:05

（ねむねむさん）
そうです！書き間違えました！
ＶＬＯＯＫＵＰでしていたのですが、エラー（＃Ｎ／Ａ）が出るので出来ればマクロでエラーが出ない方法でやりたいと思います。
（みや） 2015/11/26(木) 16:17

 IFERRORを使えばよいかと。
 =IFERROR(VLOOKUP(･･･),"")
（bi） 2015/11/26(木) 16:24

（ｂｉさん）
転記する前段階でマクロ（.VALUE)でシート１をシート２へコピペしているのでエラーメッセージ(#N/A)が消えません。これを転記ハンドで消すのが面倒なので方法がないかなぁ～と。。。
（みや） 2015/11/26(木) 16:48

 素人が作ったマクロですが、参考になれば･･･

 Sub 転記()

     Dim LastRow As Long, r As Long
     Dim MyRange As Range

     LastRow = Sheets("Sheet2").Cells(Rows.Count, 5).End(xlUp).Row

     For r = 2 To LastRow
         With Sheets("Sheet1")
              Set MyRange = .Columns("E").Find(what:=Sheets("Sheet2").Cells(r, 5).Value, lookat:=xlWhole)
              If Not MyRange Is Nothing Then MyRange.Offset(, 4).Value = Sheets("Sheet2").Cells(r, 9).Value
         End With
     Next

 End Sub
（se_9） 2015/11/26(木) 17:05

se_9さん

ありがとうございます！
バッチリでした！

（みや） 2015/11/26(木) 19:17

コメント返信：

[ 一覧(最新更新順) ]

[[20151126154036]] 『セルの管理NOを参照し、別シートに転記する』（みや） ページの最後に飛ぶ

[[20151126154036]]　『セルの管理NOを参照し、別シートに転記する』（みや）　ページの最後に飛ぶ