|
最近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メソッドが失敗しました。」
もう一つが 起動しても
上下のセルが異なる値になるとその先の処理をしてくれなくなります。
何処を改善したらよいのでしょうか? よろしくお願いします。
|
|