| |
▼あ さん：
>こんにちは。
>返信、ありがとうございます。
>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
>
>外していたらごめんなさい。
>ファイル名は書いていたとおりのようにしたので、
>本来のファイル名変換してください。
|
|
tbtk
- 05/10/31(月) 15:29 -
