フィルターを使わずにＶＢＡ 追記質問です

質問

先日はＶＢＡでお世話になりました
フィルターを使わずにＶＢＡを作成してもらいましたがもう少しお知恵をお貸しください

Sub Test1()
　　Dim rng As Range
　　Dim objDic As Object
　　Dim c As Variant

　　Set objDic = CreateObject("Scripting.Dictionary")
　　'範囲
　　Set rng = Range("B6", Cells(Rows.Count, 2).End(xlUp))
　　With objDic
　　　　For Each c In rng
　　　　　　If Not .Exists(c.Value) Then
　　　　　　　　.Add c.Value, 1
　　　　　　End If
　　　　Next c
　　End With
　　　　　出力の一部省略

　　というのを教えていただきましたが、一部手直ししながら使用していましたが、セルの２５０行分を超えますと指定セル(B6)のひとつ上の(B5)に入れた個人設定の文字が転写されてしまい、その項目とＢ６のセル以外、必要な数値はなにも写りません。（実際にはＢ６から始まるよう設定していますからＢ７から転写ができません）
範囲としてはＢ６からＢ６０５までの入力をしたものを使用したいと思っています。　
また転写は件数は２５件までできるよう設定しています。
範囲の設定などできるならよいアドバイスがあればよろしくお願いします。

回答No.1

Wendy02 · ベストアンサー

こんばんは。

お話が分かりにくいのですが、B5 にタイトル行があって、実際のデータが、B6 から始まるなら、

Set rng = Range("B6", Cells(Rows.Count, 2).End(xlUp))

となり、

出力の部分は、このようになるはずです。

　'出力
　Range("C6").Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.Keys)

あまりお勧めはしませんが、もし、同じ列に出力するなら、一旦、その列のデータを消さなくてはなりません。

　'出力
　rng.ClearContents
　Range("B6").Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.Keys)

>また転写は件数は２５件までできるよう設定しています。
この意味が分かりませんが、

出力のコマ数（25行）ということでしたら、

--------------------------------------
　Const OUTPUT As Integer = 25
　'略

　'出力
　 If objDic.Count >= OUTPUT Then
　 Range("C6").Resize(OUTPUT) = WorksheetFunction.Transpose(objDic.keys)
　 Else
　 Range("C6").Resize(objDic.Count) = WorksheetFunction.Transpose(objDic.keys)
　 End If
　'略

ということになります。

>一部手直ししながら使用していましたが、セルの２５０行分を超えますと指定セル(B6)のひとつ上の(B5)に入れた個人設定の文字が転写されてしまい、

後、97になれば分かりませんが、それ以上のバージョンでしたら、配列の制限等で、250 コマ（行）が切れ目になるような制限はなかったはずです。何かのコードの間違いではありませんか？コードを見せていただかなくては、なんとも回答のしようがありません。

お礼

お世話になりました。
手直ししている時一部違う式を入れていました。
見比べて見て分かりました。
２５０コマの制限がないのはわかっていましたが、何がどうなのか、どこを見てもわかりませんでした。
本当にいつも助けていただきありがとうございます。