Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

18827 / 76807

←次へ　｜　前へ→


	【63418】Re:リスト削除

たつ - 09/11/2(月) 16:54 -


	引用なし

	パスワード

▼こもとさん：

先ほどの重複した名前があるとエラーになるといった件ですが、
なんとか、自分なりに考えて解決しました

If myD.exists(tbl(i, 1)) Then myD.Add tbl(i, 2), ""
　↓下記のようにしてみました
　If myD.exists(tbl(i, 1)) Then
　 If Not myD.exists(tbl(i, 2)) Then
　　　myD.Add tbl(i, 2), ""
　 End If
　 End If

’-------------------------------------------
度々なんですが、問題が生じまして…

ちがう親の子にも、同じ名前の子が存在する為、
違う親の子の名前も削除してしまう結果となってしまってます…

【シート1】

　　　　　A列　　　B列
__________親名前____子名前_______________
　　|　　
1行 |　　 AAA　　　BBB
2行 |　　 BBB　　　CCC　←削除
3行 |　　 CCC　　　DDD　←削除
4行 |　　 BBB　　　EEE　←削除
5行 |　　 EEE　　　FFF　←削除
6行 |　　 FFF　　　GGG　←削除
7行 |　　 HHH　　　RRR
8行 |　　 RRR　　　TTT
9行 |　　 EEE　　　PPP　←削除
10行|　　 QQQ　　　BBB　←これは親が違う為、削除してはいけない

上記のようにある場合、10行目は削除する親とは繋がっていない為、削除しないように…というのは可能なんでしょうか？？

すみません…

どんなに考えても答えが見つからないです

どうかよろしくお願いします

0 hits

▼

【63411】リスト削除 たつ 09/11/2(月) 14:26