[[20051116163325]]　『倍数行だけ削除の方法を教えて下さい』（たつや）　ページの最後に飛ぶ

『倍数行だけ削除の方法を教えて下さい』（たつや）
本日教えて頂いた方、誠にお世話になりました。

また一つ教えて下さい。
行番号3.9.15.21…というように、例えば6の倍数の行を全て消して上に詰めるというような方法というのはありますか？

 VBA処理です

 Sub test()
 Dim LastR As Long, txt As String
 LastR = Range("a" & Rows.Count).End(xlUp).Row
 For i = LastR To 1 Step -1
    If i Mod 3 = 0 And (i / 3) Mod 2 <> 0 Then
        txt = txt & i & ":" & i & ","
        If Len(txt) > 245 Then
            Range(Left(txt, Len(txt) - 1)).Delete
            txt = Empty
        End If
    End If
 Next
    If Len(txt) > 0 Then
        Range(Left(txt, Len(txt) - 1)).Delete
    End If
 End Sub

 (seiya)
 編集しました。

 衝突☆彡しました。
seiyaさんのマクロで解決かと思いますが、
こんな方法も

 作業列に　=MOD(ROW(),6)=0　として下に必要なだけコピー
６の倍数行がTRUEとなるので
オートフィルターでTRUEを選択して抽出
編集＞ジャンプ＞セル選択＞可視セル　で抽出行を削除
　　　　　　　　　　　　　　　　　　　(oni)

 こんな方法も～＾＾
 使っていない列の３行目に1と入力し、３行目から８行目までを範囲選択。
 範囲の右下にマウスを合わせると出てくる＋マークをクリックしたまま下にドラッグすると
3,9,15行…と６行ごとに数値が入ります。
 その列の１行目の上、グレーの部分をクリックして列全体を選択し、
 編集 → ジャンプ → セル選択　で、定数にチェックしてＯＫ。
 数値の入ったところだけ選択されるので、そのまま右クリックして、削除、行全体にチェックして、ＯＫ。

 前回立てられたスレッドが解決したのでしたら、新しいスレッドにその旨を書かれるのではなく、
 そのスレッドに書き込みされたほうがいいと思いますよ～♪　　(かなれっと)

すいません以後気をつけます。。。＜かなれっとさん

ご教授ありがとうございます。＜seiyaさん、oniさん、かなれっとさん

最初の２通りはせっかくお教え頂いたのにチンプンカンプンでした。。。
かなれっとさんの方法でやりましてうまくいきました。ありがとうございます助かりました。

やはり基礎はきちんと勉強してからここで質問するべきなのでしょうか。
正直言って、「ＶＢＡ」初耳です^^;　「関数」「マクロ」「作業列」言葉は分かりますが、作業できるレベルにあらずです。。。

 フィルタオプションの設定も利用できます。下の表で説明します。
 データに見出しを付け、B1を空白B2に=MOD(ROW(A2)+3,6)として、
 A1:A15を選択し、データ、フィルタ、フィルタオプションの設定として、
 フィルタオプションの設定画面で、下のように指定し、ＯＫで、下のように
 必要な行が抽出できます。　　　　　　　　　　　　　　　　　　　　　　(LOOKUP)

 	A	B	C
 1	AA		AA
 2	10	0	10
 3	13		21
 4	21		22
 5	22		23
 6	23		24
 7	24		25
 8	25		31
 9	29		32
10	31		33
11	32		34
12	33		35
13	34	↑	
14	35	=MOD(ROW(A2)+3,6)	
15	36

 ==フィルタオプションの設定==
 抽出先　　　　◎指定した範囲
 リスト範囲　　$A$1:$A$15
 検索条件範囲　$B$1:$B$2
 抽出範囲　　　$C$1

 うまくいったようなら何よりです＾＾

 >やはり基礎はきちんと勉強してから…
　う～ん。質問されたご本人以外、質問者が、どの程度習熟されているのか、といったことはわかりません。
 また、この掲示板の上に新・単語検索というメニューがあるのにお気づきですか？
 こちらで過去のスレッドを検索することができます。
 いつか同様の悩みをお持ちになった方が検索したときに、参考になるかもしれません。
 といったようなわけで、色々な回答がつくのですよ～

 わからない単語があれば、検索したり、この学校の質問TIPS集やライブラリを見たり、
 それでもわからなければ、質問したりということでいいのではないですか？

 エクセルのヘルプもとっても重宝しますよ＾＾　私の最初の先生はヘルプです('-'*)
 (かなれっと)

コメント返信：

[ 一覧(最新更新順) ]

[[20051116163325]] 『倍数行だけ削除の方法を教えて下さい』（たつや） ページの最後に飛ぶ

[[20051116163325]]　『倍数行だけ削除の方法を教えて下さい』（たつや）　ページの最後に飛ぶ