Excel VBA質問箱 IV

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

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


17064 / 76732 ←次へ | 前へ→

【65128】Re:整列について
発言  teian  - 10/4/18(日) 11:38 -

引用なし
パスワード
   あれあれ、最初の例題とだと条件が違うのですね。
行を削除という行為を取っていいのですか?
1行目はヘッダーのようですね。
それなら、もし、SpecialCellsメソッドで削除行が取得できるくらいの行数なのであれば、
オートフィルターを使って空白行に絞込み、削除するってでのいいかもしれません。
手操作による記録でも取ってみて下さい。
表題から、行削除は行わず、整列させるのみと解釈したのですが、そうじゃないんでしょうか?

で、最初に提示したコード例ですが、
>新規シートで動作させて見るとB列で作業しているように見えました。
とのことですが、
>Set r=Set r = Range("A1:A8")
として、rを特定した上で、
>r.EntireColumn.Insert xlShiftToRight
とA列の左に新しい列を挿入している積もりなんですが、B列で作業しましたか?
そうなっちゃいますかね?
本当にそうなのか、もう一度Step実行して確認してみてくれませんか?
Sortという手法を取っていますが、結果的には、
空白行を下方に集合させるだけで、元の並びは保障したつもりなんですけどね〜。

あと、
>廃番のコードをクリアして整列させたい訳けでが入力順番は
>変えたくありません。(ソートすると順番が変わってしまいます)
廃番のコードとか、例示にない項目をいきなり登場させられても分からんのです。
一応、2度目の提示のあたデータ例をもとに、かってに
A列が空白の行を対象に下方に持っていくというコードにしてみると、

Sub sample2()
  Dim Target As Range
  Dim tmpR As Range
  Dim r As Range, c As Range
  With ActiveSheet
    Set r = .Range("A" & .Rows.Count).End(xlUp) '☆
    Set r = .Range(r.EntireColumn.Cells.Item(1), r)
    Set Target = Intersect(r.EntireRow, .Columns("A:G"))
  End With
  r.EntireColumn.Insert xlShiftToRight
  With r.Offset(, -1)
    .Item(1).Value = 1
    .DataSeries
    For Each c In r
      If IsEmpty(c) Then c.Offset(, -1).ClearContents
    Next
    Union(Target, .Cells).Sort Key1:=.Columns(1), Order1:=xlAscending, _
                  Header:=xlNo, Orientation:=xlTopToBottom
    .EntireColumn.Delete xlShiftToLeft
  End With
End Sub

もし、調査対象が、A列じゃなくB列の空白をってことなら、☆のステップをB列に変更して下さい。


なお、ichinoseさんの以下は、私向けですか?
>質問者さんの記述が悪いと一概には言えませんね!!
私は、別に悪いと言った訳ではありません。
最初の例示は、1列だけだったのでそれを鵜呑みにしたコード例を提示しましたが、
どうも2回目の質問では、複数列の話なんだなってことまでは分かったので、
それなら、同様にちゃんとデータ例を提示してもらいたいと思ったまでです。
なお、
>ただ、整列は一般的にソート(並べ替え)と解釈されますからね。
私がSortで整列させようとしていると思われたのでしょうか?
それについては、もちろん、並び替えないでという条件は最初の提示例で認識してましたよ。
2 hits

【65118】整列について ネガメジン 10/4/17(土) 18:11 質問
【65119】Re:整列について teian 10/4/17(土) 18:35 発言
【65121】Re:整列について ネガメジン 10/4/17(土) 21:30 質問
【65122】Re:整列について teian 10/4/17(土) 22:19 発言
【65123】Re:整列について ネガメジン 10/4/17(土) 22:52 質問
【65128】Re:整列について teian 10/4/18(日) 11:38 発言
【65131】Re:整列について ichinose 10/4/18(日) 12:20 発言
【65136】Re:整列について teian 10/4/18(日) 17:01 発言
【65130】Re:整列について Hirofumi 10/4/18(日) 12:08 回答
【65125】Re:整列について ichinose 10/4/18(日) 9:22 発言
【65137】Re:整列について ネガメジン 10/4/18(日) 17:01 質問
【65139】Re:整列について teian 10/4/18(日) 17:25 発言
【65146】Re:整列について ネガメジン 10/4/19(月) 11:17 お礼
【65145】Re:整列について ネガメジン 10/4/19(月) 11:08 お礼

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