|
こんにちは。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列を基準として職務別に並べ替えを行い、行単位で整列させることです。どのようにすればよいのでしょうか?
ちなみに上図のように点数は未入力のものも存在します。
よろしくお願いします。
|
|