Excel VBA質問箱 IV

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

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


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

52638 / 76732

←次へ　｜　前へ→


	【28929】Sortメソッド

toki - 05/9/18(日) 14:04 -


	引用なし

	パスワード

こんにちは。tokiと申します。
過去ログを参照しましたがよくわからないので並べ替えについて教えてください。

A列　 B列　 C列　　　　D列　　E列　　F列　 ←列番号
職務　氏名　社員番号　点数A　点数B　点数C　←見出し
S　　○○　○○○○　 ○　　 ○　　 ○
M　　○○　○○○○　 ○　　 ○　　 ○
S　　○○　○○○○　 ○　　 ○　　 ○　　
S　　○○　○○○○　 ○　　 ○　　 ○
M　　○○　○○○○　 ○　　 ○　　 ○
M　　○○　○○○○　　　　
J　　○○　○○○○　　　　
J　　○○　○○○○　　　　
S　　○○　○○○○　　　　

このときワークシート上のコマンドボタンで並べ替えのマクロを起動しようと思ってます。
職務を並べ替えの基準にするため、ボタンを押すと、S、M、J別にソートされれば良いのですが先頭のSと書いてあるセルがA7なので

Private Sub 整列ボタン_Click()
　　
　　Range("A7").Sort key1:=Range("A7"), header:=xlNo, sortmethod:=xlPinYin
　　　　
End Sub

としましたが、「同じサイズの結合セルが必要です」というエラーが出てしまいます。ちなみに7行目以降には結合セルはありません。
やりたいのは、A列を基準として職務別に並べ替えを行い、行単位で整列させることです。どのようにすればよいのでしょうか？
ちなみに上図のように点数は未入力のものも存在します。
よろしくお願いします。

0 hits

▼

【28929】Sortメソッド toki 05/9/18(日) 14:04

≪