一つのセルに複数のセルから抽出したデータをカンマ区切りで格納する方法

Question

一つのセルに複数のセルから抽出したデータをカンマ区切りで格納する方法について、
現在下記マクロを用いて別のエクセルからデータを抽出しています。
抽出自体はできているのですが、
java
jsp
html
と書かれた値を一つのセルに
java.jsp,htmlといった形に格納しようとすると、一つの値しか格納できません。
また調べてはみるものの前提知識がなさ過ぎてままならず何かしらのアドバイスややり方を教えてもらえるとありがたいです。

何卒よろしくお願いします。

Answer 1

VBAでexcelのセルを書き換える場合、セルに代入する式を書くと、その値だけになってしまいます。(現在の値の後に書くことにはなりません)
現在の値の後に書きたい場合にはそのように記述する必要があります。
例えばA1セルの現在の値の後に","で区切ってB1セルの値を付加したい場合、

range("A1").value=concatenate(range("A1").value , "," , range("B1").value)

または

range("A1").value=range("A1").value & "," & range("B1").value

なお、excelのセルには一つの値しか設定できません。
例えば、数値(1)と文字列("html")の2つの値を一つのセルに設定することは出来ません。
同様に文字列("java.jsp")と文字列("html")の2つの値を一つのセルに設定することはできませんが、文字列("java.jsp,html")という一つの値を設定することはできます。

Comments

[tokumeikibou162]

なるほど、試してみます。

すいません構文としては下記ので正しいでしょうか？
ThisWorkbook.Sheets("cell2").Range("H" & cnt).Value = wb.Sheets("スキルシート").Range("R17").value & "," wb.Sheets("スキルシート").Range("R18").value

[sage]

&が1ヶ所抜けていたので回答を修正しました。