Excel VBA質問箱 IV

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

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


8756 / 76732 ←次へ | 前へ→

【73544】表整理
質問  コーヒー牛乳  - 13/1/20(日) 14:24 -

引用なし
パスワード
   表の整理について質問があります。

整理前の表
 
   A    B    C    D    E
1 みかん バナナ りんご いちご  
2 10円 20円 30円 40円

このような表があります。「りんご」と「みかん」を条件にして表を整理したいと思います。

整理後の表

みかん りんご 
10円 30円

ただし、みかんが常に「A1」 バナナが常に「B1」に来るとは限りませんので、
見出しの言葉を抽出のキーワードにしたいと思いました。


そこで以下のようなプログラムを書きました。

Sub 表整理()

Range("a1").Select
 
sento:

 Select Case ActiveCell
 
     Case Is = "": End

     Case Is = "りんご": ActiveCell.Offset(0, 1).Select
      
          GoTo sento

     Case Is = "みかん": ActiveCell.Offset(0, 1).Select

          GoTo sento
    
     Case Else: ActiveCell.EntireColumn.Select
    
          Selection.Delete
         
          ActiveCell.Offset(0, 0).Select
           
          GoTo sento
 
 End Select
 

End Sub

一応、結果は得られるのですが、正直、自分のVBAの能力の未熟さを感じています。
一つはデーターが多くなると処理が遅くなることもありますが、なによも、
オートフィルターを使うなり、配列を使うなり、何か別の形でのプログラムの
方がふさわしいのではないか、と感じています。

ですが、なかなか思い浮かびません。

そこでこのようなデーターベースを処理するにふさわしいVBAの書き方をお教えいただけないものでしょうか。

一つに限らず、複数あれば、それだけ勉強になるので、
私の技術の向上になにとぞご協力ください。お願いいたします。
262 hits

【73544】表整理 コーヒー牛乳 13/1/20(日) 14:24 質問
【73545】Re:表整理 kanabun 13/1/20(日) 15:01 発言
【73546】Re:表整理 コーヒー牛乳 13/1/20(日) 16:17 お礼
【73547】Re:表整理 UO3 13/1/20(日) 16:35 発言
【73548】Re:表整理 コーヒー牛乳 13/1/20(日) 17:04 お礼
【73549】Re:表整理 UO3 13/1/20(日) 17:49 発言
【73550】Re:表整理 コーヒー牛乳 13/1/20(日) 17:59 お礼
【73551】Re:表整理 kanabun 13/1/20(日) 19:56 発言
【73552】Re:表整理 コーヒー牛乳 13/1/20(日) 20:34 お礼

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