0

EXCELで入力規則のドロップダウンリストが設定されているセルを、設定を崩さずにVBAで引っ張ってくる方法はありますか？
システムよりEXCELに落とし込まれた新しい「当月売上リスト」と、同じようにして前日に 作成した「当月売上リスト」を照合して、今日の「当月売上リスト」を作成しています。（今日作った「当月売上リスト」は明日になると、前日に作成した「当月売上リスト」という事になります。）
照合する理由は、作成時に「当月売上リスト」列の最後尾に「処理段階」という項目を作成して入力規則のドロップダウンリストを設定している為です。そのドロップダウンリストから担当が処理レベルを選択し、物件の処理段階を把握しています。（厳密にいうと、この「処理段階」のほかに4列ほど項目を追加（日付、備考入力欄等）しています。）
（以下、「当月売上リスト」略）
新しいリストを基盤に物件NOをキーにして、前日のリストから処理段階等のセルをCOPYのPasteSpecialで引っ張ってきています。
DOLOOPで600～800件（月末になると物件が増えていく）のでこれだけで５分～７分掛かってしまいます。Destinationで貼り付けするとドロップダウンリストの設定まではコピーされず、値だけの貼り付けになってしまうので、Paste Specialを使用していますが、ドロップダウンリストの設定を崩さずにデータを引っ張ってくるには、やはりこの方法しかないのでしょうか？出来ればもう少し速くしたいのですが・・・
このドロップダウンリストで、処理段階別の統計をとっているのでドロップダウンリストの設定は必須です。
物件名称の変更や破談、追加など頻繁にあるため、前日のリストを基盤に変更・追加されているものを新しいリストからデータを引っ張ると大変です。
特に破談になると、その物件データは落とし込まれないので、前日のリストにデータはあるが、新しいリストにデータはないという事になります。そのため、新しいリストを基盤にしています。

Public n As Long ’minにはデータ範囲の最初の行番号が格納されています。
（...略）
Sheets("売上リスト（全体）").Select
n = min
With Sheets("売上リスト（全体）")
Do While .Cells(n, 1).Value <> ""
物件NO = .Cells(n, 1).Value

If Not Sheets("前日データ").Columns("A").Find(what:=物件NO) Is Nothing Then
Worksheets("前日データ").Columns("A").Find(what:=物件NO).Offset(0, 20).Resize(1, 5).Copy
Worksheets("売上リスト（全体）").Range(.Cells(n, 21), .Cells(n, 25)).PasteSpecial
End If
End With
（...略）
n = n + 1
Loop

拙い文章で申し訳ないのですが、回答をお願いします。

質問者が選んだベストソリューション

Yahoo!知恵袋 4346日前