|
▼涙 さん 今日は。
横から失礼します。
>コピペをしてみたのですが、以下のところでがエラー表示されたので
>カンマをとって改行してみましたところ、今度はDDDが2回表示される
>ようになりました。
>> Ary1(i) = C.Value, Ary2(i) = C.Offset(, 1).Value
'は
Ary1(i) = C.Value
Ary2(i) = C.Offset(, 1).Value
'でいいです。
> i = i + 1 '<===[A]
> End If
> With .Range("B65536").End(xlUp)
> .Offset(1).Resize(UBound(Ary1) + 1).Value = Ary1
> .Offset(1, 1).Resize(UBound(Ary2) + 1).Value = Ary2
'を
.Offset(1).Resize(UBound(Ary1)).Value = Ary1
.Offset(1, 1).Resize(UBound(Ary2)).Value = Ary2
.Offset(1, 2).Resize(UBound(Ary2)).Value = 1000
'にしてください。
'[A]で1つ余分にカウントしているから
> End With
|
|