Excel VBA質問箱 IV

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

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


42313 / 76732 ←次へ | 前へ→

【39490】Re:重複データから最新データのみ別のシートへ
回答  Kein  - 06/6/25(日) 15:06 -

引用なし
パスワード
   だるまさんの数式を使うなら

Sub Copy_NewData()
  On Error Resume Next
  With Range("A1", Range("A65536").End(xlUp)).Offset(, 255)
   .Formula = "=IF($A1=$A2,"""",1)"
   Intersect(.SpecialCells(3, 1).EntireRow, Range("A:C")) _
   .Copy Sheets("B").Range("A1")
   .ClearContents
  End With
  Sheets("B").Activate
End Sub

Sheets("A") をアクティブにしてから実行して下さい。
0 hits

【39480】重複データから最新データのみ別のシートへ kaoru 06/6/25(日) 9:50 質問
【39481】Re:重複データから最新データのみ別のシー... だるま 06/6/25(日) 10:58 回答
【39490】Re:重複データから最新データのみ別のシー... Kein 06/6/25(日) 15:06 回答
【39562】Re:重複データから最新データのみ別のシー... kaoru 06/6/26(月) 19:59 お礼
【39561】Re:重複データから最新データのみ別のシー... kaoru 06/6/26(月) 19:56 お礼
【39483】Re:重複データから最新データのみ別のシー... Hirofumi 06/6/25(日) 13:33 回答
【39563】Re:重複データから最新データのみ別のシー... kaoru 06/6/26(月) 20:01 お礼

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