Excel VBA質問箱 IV

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

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


73438 / 76732 ←次へ | 前へ→

【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

お試しください
0 hits

【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 お礼

73438 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free