【VBA】範囲選択し降順で並び替え

質問

A列の最初の行から、F列の最終行迄を範囲選択し、C列降順で並べ替えをしたいです。最終行は、C列の最終行を指定します。

下記、「Rangeから始まる行」でｴﾗｰとなる為、ご教示宜しくお願いします。

Sub 使用頻度で並べ替え()

Dim FastRow As Integer
Dim LastRow As Integer

FastRow = Cells(1, 1).End(xlDown).Row
LastRow = Range("C" & Rows.Count).End(xlUp).Row

Range("A & FastRow:F" & LastRow).Sort Columns("C"), xlDescending, Header:=xlNo

End Sub

回答No.3

chie65536（@chie65535） · ベストアンサー

Range("A & FastRow:F" & LastRow).Sort Columns("C"), xlDescending, Header:=xlNo
を
Range("A" & FastRow & ":F" & LastRow).Sort Columns("C"), xlDescending, Header:=xlNo
に変えてみて下さい。

お礼

有難うございました。
上手く動きました。
ｺﾋﾟﾍﾟ活用させて頂き、最終的には理解を目指します。

回答No.4

imogasi

よくある初心者的ミスだ。すこしVBAをやってれば、「あ！またやったか」、と気づくものだ。
セル範囲指定の、Rangeの使い方は
（１）Range（セル範囲を示す、（左上隅セルと右下隅セルの）文字列）.
（２）Range（cells(**),Cells(**)).
（３）その他
で（１）の場合、（　）内は文字列でセル範囲を指定する約束。
具体的には、左上（右下）隅セルの、列記号文字列＋行番号の指定で、行番号部分は、「＆」で結合することが多いが、そのときは数値の入った変数名でもよい。
２つの列記号と１つの「：」の部分は文字列で指定する。（カンマで区切って、範囲を並べる場合もあるが略）
本件は、この文字列部分と数値部分の結合の書き方に混乱を起こしている。
ーーー
Sub 使用頻度で並べ替え()
Dim FastRow As Integer
Dim LastRow As Integer

FastRow = Cells(1, 1).End(xlDown).Row
MsgBox FastRow
LastRow = Range("C" & Rows.Count).End(xlUp).Row
MsgBox LastRow
Range("A" & FastRow & ":F" & LastRow).Sort Columns("C"), xlDescending, Header:=xlNo
End Sub
＞FastRow = Cells(1, 1).End(xlDown).Row
の使う場合の不安定さを感じる。見出し行がある場合など。
本来項目見出しはあるべきだろうから。
自分で目で見て、今回の実情で、データの最初行を指定したほうが良いのでは？

お礼

いつも有難うございます。
現状、過去に教えて頂き作ったﾏｸﾛのｺｰﾄﾞを活用させて頂く事で今回のﾏｸﾛを作っていますが、違うｹｰｽには対応出来る力が有りません。
大変勉強になります。

回答No.2

kkkkkm

Range("A & FastRow:F" & LastRow)
↓
Range("A" & FastRow & ":F" & LastRow).Select '

で試してみてください。

お礼

有難うございました。
久しぶりにVBAの勉強をしていますが、「"」の使い方はまだ理解出来ていません。

回答No.1

kon555

あんまりちゃんとは見てないので、目に着いたところだけ
Range("A & FastRow:F" & LastRow)
↓
Range("A " & FastRow &":F" & LastRow)
でどうでしょうか。

お礼

有難うございました。
"A "の半角ｽﾍﾟｰｽを削除したら動きました。

お手数をお掛けしました。