Excel VBA質問箱 IV

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

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


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

69440 / 76732

←次へ　｜　前へ→


	【11810】Re:ダブったデータを先頭行のみ残して削除(別解）

ichinose - 04/3/16(火) 18:48 -


	引用なし

	パスワード

困ったちゃんさん、ぴかるさん、カドさん、こんばんは。

1　山田　住所
1　山田　氏名
1　山田　年齢
1　山田　備考
2　田中　住所
2　田中　氏名
2　田中　年齢
2　田中　備考
3　佐藤　住所
3　佐藤　氏名
3　佐藤　年齢
3　佐藤　備考
↑のデータがＡ列、Ｂ列、Ｃ列にの１行目からあったとして、
'========================================================
Sub main()
　 With Range("c2", Range("c" & Rows.Count).End(xlUp)) _
　　　 .Offset(, -2).Resize(, 2)
　　　
　　　.Value = Application.Evaluate("if(" & .Offset(-1, 0).Address & _
　　　　　　　　　　　　　　　　　　"=" & .Address & _
　　　　　　　　　　　　　　　　　　",""""," _
　　　　　　　　　　　　　　　　　　& .Address & ")")
　　　End With
End Sub

私は、結構こんなんが好き・・、趣味の世界ですが・・・。

2 hits

▼

【11785】ダブったデータを先頭行のみ残して削除 困ったちゃん 04/3/16(火) 13:35