複数の列を繋げてＡ列に入れたい ＶＢＡ

質問

aaa
aaa　　bbb
aaa　　bbb　　ccc
aaa
(A列にaaa、B列にbbb、C列にcccが入ってます)
と言うデータがあるのですが
全てＡ列に入れて
aaa
aaabbb
aaabbbccc
aaa
としたいです。

・最終列は必ずしもＣではないのです。（Dの場合もEの場合もある）
・最終行も変化します。

Sub 分かれてる列を繋げる()
Dim Col As Long
Dim Row As Long

For Row = 1 To Range("a65536").End(xlUp).Row
　　For Col = 1 To Cells(Row, 256).End(xlToLeft).Column
　　　Cells(Row, 1) = Cells(Row, 1) & Cells(Row, 2) & Cells(Row, 3)
　　 Next Col
Next Row
End Sub

をやってみましたが、
aaa
aaabbbbbb
aaabbbcccbbbcccbbbccc
aaa
となってしまい、
欲しい結果とは違くなってしまいます。

回答No.4

K Kazz（@JazzCorp） · ベストアンサー

データの下端、右端は、Ａ列や行１基準では無理がある？
UsedRangeならケッコウイイセン、イク、、、

Option Explicit
Sub 分かれてる列を繋げる()
Const xSeparator = ""
Dim Col As Long
Dim Row As Long
Dim farLow As Long
Dim farRight As Long
farLow = Cells(Rows.Count, "A").End(xlUp).Row
farRight = Cells(1, Columns.Count).End(xlToLeft).Column
farLow = ActiveSheet.UsedRange.Rows.Count
farRight = ActiveSheet.UsedRange.Columns.Count
For Row = 1 To farLow
For Col = 2 To farRight
Cells(Row, "A").Value = Cells(Row, "A").Value & xSeparator & Cells(Row, Col).Value
Next Col
Next Row
Columns("A").AutoFit
End Sub

お礼

できました！
色々な方法があってビックリです。

回答No.6

WindFaller

こんにちは。

>なぜrowは使わない方が良いのでしょうか？
>再度ご回答いただけたら幸いです。

Row は、Rangeなどのオブジェクトのプロパティ名です。Colは、違います。Columnです。

VBAには、予約語という概念がほとんどないので、システム側ではねられることはありません。しかし、一応、システム側で使用しているメソッド、プロパティ、関数などは、コーディングでは、ユーザーが、変数やプロシージャ名、関数などは、かぶらないようにする、というのがコーディング・ルールのひとつです。

ちなみに、変数として、row と小文字にしてしまうと、プロパティ側も、row になってしまいます。

まあ、Office VBA にコーディング・ルールなど、決まったものはないと突っぱねれば、それはそれまでです。時々、そういう方もいらっしゃるようですが、そういう人が、まともなコードを書いているとは思えません。こうしたルールは、システムを開発する時などに、見やすさ（可読性）を重視し、共通したルールで書いたほうが、ミスが少ないし、バグが見つけやすいからです。

ちなみに、私は、Col と Rw と使っていた時期があります。

お礼

ありがとうございました。

回答No.5

tsubuyuki

あら、ほんとだ＾＾；
早朝はボケボケでダメですねぇ＾＾；；

Row・Colなど、関数にもありそうなモノは変数名としては避けるべきですね＾＾；
失礼いたしました＾＾；；

お礼

Row・Colは関数として使われてるのですか？
WindFaller様と同じく、使わない方が良いという事ですか。
以後使わないようにします。

回答No.3

WindFaller

こんにちは。

ご質問のコードを手直してみました。(Test2 というのは、私が考えたオリジナルもある、ということです）ただ、私は、一旦、buf という、テンポラリの変数を置きます。

それと、これは、実情には影響ないはずですが、ワークシートの右端列を入力したものは、認識しないという欠陥があります。なお、変数の「Row」という文字はまずいです。

'//
Sub Test2()
　Dim i As Long
　Dim j As Long
　Dim LastR As Long
　Dim LastC As Long
　Dim rng As Range
　Dim buf As String
　LastR = Cells(Rows.Count, 1).End(xlUp).Row
　Application.ScreenUpdating = False
　For i = 1 To LastR
　　LastC = Cells(i, Columns.Count).End(xlToLeft).Column
　　For j = 1 To LastC
　　　buf = buf & Trim(Cells(i, j).Value)
　　Next j
　　Cells(i, 1).Value = buf
　　Cells(i, 1).Offset(, 1).Resize(, LastC).ClearContents
　　buf = ""
　Next i
　Application.ScreenUpdating = True
End Sub

お礼

うまくできました。
複雑なので一つ一つ理解できるように努力します。
なぜrowは使わない方が良いのでしょうか？
再度ご回答いただけたら幸いです。

回答No.2

tsubuyuki

元のご自身の文を最大限生かすとしたら、

Sub 分かれてる列を繋げる()
Dim Col As Long
Dim Row As Long

　　For Row = 1 To Range("a65536").End(xlUp).Row
　　　　For Col = 2 To Cells(Row, 256).End(xlToLeft).Column　　　'（１）
　　　　　　Cells(Row, 1) = Cells(Row, 1) & Cells(Row, Col)　　　'（２）
　　　　Next Col
　　Next Row
End Sub

こんなのもアリですね。
（１）（２）の部分の違いに注目です。

本当は、
For ◎=○○ To △△ Step □□　と書きます。
「○○から△△まで□□刻みで繰り返し」の意味で、
Stepを省略すると、Step 1（１ずつ加算）として扱われます。
この場合、「○○＜△△」の時はスルーしてくれるんです。

例えば、10行目から1行目の順に繰り返したいなら
　　For i=10 To 1 Step -1
などと書いてやると、きっとうまくいきますね。

偶数列だけ・・なんてときは、
　　For i = 2 to 10 Step 2
なんて書き方も面白いですね。

お礼

元のコードの１を２にしたり、
2を１にしたりするのですね。

For ◎=○○ To △△ Step □□　
の文法を覚えるようにします。

回答No.1

keithin

こんばんは。

マクロを使うなら、下手に策を凝らすよりベタにやっつけた方が、結局簡単です。

作成例：
sub macro1()
　dim h as range
　on error resume next
　for each h in cells.specialcells(xlcelltypeconstants)
　　if h.column <> 1 then
　　　cells(h.row, 1) = cells(h.row, 1) & h
　　　h.clearcontents
　　end if
　next
end sub

お礼

仕組みはよくわかりませんができました！
しかもＡ列以外のセルも消えました！
よかったです。ありがとうございました。