
以前同じ質問をしたのですが、解決しておらす再度質問です。
ExcelVBAと同じようにシートオブジェクトでsort
で並び替えようとしたらadd(6行目)で
「ステートメントがありません」というエラーになりました。
※lastRowは宣言してあります。
============================================
with .Worksheets("シート名")
.activate
lastRow = .range("A1").end(-4121).row
with .sort
.sortfields.clear
.sortfields.add key:=.range("D1"),order:=1
.setRange .range("A1:E" & lastRow)
.header =0
.apply
end with
end with
============================================
VBScriptでExcel上のデータ並び替えはできないでしょうか?
ご存知の方、教えてください。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは
どうやら、文章では話がまったく通じないようなので、全文掲載。
※ 「ブックのパス」、「シート名」を正しく設定しないとエラーになります。
' ***** ここから *****
' Excel Enumerations
Const xlDown = -4121 '( XlDirection )
Const SortOnValues = 0 '( XlSortOn )
Const xlAscending = 1 '( XlSortOrder )
Const xlDescending = 2
Const xlGuess = 0 '( XlYesNoGuess )
' End of Enumerations
Sub SortTest()
Dim X, B, S, R
Const bookPath = "C:\Users\hoge\hoge\hoge.xlsx" '!!!!****
Const sheetName = "fuga" '!!!!****
Set X = CreateObject("Excel.Application")
X.Visible = True
Set B = X.Workbooks.Open(bookPath)
Set S = B.Worksheets(sheetName)
Set R = S.Range(S.Cells(1, 1), S.Cells(1, 1).End(xlDown)).Resize(, 5)
With S.Sort
.SortFields.Clear
.SortFields.Add S.Range("D1"), SortOnValues, xlAscending
.SetRange R
.Header = xlGuess
.Apply
End With
End Sub
SortTest
' ***** ここまで *****
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) ローマ字、ハイフン付きの並び替え ローマ字抽出方法 Excelマクロ 4 2022/04/01 14:10
- Visual Basic(VBA) エクセル VBA 処理スピードを上げたいのですが。 6 2023/03/31 20:52
- Visual Basic(VBA) Excel_マクロ_現在開いているシートにマクロを実行したいです 1 2023/02/14 23:54
- Visual Basic(VBA) ユーザーフォームの書き出しで追加のご相談 ユーザーフォームの値をシートに書き出す際、コードが表示され 2 2022/08/05 10:58
- Excel(エクセル) VBAのoffsetの動き方について教えてください 3 2022/11/25 23:36
- Visual Basic(VBA) Excel VBAで並べ替えをしたい 3 2023/02/25 09:31
- Visual Basic(VBA) エクセルのマクロを使ってメールを送る方法について教えてください 2 2022/03/29 01:36
- Visual Basic(VBA) Excel VBA メール作成について 本文の中にExcel でコピーした図を上下に2つ 貼り付けを 2 2023/06/14 01:48
- Visual Basic(VBA) マクロで最終行を取得してコピーしたい 3 2022/04/06 19:07
- Visual Basic(VBA) 複数条件のオートフィルタ(VBA) 2 2022/12/09 15:40
このQ&Aを見た人はこんなQ&Aも見ています
-
あなたの「必」の書き順を教えてください
ふだん、どういう書き順で「必」を書いていますか? みなさんの色んな書き順を知りたいです。 画像のA~Eを使って教えてください。
-
スマホに会話を聞かれているな!?と思ったことありますか?
スマートフォンで検索はしてないのに、友達と話していた製品の広告が直後に出てきたりすることってありませんか? こんな感じでスマホに会話を聞かれているかも!?と思ったエピソードってありますか?
-
あなたの「プチ贅沢」はなんですか?
お仕事や勉強などを頑張った自分へのご褒美としてやっている「プチ贅沢」があったら教えてください。
-
あなたなりのストレス発散方法を教えてください!
自分なりのストレス発散方法はありますか?
-
思い出すきっかけは 音楽?におい?景色?
記憶をふと思い出すきっかけは 音楽、におい、景色 どれですか?
-
VBScriptでExcel上のデータ並び替え
その他(プログラミング・Web制作)
-
VBScriptでファイルの日時順(降順)で並び替えて一覧を出力したい。
その他(プログラミング・Web制作)
-
VBSでエクセル内の行数を取得する方法
その他(プログラミング・Web制作)
-
-
4
【Excel】 セルの色での判断はできますか?
Excel(エクセル)
-
5
VBS Bookを閉じるコード
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・一番好きなみそ汁の具材は?
- ・泣きながら食べたご飯の思い出
- ・「これはヤバかったな」という遅刻エピソード
- ・初めて自分の家と他人の家が違う、と意識した時
- ・いちばん失敗した人決定戦
- ・思い出すきっかけは 音楽?におい?景色?
- ・あなたなりのストレス発散方法を教えてください!
- ・もし10億円当たったら何に使いますか?
- ・何回やってもうまくいかないことは?
- ・今年はじめたいことは?
- ・あなたの人生で一番ピンチに陥った瞬間は?
- ・初めて見た映画を教えてください!
- ・今の日本に期待することはなんですか?
- ・集中するためにやっていること
- ・テレビやラジオに出たことがある人、いますか?
- ・【お題】斜め上を行くスキー場にありがちなこと
- ・人生でいちばんスベッた瞬間
- ・コーピングについて教えてください
- ・あなたの「プチ贅沢」はなんですか?
- ・コンビニでおにぎりを買うときのスタメンはどの具?
- ・おすすめの美術館・博物館、教えてください!
- ・【お題】大変な警告
- ・洋服何着持ってますか?
- ・みんなの【マイ・ベスト積読2024】を教えてください。
- ・「これいらなくない?」という慣習、教えてください
- ・今から楽しみな予定はありますか?
- ・AIツールの活用方法を教えて
- ・最強の防寒、あったか術を教えてください!
- ・歳とったな〜〜と思ったことは?
- ・モテ期を経験した方いらっしゃいますか?
- ・好きな人を振り向かせるためにしたこと
- ・スマホに会話を聞かれているな!?と思ったことありますか?
- ・それもChatGPT!?と驚いた使用方法を教えてください
- ・見学に行くとしたら【天国】と【地獄】どっち?
- ・これまでで一番「情けなかったとき」はいつですか?
- ・この人頭いいなと思ったエピソード
- ・あなたの「必」の書き順を教えてください
- ・14歳の自分に衝撃の事実を告げてください
- ・人生最悪の忘れ物
- ・あなたの習慣について教えてください!!
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
入力データをマクロで消去した...
-
VBAアクティブセル行で列範囲選択
-
エクセルVBAでセルに入力したパ...
-
ローマ字→カタカナへ変換(エク...
-
マクロ 実行ボタンを押さずに...
-
エクセルのマクロ機能で前のシ...
-
コマンドボタンを押すたびに大...
-
Excel:コマンドボタンの移動
-
excelに貼り付けた数値が勝手に...
-
Excel VBA のdebug(F8キー) が...
-
スクロールしてもボタンを常に...
-
EXCELのセルへ、デジタル時計を...
-
Excelを開いた時に表示さ...
-
エラーになってないのにVBA...
-
ワードからエクセルへ貼り付け...
-
Accessのコマンドボタンの立体...
-
エクセルのコマンドボタンの位...
-
Accessユーザーフォームでコマ...
-
コマンドボタンで「終了ボタン...
-
Excelマクロでオプションボタン...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBScriptでExcel(2019)上のデー...
-
入力データをマクロで消去した...
-
VBAアクティブセル行で列範囲選択
-
python fbprophetについて
-
ローマ字→カタカナへ変換(エク...
-
エクセルVBAでセルに入力したパ...
-
マクロ 実行ボタンを押さずに...
-
Excel:コマンドボタンの移動
-
コマンドボタンを押すたびに大...
-
excelに貼り付けた数値が勝手に...
-
Excel VBA のdebug(F8キー) が...
-
Excelを開いた時に表示さ...
-
スクロールしてもボタンを常に...
-
EXCELのセルへ、デジタル時計を...
-
押したボタンの位置取得(共通の...
-
エラーになってないのにVBA...
-
エクセル グラフの軸の最小値最...
-
エクセルのマクロ機能で前のシ...
-
ワードからエクセルへ貼り付け...
-
複数ファイルにある特定のシー...
おすすめ情報