Excel VBAの質問　

excel vbaの複数セルを一つにするマージ方法です。
複数行の値を一つのセルにコピーしていく方法をおききしたいです。

swordone

2015/05/14 12:51

画像の例で～とありますが，画像がないです

therethere

2015/05/14 12:57

なぜか画像が表示できないので、下記URLで参照頂けますでしょうか。 http://detail.chiebukuro.yahoo.co.jp/qa/question_detail/q12145543297

行動規範の内容に同意します

回答1件

ベストアンサー

こんにちは。

切羽詰っているなんていうものだから大分ぐちゃぐちゃなソースになってしまいました…。
でもまぁ動きますおそらく。

改善点は大量にありそうですが、ご参考まで。

lang
1Sub HogeMain()
2
3    '2列目固定
4    Const TARGET_COL As Integer = 2
5    
6    '1行目から読み込み
7    Dim currentRow As Integer
8    currentRow = 1
9    
10    '好物行を記憶
11    Dim saveRowNum As Integer
12    saveRowNum = -1
13    
14    Dim currentVal As String
15    Dim currentSaveWord As String
16    Do
17        currentVal = Cells(currentRow, TARGET_COL)
18                
19        If currentVal = "好物" Or currentVal = "" Then
20            '好物であればそれまでの文字列をマージして、前回の好物セルに設定
21            If saveRowNum <> -1 Then
22                Cells(saveRowNum, TARGET_COL) = currentSaveWord
23            End If
24            currentSaveWord = ""
25            'saveRowNum = currentRow
26            'If currentVal = "" Then                                    'mod
27            If currentVal = "" And currentRow - 1 <> saveRowNum Then    'mod
28                '最終行であればマージ後終了
29                Exit Do
30            End If
31            saveRowNum = currentRow 'add
32        Else
33            '好物でなければ文字列を保存
34            If currentSaveWord = "" Then
35                currentSaveWord = currentVal
36            Else
37                currentSaveWord = currentSaveWord & vbLf & currentVal
38            End If
39        End If
40        currentRow = currentRow + 1
41    Loop
42    
43    MsgBox "おわり"
44    
45End Sub

（修正１）swordoneさんからご指摘いただいたようにセル内改行はLFのみとしました。
（修正２）Merge関数はこのやり方であれば単純置換するだけで良かったので修正しました。
（修正３）そもそもMerge関数自体いらない…
（修正４）そして同じ処理はまとめる
（修正５）VBAもExitあるようなのでいらないフラグは削除
（修正６）追加要望
（修正７）修正６がバグってた

投稿2015/05/14 13:30

編集2015/05/15 07:37