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