Excel VBA質問箱 IV

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

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


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

25115 / 76732

←次へ　｜　前へ→


	【56961】重複行の削除

勉強中さっち - 08/7/15(火) 11:05 -


	引用なし

	パスワード

こんにちわ。
早速ですがご教示の程宜しくお願い致します。

名前　点数
田中　50
田中　50
鈴木　60
鈴木　60
斉藤　55
田中　50
斉藤　55
斉藤　55
鈴木　60

重複している行を削除したいのですが、下記マクロだとうまくいきません。
Sub DeCol()
　　Dim i As Long
　　With Range("A2")
　　
　　For i = .CurrentRegion.Rows.Count To 1 Step -1
　　　　If .Offset(i, 0) = .Offset(i - 1, 0) Then .Offset(i, _
　　　　0).EntireRow.Delete
　　　　Next i
　　End With
End Sub

名前　点数
田中　50
鈴木　60
斉藤　55

となって欲しいのです。
ご教示ください。

0 hits

▼

【56961】重複行の削除 勉強中さっち 08/7/15(火) 11:05

≪