|
▼初心者 さん:
こんにちは
UBound(vnt, 1)を、vnt.Rows.Count にしてみて下さい。
>▼ウッシ さん:
>
>連絡ありがとうございます。
>
>Dim vnt As Range として
>Set vnt = .Range("Z2", .Range("A65536").End(xlUp))
>
>と変更して試してみるとどうなりますか?
>
>試したところ、以下の箇所で配列がありませんと出ます。
>
>For i = 1 To UBound(vnt, 1)
>
>
> Dim A
> Dim dic As Object
>
> Dim vnt As Range
>
>
> Windows("MT第七.xls").Activate
> Sheets("作業").Select
> Range("A1").Select
>
> With Sheets("作業")
> Set vnt = .Range("Z2", .Range("A65536").End(xlUp))
> End With
>
> '
> ''With Sheets("作業")
> '' vnt = .Range("Z2", .Range("A65536").End(xlUp)).Value
> '' ''Set vnt = .Range("Z2", .Range("A65536").End(xlUp))
> ''End With
>
> '
|
|