Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
69437 / 76732 ←次へ　｜　前へ→
【11813】Re:ダブったデータを先頭行のみ残して削除
回答  Hirofumi E-MAIL  - 04/3/16(火) 21:22 -
引用なし
パスワード
   私は、オーソドックスに

Public Sub Test()

　　Dim i As Long
　　Dim lngListEnd As Long
　　Dim vntDel As Variant
　　
　　vntDel = Array(Empty, Empty)
　　lngListEnd = Cells(65536, "A").End(xlUp).Row
　　
　　Application.ScreenUpdating = False
　　
　　For i = lngListEnd To 2 Step -1
　　　　If Cells(i, "A").Value = Cells(i - 1, "A") Then
　　　　　　Cells(i, "A").Resize(, 2).Value = vntDel
　　　　End If
　　Next i
　　
　　Application.ScreenUpdating = True
　　
End Sub
0 hits
▼ 【11785】ダブったデータを先頭行のみ残して削除 困ったちゃん 04/3/16(火) 13:35 質問
【11787】Re:ダブったデータを先頭行のみ残して削除 ぴかる 04/3/16(火) 13:40 回答
【11790】Re:ダブったデータを先頭行のみ残して削除 カド 04/3/16(火) 14:46 回答
【11802】Re:ダブったデータを先頭行のみ残して削除 カド 04/3/16(火) 16:02 回答
【11810】Re:ダブったデータを先頭行のみ残して削除... ichinose 04/3/16(火) 18:48 回答
【11813】Re:ダブったデータを先頭行のみ残して削除 Hirofumi 04/3/16(火) 21:22 回答≪
【11863】Re:ダブったデータを先頭行のみ残して削除 困ったちゃん 04/3/17(水) 18:16 お礼
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
69437 / 76732 ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free