Excel VBA質問箱 IV

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

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


17078 / 76738 ←次へ | 前へ→

【65119】Re:整列について
発言  teian  - 10/4/17(土) 18:35 -

引用なし
パスワード
   Sortを使っては如何でしょうか?
対象の範囲の左に作業用(Sort時のキーに使う)列を用意し、
その列でSortした時に、空白セルが下方に纏まるような状態を作り出します。

以下が例です。
解読してみて下さい。

Sub sample()
  Dim r As Range, c As Range
  Set r = Range("A1:A8")
  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
    On Error Resume Next
    r.SpecialCells(xlCellTypeBlanks).Offset(, -1).ClearContents
    On Error GoTo 0
    .Resize(, 2).Sort Key1:=.Columns(1), Order1:=xlAscending, _
             Header:=xlNo, Orientation:=xlTopToBottom
    .EntireColumn.Delete xlShiftToLeft
  End With
End Sub
0 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 お礼

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