セルのExcelと条件付きマージのカンマと "ands"

Question

各セルのエントリ間にコンマを入れて、最大12個の異なるセルの情報を1つのセルにマージしたいとします。さらに、最後から二番目と究極の項目の間のカンマが "と"で置き換えられたいと思います。 12個の入力セルのうち、一部のインスタンスのみが任意のインスタンスに値を持ちます。したがって、入力が4つのセルと空白セルが8つある場合、出力は入力セル1、入力セル2、入力セル3と入力セル4になります。逆に、入力が6つのセルと空白セルが6つある場合、I出力が入力セル1、入力セル2、入力セル3、入力セル4、入力セル5、および入力セル6であることが望ましい。

これを実行する方法はありますか？前もって感謝します。

Answer 1

あなたは何を試してみました？

Sub concatWithCommas() 
Dim i As Long, str As String, j As Long 
str = "" 
For j = 1 To Cells(Rows.Count, 1).End(xlUp).Row 
For i = 1 To 12 
    If Cells(j, i) <> "" Then 
     str = str & Cells(j, i) & "," 
    End If 
Next i 
str = Left(str, Len(str) - 1) 
Cells(j, 13) = Application.WorksheetFunction.Substitute(str, ",", " and ", (Len(str) - Len(Replace(str, ",", "")))) 
str = "" 
Next j 
End Sub