Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

51019 / 76732

←次へ　｜　前へ→


	【30589】Re:同一データを検索して一定のデータを入力する

あ - 05/10/31(月) 15:14 -


	引用なし

	パスワード

こんにちは。

Sub test()
Dim 背番号 As String
Dim 品番 As String
Dim 最下行 As Integer
Dim i As Integer
Dim 検索セル As Variant

Windows("データ取込").Activate
最下行 = Range("A1").End(xlDown).Row

For i = 2 To 最下行
　　品番 = Range("B" & i).Value
　　Windows("背番号表").Activate
　　検索セル = Cells.Find(what:=品番, after:=Range("A1"))
　　If Not 検索セル Is Nothing Then
　　　　背番号 = 検索セル.Value
　　End If
　　Windows("データ読込").Activate
　　Range("D" & i).Value = 背番号
Next

End Sub

外していたらごめんなさい。
ファイル名は書いていたとおりのようにしたので、
本来のファイル名変換してください。

0 hits

▼

【30584】同一データを検索して一定のデータを入力する tbtk 05/10/31(月) 14:17