エクセルＶＢＡ 繰り返し

質問

エクセルＶＢＡで

　　ＡＢＣＤ　　　　　　　ＡＢＣＤ

１　５４　１ 　　　　 １　１４５　　
２　２４　３　　　　　２　２３４
３　　　１　　　　　　３　１

上記の左のようなデータを右ように
各行ごとに並び替えをしたいのですが、
どのようにしたらいいのでしょうか。

Range("Ａ１:Ｄ１").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("Ａ１"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal

１行だとこんなんがでてきました。
これをどうしたら、３行４行と増やしていけますか？
５０行ほどくりかえしたいです。

どなたか分かる方　お願いします。

回答No.1

mshr1962 · ベストアンサー

各行A:D列対象なら
For i = 1 to 50
Range("A" & i & ":D" & i).select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A" & i), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlLeftToRight, SortMethod _
:=xlPinYin, DataOption1:=xlSortNormal
Next i

お礼

ＶＢＡ初心者なので、
とてもシンプルで使いやすかったです。

ありがとうございました。

回答No.4

hananoppo

こんな感じでいかがでしょう。

Sub Sample()
Dim rNum As Long

rNum = 1
Do Until Cells(rNum, 1).Value & Cells(rNum, 2).Value _
& Cells(rNum, 3).Value & Cells(rNum, 4).Value = ""
Range("A" & rNum & ":D" & rNum).Sort Key1:=Cells(rNum, 1), Orientation:=xlLeftToRight
rNum = rNum + 1
Loop
End Sub

お礼

ＶＢＡ初心者ですみません。
ちと、難しいです。

回答No.3

Wendy02

人と同じコードを書いてもしょうがないので、違うコードを書きました。
特に、問題はないと思いますが、最後の行を検出するために、End プロパティですと、心もとないです。一行ずつするなら、あまり、Sort メソッドは必要ないような気もします。

列は、可変ですから、D列、E列でも、それ以上でも可能です。なるべく標準モジュールに登録してお使いください。

Sub Test1()
　Dim rng As Range
　Dim LstRow As Long, LstCol As Long
　Dim i As Long, j As Long
　Dim ar As Variant
　Set rng = Range("A1").CurrentRegion
　With rng
　　LstRow = .Cells(.Cells.Count).Row
　　LstCol = .Cells(.Cells.Count).Column
　　ReDim arx(1 To LstCol)
　End With
　For i = 1 To LstCol
　　arx(i) = i
　Next
　With Application
　　.ScreenUpdating = False
　　For i = 1 To LstRow
　　　ar = .Transpose(Range(Cells(i, 1), Cells(i, Columns.Count).End(xlToLeft)))
　　　'ar = .Transpose(Range(Cells(i, 1), Cells(i, LstCol + 1).End(xlToLeft))) '※
　　　ar = .Transpose(ar)
　　　ar = .Small(ar, arx)
　　　j = .Count(ar)
　　　Cells(i, 1).Resize(, LstCol).ClearContents
　　　Cells(i, 1).Resize(, j).Value = ar
　　Next i
　　.ScreenUpdating = True
　End With
End Sub

もし、右側にデータがある場合は、※と。その上の行と交換してください。

お礼

ＶＢＡ初心者のため、
なかなか、理解はできません。
これから、がんばります。
ありがとうございました。

回答No.2

keithin

たとえば

dim n
Application.CutCopyMode = False
for n = 0 to range("A65536").end(xlup).row - 1
　Range("A1:D1").offset(n).Sort _
　　Key1:=Range("A1").offset(n), _
　　Order1:=xlAscending, _
　　Header:=xlno, _
　　OrderCustom:=1, _
　　MatchCase:=False, _
　　Orientation:=xlLeftToRight, _
　　SortMethod:=xlPinYin, _
　　DataOption1:=xlSortNormal
next n

みたいなカンジで。
for to nextとfor nextは繰り返しの基本中の基本ですから，参考書（や，もし良いのが見つかればネット）でしっかりマスターしてください。
offsetを使う他に，headerの所も変えているで見落とさないようにしてください。

お礼

基本中の基本を質問して、
ごめんなさい。

たいへんべんきょうになりました。
これから、頑張ります。

ありがとうございました。