Excel VBA質問箱 IV

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

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


62102 / 76732 ←次へ | 前へ→

【19238】Re:行空けしながらセルの位置を移動する方法
回答  Kein  - 04/10/26(火) 14:06 -

引用なし
パスワード
   こんなコードで、どうかな ?

Sub MyAlign()
  Dim LR As Long
  Dim C As Range
  Dim St As String
  Dim Ary As Variant
 
  LR = Range("B65536").End(xlUp).Row
  For Each C In Range("C1:D" & LR)
   St = St & C.Value & ","
  Next
  Ary = WorksheetFunction.Transpose(Split(St, ","))
  Application.ScreenUpdating = False
  Range("C1:D" & LR).ClearContents
  Range("C1").Value = 1
  Range("C1:C" & LR).DataSeries xlColumns, , , 2
  With Range("C" & LR + 1)
   .Value = 2
   .Resize(LR).DataSeries xlColumns, , , 2
  End With
  Range("A1").CurrentRegion.Sort Key1:=Range("C1"), _
  Order1:=xlAscending, Header:=xlNo, Orientation:=xlSortColumns
  Range("C:C").ClearContents
  Range("C1").Resize(LR * 2).Value = Ary
  Erase Ary
  Application.ScreenUpdating = True
End Sub

1 hits

【19234】行空けしながらセルの位置を移動する方法 あい 04/10/26(火) 13:38 質問
【19235】Re:行空けしながらセルの位置を移動する方法 Asaki 04/10/26(火) 13:53 回答
【19240】Re:行空けしながらセルの位置を移動する方法 あい 04/10/26(火) 14:10 お礼
【19241】Re:行空けしながらセルの位置を移動する方法 かみちゃん 04/10/26(火) 14:12 回答
【19245】Re:行空けしながらセルの位置を移動する方法 Asaki 04/10/26(火) 14:26 回答
【19251】Re:行空けしながらセルの位置を移動する方法 あい 04/10/26(火) 15:07 お礼
【19238】Re:行空けしながらセルの位置を移動する方法 Kein 04/10/26(火) 14:06 回答
【19242】Re:行空けしながらセルの位置を移動する方法 Kein 04/10/26(火) 14:13 回答
【19244】Re:行空けしながらセルの位置を移動する方法 あい 04/10/26(火) 14:21 お礼
【19248】Re:行空けしながらセルの位置を移動する方法 Kein 04/10/26(火) 14:41 発言
【19252】Re:行空けしながらセルの位置を移動する方法 あい 04/10/26(火) 15:11 お礼
【19239】Re:行空けしながらセルの位置を移動する方法 かみちゃん 04/10/26(火) 14:07 回答
【19268】Re:行空けしながらセルの位置を移動する方法 あい 04/10/27(水) 8:45 お礼

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