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 質問
【56962】Re:重複行の削除 kanabun 08/7/15(火) 11:30 発言
【56964】Re:重複行の削除 勉強中さっち 08/7/15(火) 11:52 お礼
【56976】Re:重複行の削除 kanabun 08/7/15(火) 23:51 発言
【56981】Re:重複行の削除 勉強中さっち 08/7/16(水) 9:41 質問
【56982】Re:重複行の削除 kanabun 08/7/16(水) 11:20 発言
【56983】Re:重複行の削除 勉強中さっち 08/7/16(水) 11:53 お礼
【56963】Re:重複行の削除 こぎつね 08/7/15(火) 11:30 発言
【56965】Re:重複行の削除 勉強中さっち 08/7/15(火) 11:53 お礼

25115 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free