2行目と3行目を1行目に右側につけて、空白を削除してつめるコードが知りたいです。

質問

1
2
3

4
5
6

7
8
9
.
.
.

A1「1」、A2「2」、A3「3」A4空白、A5「4」、、、と言う風なデータがあるの
ですが、
これを

123
456
789
...

と言う風に2行目と3行目を1行目に右側につけて、空白を削除してつめるコー
ドが知りたいです。

実際のデータは数値ではなく文字列です。
よろしくお願いします。

回答No.4

n-jun

>B列、c列に移したいです。よろしくお願いします。
だとすると、

Sub　test()
　　Dim　v,　x
　　Dim　i　As　Long

　　With　ActiveSheet
　　　　　　　v　=　.Range(.[A1],　.Cells(Rows.Count,　1).End(xlUp)).Value
　　　　　　　ReDim　x(1　To　(UBound(v)　+　1)　/　4,　1　To　3)

　　　　　　　For　i　=　1　To　UBound(x,　1)
　　　　　　　　　　　x(i,　1)　=　v((i　-　1)　*　4　+　1,　1)
　　　　　　　　　　　x(i,　2)　=　v((i　-　1)　*　4　+　2,　1)
　　　　　　　　　　　x(i,　3)　=　v((i　-　1)　*　4　+　3,　1)
　　　　　　　Next
　　　　　　　.Range("A:A").ClearContents
　　　　　　　.Range("A1").Resize(UBound(x,　1),　3).Value　=　x
　　End　With
End　Sub
こんな感じでしょうか？

お礼

大変参考になりました。ご回答ありがとうございます。