Excel VBA質問箱 IV

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

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


73431 / 76732 ←次へ | 前へ→

【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

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

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