No.2ベストアンサー
- 回答日時:
こんばんは!
一例です。
Sub Sample1()
Dim lastRow As Long, lastCol As Long
lastRow = Cells(Rows.Count, "A").End(xlUp).Row '←A列で最終行取得//
lastCol = Cells(5, Columns.Count).End(xlToLeft).Column '←5行目で最終列取得//
Range(Cells(5, "A"), Cells(lastRow, lastCol)).Sort key1:=Range("B5"), order1:=xlAscending, Header:=xlYes
Range(Columns("F"), Columns(lastCol)).ColumnWidth = 12
End Sub
こんな感じではどうでしょうか?m(_ _)m
ありがとうございます!初心者の私にはわかりやすかったです^^ 動作、バッチリでした!!覚えておいて今後どんどん活用していきたいです!
No.3
- 回答日時:
最終行の取得としては、たとえば、
Dim LstRow As Long
LstRow=Cells(Rows.Count,1).End(xlUp).Row
で行けます。
つまり、A列の最終行から上に遡ってぶち当たる行、ということです。
同様に最終列の取得は、たとえば
Dim LstCol As Long
LstCol =Cells(1,Columns.Count).End(xlToLeft).Column
で行けます。
1行目の最終列から左に遡ってぶち当たる列、ということです。
データの入力状況に応じて、上記の「A列」や、「1行目」のところはアレンジしてください。
それを踏まえて、ご質問の状況に当てはめれば、たとえば以下。
Dim Rng1 As Range, Rng2 As Range, LstRow As Long, LstCol As Long
LstRow=Cells(Rows.Count,1).End(xlUp).Row ’最終行を変数LstRowに入れる
LstCol =Cells(1,Columns.Count).End(xlToLeft).Column ’最終列を変数LstCol に入れる
Set Rng1 = Range(Cells(5,1),Cells(LstRow,43)) 'A5~AQ最終行の範囲を変数Rng1に格納
Rng.Sort _
Key1:=Cells(5,2), Order1:=xlAscending,Header:=xlYes
Set Rng2 = Range(Columns(6),Columns(LstCol)) 'F列から最終列の範囲を変数Rng2に格納
Rng2.ColumnWidth=12
Set Rng1=Nothing
Set Rng2=Nothing
とか。
ありがとうございます、初心者の私には少し難しかったですが、遡ってぶち当たるという概念がわかりやすかったです!Rngに格納というのを使った事がまだありませんでしたので、大変参考になりました。
No.1
- 回答日時:
最終行を取得する場合は、
Cells(1, 1).End(xlDown).Rowです。
http://excel-ubara.com/excelvba4/EXCEL222.html
こちらに詳しく載っていますので参考になさってください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) Sub 分けてソートして貼り付ける() Dim srcSheet As Worksheet Dim 6 2023/08/04 19:57
- Visual Basic(VBA) 3つのプロシージャをまとめたら実行時エラー発生で対応不能 6 2022/05/17 01:47
- Visual Basic(VBA) 追記する列を増やしたい 2つのデータを検索・照合して元データにないデータを下記マクロで商品名を追記し 9 2022/10/05 10:50
- Visual Basic(VBA) Excelのマクロについて教えてください。 1 2023/03/12 12:16
- Visual Basic(VBA) vba 等間隔の列に対しての計算 6 2022/05/17 20:15
- Visual Basic(VBA) Excel VBA キーワードから列を取得して、さらに空欄行を非表示にする 3 2022/10/21 22:49
- その他(プログラミング・Web制作) sortの優先キーについて(スプレッドシート) 1 2023/01/17 17:59
- Visual Basic(VBA) 正規表現を用いての並び替え 7 2022/04/04 09:27
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
このQ&Aを見た人はこんなQ&Aも見ています
-
「環境が人を育てる」って本当?環境によって人格や生き方は本当に変わるのか
環境が人生に与える影響は実際どれほどのものなのか、専門家の田宮由美さんに伺った。
-
エクセルVBA 最終行を選んで並び替え
Excel(エクセル)
-
エクセル:マクロ「Application.CutCopyMode = False」って?
Excel(エクセル)
-
エクセル マクロ 最終列までを全選択
Excel(エクセル)
-
-
4
エクセルVBA 最終行を選んで並び替え (空白セルを一番上に表示したい)
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
【Excel VBA】一番右端セルまでの範囲指定の仕方(途中に空白セルあり)
Visual Basic(VBA)
-
7
【EXCEL】【VBA】空欄は飛ばして処理する方法を教えて下さい。
Excel(エクセル)
-
8
B列の最終行までA列をオートフィル
Visual Basic(VBA)
-
9
EXCEL VBAで全選択範囲の解除
Excel(エクセル)
-
10
Excelで、activecellから最終列まで選択するvbaはどうすれば?
Excel(エクセル)
-
11
エクセルVBAで5行目からオートフィルタモードに設定したいたい
Excel(エクセル)
-
12
並べ替えのマクロで対象行の範囲を行を増やした分だけ可変にして増やしたい。
Excel(エクセル)
-
13
VBA 別シートの同じ日付の欄に値を貼付け
Excel(エクセル)
-
14
エクセルエラー13型が一致しませんの直し方教えて下さい。
その他(Microsoft Office)
-
15
excelで入力の最終行に移動するには
Visual Basic(VBA)
-
16
表内、縦位置の中央揃えがど~~してもできない!!
Word(ワード)
-
17
エクセルのチェックボックスを保護対象から外すには
Windows Vista・XP
-
18
エクセル マクロ オートフィルの終点の指定について
Excel(エクセル)
-
19
VBAで、離れた複数の列に対して処理を施すには?
Visual Basic(VBA)
-
20
アクティブセルから、A列最終行までフィルダウン
Excel(エクセル)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
VLOOKUPの列番号の最大は?
-
エクセルで離れた列を選択して...
-
LEFT関数とIF関数の組み合わせ...
-
エクセルで住所を県と市・郡と...
-
「段」と「行」の違いがよくわ...
-
Excelの行数、列数を増やしたい...
-
リストからデータを紐付けしたい
-
エクセルのソートで、数字より...
-
Excel文字列一括変換
-
エクセルマクロの組み方
-
「コピー → 行列を入れ替えて貼...
-
VBA 指定した列にある日時デー...
-
VBA
-
VBAで結合セルを転記する法を教...
-
ListViewで列を指定して表示さ...
-
エクセルマクロで表の途中の集...
-
エクセルで?
-
VBA エラーコード1004について
-
条件付きの標準偏差をVBAを用い...
-
エクセル マクロ 範囲指定で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで離れた列を選択して...
-
VLOOKUPの列番号の最大は?
-
「段」と「行」の違いがよくわ...
-
LEFT関数とIF関数の組み合わせ...
-
VBA 指定した列にある日時デー...
-
CSVファイルの「0落ち」にVBA
-
エクセルで住所を県と市・郡と...
-
Excelの行数、列数を増やしたい...
-
エクセルで複数列の検索をマク...
-
エクセルマクロの組み方
-
Alt+Shift+↑を一括で行うには、...
-
えABのある列って
-
エクセルのソートで、数字より...
-
エクセル マクロ 範囲指定で...
-
VBAで結合セルを転記する法を教...
-
VBAで別ブックの列を検索し、該...
-
エクセルマクロPrivate Subを複...
-
列方向、行方向の定義
-
リストからデータを紐付けしたい
-
Accessのレポートで繰り返し表...
おすすめ情報