はじめまして,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 この式だと,セルに返したときに一番最初のセルには要求した文字列が 貼り付けられるのですが,次以降のセルには,要求した文字列に加えて前のセルの文字列も返されてしまい最終セルには,膨大な文字列が返されてしました
![VBAにおける文字列結合と繰り返し入力の組み合わせについて](https://cdn-ak-scissors.b.st-hatena.com/image/square/ef5061f8cab0f1a942550b252ca8f62601d27a19/height=288;version=1;width=512/https%3A%2F%2Foshiete.xgoo.jp%2Fimages%2Fsp%2Fqa_recommend%2F2101_5.jpg)