Excel VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

62108 / 76738

←次へ　｜　前へ→


	【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

0 hits

▼

【19234】行空けしながらセルの位置を移動する方法 あい 04/10/26(火) 13:38