excel vbaで選択したセルをカンマで1つのセルにマージする方法はありますか？

Question

どのように選択した細胞の細胞を1つの細胞に結合することができますか？選択された細胞の数は5細胞以上では変わりますが、A1、A2、A3などのようにすべての細胞が続きます Combine multiple cells into one in excel with macro? しかし、どのように私は選択したセルの上記のリンクの答えを使用することができます。私はExcel 2007を使用しているので、圧縮可能なコードが必要です。

Answer 1

これはトリックを行うべきだと思います。基本的には、範囲変数を使用して選択を処理します。次に、配列に選択されたセルの値を入力します。 CSVはあなたの結果を含む変数です。

ここではselectedCellsは変数で、Excelでは特別な機能ではありません。

[このコードは、Excel 2002で働いていた - 他のバージョンでわからない。]

Dim selectedCells As Range 
Dim rng As Range 
Dim i As Integer 
Dim values() As String 
Dim CSV As String 

' you may need some error handling here in case your selection 
' isn't a range 
Set selectedCells = Selection 

ReDim values(selectedCells.Count - 1) 

i = 0 
For Each rng In selectedCells 
    ' you may want some error handling here when populating the array 
    values(i) = CStr(rng.Value) 
    i = i + 1 
Next rng 

CSV = Join(values, ",")