|
▼ウッシ さん:
連絡ありがとうございます。
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
'
|
|