エクセル ＶＢＡ セルのソートの際に・・・

質問

いつも皆様には大変お世話になっております。

今回の質問は、ＢというファイルのデータをコピーしてＡというファイルにい書き込むというマクロを組んでいるのですが（下の構文です）これ自体はうまく動いているのですが、Ａのファイルでそのデータをソートかけたときにうまくソートされません。何でソートされないのかもさっぱりです。
セルH7に名前が入っているのですが、名前でソートかけたいのです。でもＢファイル構文でコピーした名前はソートできずに終ってしまいます。
手入力で名前を入れた分はソートできます。
皆様よろしくお願いいたします。

Sub Ｂファイル構文()
Dim e
e = Range("C3")
Windows("A.xls").Activate
Cells(65535, 2).End(xlUp).Offset(0, 6) = e
ActiveWorkbook.Close SaveChanges:=True
End Sub

Sub Ａファイル構文()
Range("A7:BE156").Select
Selection.Sort Key1:=Range("H7"),Orer1:=xlDescending,:=Range("B7") _, Order2:=xlAscending, Key3:=Range("C7"), Order3:=xlAscending, Header:= _xlGuess, OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, _SortMethod:=xlPinYin, DataOption1:=xlSortNormal, DataOption2:= _xlSortNormal, DataOption3:=xlSortNormal
End Sub

回答No.1

zap35 · ベストアンサー

VBAでコピーするもとのセルのふりがなと、コピーした先のふりがなを、ワークシートに
=PHONETIC(セルアドレス)　　
で確認してみてください。元のセルにはふりがなが、コピー先には漢字が入っていませんか。

並び替えは「ふりがなを無視する」指定にしないとき「ふりがな」をキーとして並び替えを行います。だから意図する並び順になっていないと推察します

VBAでコピーするとき
Cells(65535, 2).End(xlUp).Offset(0, 6).Value = Range("C3").Value
Cells(65535, 2).End(xlUp).Offset(0, 6).Phonetic.text=range("C1").Phonetic.text
でふりがなも一緒に渡したらどうでしょうか。

お礼

早速のお返事ありがとうございました＾＾
原因はふりがなのようでした。
ただ今回は教えていただいた構文の使用がうまくいかなかった為、並び替えのほうのふりがなを無視するに設定いたしました。
まだまだＶＢＡは修行が必要ですね；；　がんばります！