◯ならば、右セルをコピーし、1セルにまとめるマクロ

質問

エクセルのマクロで、顧客管理情報のシートを作成しています

例えば下のような二列のセルがありまして、（｜は、セルの境目を表す）

◯　｜　A
◯　｜　B
×　｜　C
◯　｜　D

この時、
◯のついている行の値だけど、つなげたいと思っています。
この場合であれば、得たい値は「A、B、D」という値です。（AとBの間を　”,”　などで区切ろうと考えています。

エクセルの関数でいえば「A１＆","&A２」といったところでしょうか・・・
そのような操作を、上のテーブルでいえば「◯」のついているセルに対してのみ実行してもらうマクロを組みたいです。

このような場合、どうしたら良いでしょうか？
アドバイスを、どうぞよろしくお願いいたします。

回答No.3

watabe007 · ベストアンサー

○印はＡ列としています。
Sub Test()
　　Dim v(), i As Long
　　Dim c As Range

　　For Each c In Range("A1", Cells(Rows.Count, "A").End(xlUp))
　　　　If c.Value = "◯" Then
　　　　　　i = i + 1
　　　　　　ReDim Preserve v(1 To i)
　　　　　　v(i) = c.Offset(, 1).Value
　　　　End If
　　Next
　　MsgBox Join(v, ",")
End Sub

お礼

うまくいきました。
マクロの基本的な言語から学んでいるところ、
本当に助かりました。

アドバイスをいただいた皆様、どうもありがとうございました。

回答No.5

tom04

こんにちは！
すでに色々回答が出ていますので、参考程度で・・・

C1セルに表示するようにしてみました。

Sub test()
Dim i As Long, str As String
For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row
If Cells(i, 1) = "○" Then
str = str & Cells(i, 2) & ","
End If
Next i
Range("C1") = Left(str, Len(str) - 1)
End Sub

こんな感じではどうでしょうか？m（_ _）m

お礼

うまくいきました。
マクロの基本的な言語から学んでいるところ、
本当に助かりました。

アドバイスをいただいた皆様、どうもありがとうございました。

回答No.4

KURUMITO

例えば次のようなマクロにすればよいでしょう。

Sub 文字の連結()
Dim i As String
Dim m As String
Dim myStr As String
Dim myStr1 As String
i = 1
m = 0
Do
i = i + 1
If Cells(i, 1) = "○" Then
myStr = Cells(i, 2).Value
m = m + 1
If m = 1 Then
myStr1 = myStr
Else
myStr1 = myStr1 & ", " & myStr
End If
End If
Loop Until Cells(i, 2) = ""
Cells(2, 3) = myStr1
End Sub

お礼

うまくいきました。
マクロの基本的な言語から学んでいるところ、
本当に助かりました。

アドバイスをいただいた皆様、どうもありがとうございました。

回答No.2

kybo

以下の様な感じです。

Sub macro()
Dim C As Range, T As String
For Each C In Range("A1:A4")　’A列の範囲
If C.Value = "◯" Then
If T = "" Then
T = C.Offset(, 1).Value
Else
T = T & "," & C.Offset(, 1).Value
End If
End If
Next C
MsgBox T
End Sub

お礼

うまくいきました。
マクロの基本的な言語から学んでいるところ、
本当に助かりました。

アドバイスをいただいた皆様、どうもありがとうございました。

回答No.1

don9don9

マクロでないとダメでしょうか？

○が入っている列をA列、A,B,C,Dなどのデータが入っている列をB列とすると
C1セルに
=IF(A1="○",B1,"")
C2セルに
=IF(A2="○",IF(C1="",B2,C1&","&B2),C1)
と入力して、C2セルの式を下方向にコピーすれば、C列の最終行がお望みの値になると思います。

お礼

うまくいきました。
マクロの基本的な言語から学んでいるところ、
本当に助かりました。

アドバイスをいただいた皆様、どうもありがとうございました。