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

法則性の表現と検証の関数が参考になりました。
ちなみに、裏技的な解法で解いてみましたが、回答と比べるとシンプルではないですね。
Sub moji()
    Dim gyo
    Dim migi
    migi = 1
    For gyo = 1 To 29 Step 3
        Range("C" & migi).Value = Range("A" & gyo).Value & Range("A" & gyo + 1).Value
        migi = migi + 1
    Next
End Sub

2015/08/31 04:28