Excel VBA質問箱 IV

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

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


15956 / 76734 ←次へ | 前へ→

【66252】重複データの削除
質問  lawry  - 10/8/12(木) 14:59 -

引用なし
パスワード
   最近VBAの勉強を始めた者なのですが、ネットや本等をみて色々勉強はしたつもりではいるのですが、行き詰ってしまったの教えていただけないでしょうか。

-------------------------------------------------------------
Sub 重複セル削除()
Dim i As Integer
i = 1

Do

If Worksheets("sheet2").Cells(1, i) = Worksheets("Sheet2").Cells(2, i) Then
Worksheets("sheet2").Cells(2, i).Select
  
  
Selection.Delete shift:=xlShiftToLeft
Selection.Insert shift:=xlShiftToRight 'セルを削除して同じ場所においておく
i = i + 1

Else
Selection.Interior.ColorIndex = 4  ’違う場合色をつける

End If
Loop Until i = 180
End Sub
---------------------------------------
というコードを書いてみたのですが, 問題点が二つあります。
先ほどまで起動していたのに、再度起動させようとするとエラーメッセージがでます。「RangeクラスのSelectメソッドが失敗しました。」

もう一つが 起動しても
上下のセルが異なる値になるとその先の処理をしてくれなくなります。

何処を改善したらよいのでしょうか?  よろしくお願いします。
4 hits

【66252】重複データの削除 lawry 10/8/12(木) 14:59 質問
【66253】Re:重複データの削除 かみちゃん 10/8/12(木) 15:16 発言
【66255】Re:重複データの削除 lawry 10/8/12(木) 16:04 お礼

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