zut003のプロフィール

はじめまして，VBA初心者ですがよろしくお願いいたします。 今，データベースから文字列を抜き出してセルに等間隔で貼り付けるというプログラムを作成しています。 実際は，もっと複雑なプログラムなのですが質問のために簡単にしました。 Sub 例文() For a = 1 To 10001 ggx = あるデータベース Dim i As Integer For i = 1 To 13 文字列 As String 文字列 = 文字列 & MidB(ggx, i * 80 + 95, 2) Next i .Cells(2 * a + 4, 1).Value = 文字列 Next a End Sub この式だと，セルに返したときに一番最初のセルには要求した文字列が 貼り付けられるのですが，次以降のセルには，要求した文字列に加えて前のセルの文字列も返されてしまい最終セルには，膨大な文字列が返されてしました。 ちなみに，詳しく書けなくて申し訳ないのですが変数aによってデータベースの内容は変化します。 MidB(ggx, i * 80 + 95, 2) という関数でデータベースから条件に当てはまるいくつかの文字列を抜き出してセルに返すことまでは出来たのですが返し方がうまくいきません。 質問の仕方が下手で非常に申し訳ないのですがどうぞアドバイスをお願いします。