[[20200509193556]]　『フリガナの位置を変更させたい』（PON）　ページの最後に飛ぶ

『フリガナの位置を変更させたい』（PON）

A1に漢字で名前
B1にふりがなの表を

A1にふりがな
A2に漢字で名前に変えたいです。

200人以上ありますのでなんとかマクロでと思いましたが
何から手を付けていいかわかりません。

教えていただけますでしょうか？

＜使用 Excel：Excel2010、使用 OS：MacOSX ＞

 参考HPです。

https://howtouse-excel.com/useful/cell/transpose-excel-rows-columns/
（OK） 2020/05/09(土) 19:47

 上下逆ですか。
 これは切り貼りで一発だと思います。
（OK） 2020/05/09(土) 19:48

 すみません。
 もう1度やってみたら、ダメだったので消します。
 23:48

（BJ） 2020/05/09(土) 21:28

 >A1にふりがな 
 >A2に漢字で名前に変えたいです。

 Sub Test()
    Dim v As Variant, i As Long

    v = Range("A1", Cells(Rows.Count, "A").End(xlUp)).Resize(, 2).Value
    For i = 1 To UBound(v)
        Cells(i * 2 - 1, "A").Value = v(i, 2)   'ふりがな
        Cells(i * 2, "A").Value = v(i, 1)       '漢字
    Next
 End Sub

（ピンク） 2020/05/10(日) 00:14

ピンクさん

ありがとうございます。
問題なくできました。
（PON） 2020/05/11(月) 11:07

コメント返信：

[ 一覧(最新更新順) ]

[[20200509193556]] 『フリガナの位置を変更させたい』（PON） ページの最後に飛ぶ

[[20200509193556]]　『フリガナの位置を変更させたい』（PON）　ページの最後に飛ぶ