• ベストアンサー

VBAで、FIND NEXTの検索について

お世話になります。 データの中で品番を見つけてその1列右の品名を別シートへ値を 記述しようとしてまして、そして見つける品番は、2回以上同じ 品番が出てきたりするので、FIND NESTを使っているのですが、 1回しか出て来ない品番の場合は、その品番の1列右の品名を 何回も別シートへ引っ張って来てしまうのですが、1回しか出て 来ない品番は、右の品名を1回引っ張って来たら、それで終わりで、 次の品番をまた探しにいって欲しい場合の記述方法が分からないの ですが、どなたか教えてご教授頂けないでしょうか。

質問者が選んだベストアンサー

  • ベストアンサー
  • n-jun
  • ベストアンサー率33% (959/2873)
回答No.1

まずは作成されたコードを提示されては? (多分1周した事の判定を入れていないのかなとは思いますが、  どのようになっているのかが不明ですので) http://www.eurus.dti.ne.jp/~yoneyama/Excel/vba/vba_find.html の FindNext メソッド を参照して下さい。 fAddress = c.Address '1回目に見つかったセルアドレスを記録する。 If c.Address = fAddress Then Exit Do   '次に見つかったものが1回目のセルアドレスと同じであれば、  '検索をやめる。 と言うようになっています。 この方法を取られていないのでは?と推測しています。

miruchoko
質問者

お礼

ありがとうございました。 コードを提示するまでも無く、解決致しました。

関連するQ&A