Excel VBA質問箱 IV

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

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


52642 / 76736 ←次へ | 前へ→

【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 質問
【28930】Re:Sortメソッド みみ 05/9/18(日) 16:13 回答
【28934】Re:Sortメソッド toki 05/9/18(日) 20:00 お礼
【28931】Re:Sortメソッド Hirofumi 05/9/18(日) 16:24 回答
【28933】Re:Sortメソッド toki 05/9/18(日) 19:57 質問
【28935】Re:Sortメソッド toki 05/9/18(日) 21:14 お礼

52642 / 76736 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free