Excel VBA質問箱 IV

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

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


7039 / 76735 ←次へ | 前へ→

【75288】Re:プロセージャの作成をお願いいたします
質問  本山中  - 14/2/3(月) 17:33 -

引用なし
パスワード
   ▼kanabun さん:
回答、感謝いたします。
実行してみたのですが、最初の行(A1,B1,C1,D1の行)だけが
ダブって残ります。後はうまくいきます。
10時のデータ A1,B1,C1,D1 の次の行に
12時のデータが A2,B2,C2,D2 として来てしまう状況です。
>▼本山中 さん:
>
>>3.B列には4桁の数値が入力されています。
>>このとき、B列の数値を利用して、12時に入力したデータのうち
>>10時に入力した数値と同じものがあれば、12時のデータの行を削除し、
>>空行を生じさせないよう、上へ詰める。
>>尚且つ、B列の数値を利用して常に昇順にデータを並び変えておく。
>
>マクロ内容としては、
>1.B列にフィルタオプションをかけて重複カットし、
>2.その状態での表をE列以降にコピーしてから、
>3.元のA〜D列を削除
>4.新しい A〜D列にたいして B列をキーにSortをかける
>
>  With Range("A1").CurrentRegion
>    .Columns("B").AdvancedFilter xlFilterInPlace, Unique:=True
>    .Copy Range("E1")
>    .Worksheet.ShowAllData
>    .EntireColumn.Delete
>  End With
>  With Range("A1").CurrentRegion
>    .Sort Key1:=.Columns("B"), Header:=xlYes
>  End With
>
>のような感じでよろしいかと思います。
>
>決めなければいけないのは、
>このマクロをどういうタイミングでマクロを実行するか、ですが。
>たとえば、B列をダブルクリックしたら、マクロを実行する、とか?

1 hits

【75285】プロセージャの作成をお願いいたします 本山中 14/2/3(月) 9:34 質問
【75286】Re:プロセージャの作成をお願いいたします kanabun 14/2/3(月) 14:59 発言
【75288】Re:プロセージャの作成をお願いいたします 本山中 14/2/3(月) 17:33 質問
【75289】Re:プロセージャの作成をお願いいたします kanabun 14/2/3(月) 19:01 発言
【75290】Re:プロセージャの作成をお願いいたします kanabun 14/2/3(月) 19:03 発言
【75291】Re:プロセージャの作成をお願いいたします kanabun 14/2/3(月) 19:43 発言
【75293】Re:プロセージャの作成をお願いいたします 本山中 14/2/4(火) 8:40 お礼

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