Excel VBA質問箱 IV

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

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


69460 / 76732 ←次へ | 前へ→

【11790】Re:ダブったデータを先頭行のみ残して削除
回答  カド E-MAIL  - 04/3/16(火) 14:46 -

引用なし
パスワード
   ▼困ったちゃん さんへ

適当に作ったやつなのですが参考にどうぞ

Option Explicit
  Dim ACELL As Object
  Dim Count As Integer '処理する行の数
  Dim Count1 As Integer '処理する列の数
 
  
  Const bbb = 1
  Const ccc = 300 '処理する行の数
  Const ddd = 2 '処理する列の数
  
'********************************************************************************
Sub 文字を上矢印に変換()
  

  Set ACELL = ActiveCell
  Set ACELL = ACELL.Offset(ccc, 0)
  
  Count1 = 0
  
  Do Until Count1 = ddd
    Count = 0
    Do Until Count = ccc
   
      If (ACELL <> "") And (ACELL = ACELL.Offset(-bbb, 0)) Then ACELL = ""
     
      
      Set ACELL = ACELL.Offset(-bbb, 0)
      Count = Count + 1
    Loop
    
    Count1 = Count1 + 1
    Set ACELL = ACELL.Offset(ccc, 1)
    
  Loop

End Sub

1 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 お礼

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