Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6189 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【46702】教えてください AAA 07/2/12(月) 20:53 質問[未読]
【46703】Re:教えてください かみちゃん 07/2/12(月) 21:25 発言[未読]
【46705】Re:教えてください AAA 07/2/12(月) 21:36 質問[未読]
【46706】Re:教えてください かみちゃん 07/2/12(月) 21:46 発言[未読]
【46707】Re:教えてください AAA 07/2/12(月) 21:58 お礼[未読]
【46702】教えてください
質問  AAA  - 07/2/12(月) 20:53 -
引用なし
パスワード
   ご教示ください
現在、シフト表をアドバンスフィルターを用いて作成したいんですが
まだ未熟なため教えてください。
Sheet1のﾃﾞｰﾀをSheet2のようにしたいのですが....
宜しくおねがいします。

Sheet1
　　A　 B　 C　　　D
1　月　日　曜　　備　
2　2　 10　土　　田中
3　2　 11　日　　佐藤
4　2　 10　土 　 山田　　　　
5　2　 11　日　　伊東

Sheet2
　 A　 B　 C　　　D
1　月　日　曜　　備　
2　2　 10　土　　田中
3　　　10　土　　山田
4　2　 11　日　　佐藤
5　　　11　日　　伊東
【46703】Re:教えてください
発言  かみちゃん  - 07/2/12(月) 21:25 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>Sheet1のデータをSheet2のようにしたい

単純に「日」順に並べ替えてはいけないのでしょうか？
並べ替えの部分は、「マクロの記録」で記録できます。

そのあと、日が同じであれば、月を消去するというような感じになるのですが・・・
【46705】Re:教えてください
質問  AAA  - 07/2/12(月) 21:36 -
引用なし
パスワード
   ▼かみちゃん さん
こんばんは。アドバイスありがとうございます。

>そのあと、日が同じであれば、月を消去するというような感じになるのですが・・・

どの様に削除したらよいのでしょうか？おしえてください。
【46706】Re:教えてください
発言  かみちゃん  - 07/2/12(月) 21:46 -
引用なし
パスワード
   こんにちは。かみちゃん　です。

>>そのあと、日が同じであれば、月を消去するというような感じになるのですが・・・
>
>どの様に削除したらよいのでしょうか？おしえてください。

「日」がB列にあって並べ替えてあるものとしますと、以下のような感じです。
なお、Excelの場合、「削除」と「消去」は処理が異なりますので、注意しましょう。
（以下は消去の例です。）

Sub Sample()
　Dim c As Range
　
　For Each c In Range("B2:B5")
　　If c.Value = c.Offset(1).Value Then
　　　c.Offset(1, -1).ClearContents
　　End If
　Next
End Sub
【46707】Re:教えてください
お礼  AAA  - 07/2/12(月) 21:58 -
引用なし
パスワード
   ▼かみちゃん さん

早速のアドバイスありがとうございます。
これから試したいとおもいます。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6189 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free