投稿/コメントを表示します。

エクセルマクロ・VBA基礎編フォローアップ ベーシック
表を解析して1行のリストを作る、1行のリストを解析して表にする(その1)

鈴木優子さんの投稿

(投稿ID: 1562)

自力で書いたマクロで動いて嬉しかったのですが、
やっぱり解答のマクロはシンプルでかっこいいですね。
わたしは、、、毎回書き出してしまいました。。。
mid 関数は思いつきませんでした。
Sub mondai()
    Dim gyo
    Dim gyousyamei
    Dim furigana
    For gyo = 2 To 11
        gyousyamei = Range("A" & gyo).Value
        furigana = Range("B" & gyo).Value
        If gyo = 2 Then
            Range("F2").Value = gyousyamei
            Range("F3").Value = furigana
        Else
            Range("F2").Value = Range("F2").Value & "," & gyousyamei
            Range("F3").Value = Range("F3").Value & "," & furigana
        End If
    Next
End Sub

2015/08/05 07:50