Excel VBA質問箱 IV

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

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


63595 / 76732 ←次へ | 前へ→

【17732】Re:データーの削除
回答  ichinose  - 04/9/6(月) 20:49 -

引用なし
パスワード
   ▼のり さん:
こんばんは。
ちょっと前に似たような処理の投稿をしましたが・・・・。

>どなたかマクロを教えてください。
> セルB1〜j100までにデータがあります。
> 列B(セルB1〜B100)には番号が入力されていますが
> 同一番号が何回も出てきます。
>
> そこで、同じ番号が出てきた場合行番号の上位行だけ
> 残し他の業は削除したいのですが。
>
> たとえばセルB1に32番
>     セルB8に32番
>     セルB65に32番
>  がある場合
>  上位行の行1だけを残し行8と65は削除する。
>
> お願いします。
'==========================================================
Sub test()
  Dim rd As Range
  Dim ans As Range
  Set rd = Range("b1:b100")
  With rd.Offset(0, 10)
    .Formula = "=IF(COUNTIF($b$1:b1,b1)>1,b1,"""")"
    .Value = .Value
    On Error Resume Next
    Set ans = Nothing
    Set ans = .SpecialCells(xlCellTypeConstants)
    .Value = ""
   If Not ans Is Nothing Then
     ans.EntireRow.Delete
     End If
   End With
End Sub

尚、L列を作業列として使っています。
確認してください

0 hits

【17730】データーの削除 のり 04/9/6(月) 20:22 質問
【17732】Re:データーの削除 ichinose 04/9/6(月) 20:49 回答
【17742】Re:データーの削除 のり 04/9/7(火) 8:19 質問
【17789】Re:データーの削除 ichinose 04/9/7(火) 18:53 回答
【17825】Re:データーの削除 のり 04/9/8(水) 14:49 お礼

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