Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12955 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【7768】複数のセルの値を別のセルに… はむち 03/9/17(水) 15:07 質問
【7769】Re:複数のセルの値を別のセルに… つん 03/9/17(水) 15:19 回答
【7770】Re:複数のセルの値を別のセルに… Kein 03/9/17(水) 15:20 回答
【7776】Re:複数のセルの値を別のセルに… ichinose 03/9/17(水) 20:01 発言
【7780】Re:複数のセルの値を別のセルに… はむち 03/9/18(木) 9:31 お礼
【7768】複数のセルの値を別のセルに…
質問  はむち  - 03/9/17(水) 15:07 -
引用なし
パスワード
   どなたかお助けください。

列Bに印がついている行の列Aの値を連結して、別の一つのセルにまとめて表示したいのです。これだけなら、

Range("A1").Value & Range("A3").Value

とすればいいのですが、印がつくセルの個数が一定ではないのです。
よい方法はないでしょうか。

　　A　　　　B
1　京都　　　☆
2　大阪　　　　　　　→　　京都・名古屋
3　名古屋　　☆
【7769】Re:複数のセルの値を別のセルに…
回答  つん E-MAIL  - 03/9/17(水) 15:19 -
引用なし
パスワード
   はむち さん、こんにちは

こうかな？

Sub test()

　　Dim i As Long
　　Dim strRenketu As String
　　
　　For i = 1 To Range("a65536").End(xlUp).Row
　　　　If Cells(i, 2).Value = "☆" Then
　　　　　　strRenketu = strRenketu & "・" & Cells(i, 1).Value
　　　　End If
　　Next i
　　
　　Range("c1").Value = Mid(strRenketu, 2)


End Sub

お試しください
【7770】Re:複数のセルの値を別のセルに…
回答  Kein  - 03/9/17(水) 15:20 -
引用なし
パスワード
   １行目を項目にしていれば、フィルターで簡単に☆を抽出できますが、項目を入れる
のが面倒なので

Sub Test()
　 Dim MyR As Range, C As Range
　 Dim St As String

　 Set MyR = Range("A1", Range("A65536").End(xlUp)) _
　 .Offset(, 1).SpecialCells(2, 2)
　 For Each C In MyR
　　　St = St & C.Offset(, -1).Value
　 Next
　 Range("C1").Value = St
　 Set MyR = Nothing
End Sub

もし☆が数式の計算結果であるなら SpecialCells(2, 2)→SpecialCells(3, 2)
と、して下さい。
【7776】Re:複数のセルの値を別のセルに…
発言  ichinose  - 03/9/17(水) 20:01 -
引用なし
パスワード
   こんばんは。
別解です。
'==============================
Sub Test()
　　Dim myarray(), add_a, add_b
　　add_a = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Address
　　add_b = Range("a1", Cells(Rows.Count, 1).End(xlUp)).Offset(, 1).Address
　　myarray() = Application.Evaluate("=transpose(if(" & add_b & _
　　　　　　　　　 "=""☆""," & add_a & ",""" & Chr(&HFF) & """))")
　　Range("C1").Value = Join(Filter(myarray(), Chr(&HFF), False), "+++")
End Sub
【7780】Re:複数のセルの値を別のセルに…
お礼  はむち  - 03/9/18(木) 9:31 -
引用なし
パスワード
   おはようございます。

つん さん、Kein さん、ichinose さん、私のあのようなつたない説明にもかかわらず、丁寧なご回答をありがとうございました。
皆様のおかげで解決できそうです。とても助かりました。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
12955 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free