上図のように、重複するデータがあって(会員番号を昇順で並べ替え後)、行ごと削除するマクロ。 Sub 行削除() Dim i As Integer '会員番号を基準にした For i = ActiveSheet.Range("A65536").End(xlUp).Row To 2 Step -1 With Cells(i, 1) If .Value = .Offset(-1).Value Then .EntireRow.Delete End If End With Next End Sub 今のところは、これで動いてる。データ型はLongの方が無難だとは思うけど・・・。
by slayer0210
| 2005-11-10 13:48
| マクロ
|
カテゴリ
以前の記事
フォロー中のブログ
検索
最新のトラックバック
その他のジャンル
ファン
記事ランキング
ブログジャンル
画像一覧
|
ファン申請 |
||