Excel VBA質問箱 IV

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

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


17053 / 76732 ←次へ | 前へ→

【65139】Re:整列について
発言  teian  - 10/4/18(日) 17:25 -

引用なし
パスワード
   なんと、同時間にレスしたようですね。
で、
全然認識が違ったようですね。
ある特定範囲を各々空白セルを詰めるってことですか?

その特定範囲が固定で、
F3〜F24   F26〜F47
M3〜M24   M26〜M47
T3〜T24   T26〜T47
AA3〜AA24  AA26〜AA47
AH3〜AH24  AH26〜AH47
と限定されているのであれば、

簡単にやるんであれば、
私の最初のコードの"r"という範囲にその固定範囲を各々(For Eachループ)で
設定してやればよさそうですね。

Sub sample10()
  Dim 対象範囲 As Range
  Dim r As Range, c As Range
  With ActiveSheet
    Set 対象範囲 = Intersect(.Range("F:F,M:M,T:T,AA:AA,AH:AH"), .Range("3:24,26:47"))
  End With
  For Each r In 対象範囲.Areas
    Debug.Print r.Address
    r.EntireColumn.Insert xlShiftToRight
    With r.Offset(, -1)
      .Item(1).Value = 1
      .DataSeries
      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
  Next
End Sub

1 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 お礼

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