Excel で｢ふりがな｣なんか扱ったことがなかったんで(何せ､Excel 関係のあんまりややこしい仕事はやったことないし(^^;)､ちょっとﾊﾏってしまった｡
あるｼｰﾄ上の名簿(ふりがな付)をｿｰﾄして､その結果で新しい名簿を作成するのだが､ｿｰﾄ用のﾃﾝﾎﾟﾗﾘｼｰﾄ(tmpSht)から例えば
.Cells(i, j) = Sheets(tmpSht).Cells(i, j)
みたいに値をｾｯﾄしちゃうと､ふりがな情報は移らないんじゃね｡
それ知らなかったんで､
.Cells(i, j).Phonetics.Visible = True
とかしてやればいいのか?とか､色々試したけど駄目｡
.Cells(i, j).SetPhonetic
.Cells(i, j).Phonetics.CharacterType = xlHiragana
.Cells(i, j).Phonetics.Visible = True
なんてやると､新しくふりがなが自動ｾｯﾄされるだけなので意味無し｡
せっかく､元の名簿の方で｢栗男｣を｢くりお｣って修正しているのに､新しい名簿には｢くりおとこ｣とか載っちゃって(^^; 怒られるで､ほんま｡(^^;
結局､
Sheets(tmpSht).Cells(i, j).Copy .Cells(i, j)
つう具合に､ｾﾙを丸ごとｺﾋﾟｰしないと駄目なのね･･･
これで､ふりがな情報も消えることなく新しいｾﾙにｺﾋﾟｰされる｡
ただ､これすると､ｾﾙの書式情報(ﾌｫﾝﾄや表示位置などの情報)までｺﾋﾟｰされちゃうので､
.Cells(i, j).Font.Name = "MS Pｺﾞｼｯｸ"
.Cells(i, j).Font.Size = 12
.Cells(i, j).VerticalAlignment = xlCenter
みたいに書式をｾｯﾄし直してやらんといかんのが面倒くせえ｡(^^;
何か､他に良い方法があったら教えてください＞識者の方