|
こんにちは。
ルビを入れ替えたいって事なのでしょうか?
勘違いしていたらすみません。
例えば、A列が感じで読みがB列の場合。
For i = 1 To Range("A65536").End(xlUp).Row
Cells(i, 1).Characters(1, Len(Cells(i, 1).Value)).PhoneticCharacters = Cells(i, 2).Value
Next
更にA列が氏名で、苗字、名前の間に半角スペースがあり、B列が苗字の読み、C列が名前の読みの場合。
For i = 1 To Range("A65536").End(xlUp).Row
SPCt = InStr(1, Cells(i, 1).Value, " ")
Cells(i, 1).Characters(1, InStr(1, Cells(i, 1).Value, " ") - 1).PhoneticCharacters = Cells(i, 2).Value
Cells(i, 1).Characters(SPCt + 1, Len(Cells(i, 1).Value) - SPCt).PhoneticCharacters = Cells(i, 3).Value
Next
|
|