串聯電池的範圍內每行一個字符串第一

Question

早上好，

我想造一個句子中的一個新的細胞（I23），在該範圍內J2的所有單元格的值：S2，如果他們不空。

這是我的主板：

它應當標註類似的句子： 「今天早上我有OUI，aaaaaah，真是沒有，yeeees，225，也許，Y，Y」

但PB是值這個數字可以改變（你看到它在第二行）

這是我的代碼現在：

y = Sum("J2:S2") 
    For Z = 1 To Z = y 
    If Range("J2:S2") <> " " Then 
    Cells(Z, 2) = Range("J2:S2") 
    End If 
    Next 

Answer 1

大家下午好。東西可能會工作：

Option Explicit 

Public Sub J2S2() 

    Dim rngCell   As Range 
    Dim strResult  As String 

    For Each rngCell In Range("J2:S2") 
     If Len(rngCell) Then 
      strResult = strResult & " " & rngCell 
     End If 
    Next rngCell 

    Debug.Print Trim(strResult & ".") 

End Sub 

它打印到即時窗口範圍J2:S2細胞的所有值。與空間分開。我在最後添加了一個句號，就你所說的輸出應該是一個句子。

如果你想讓它sentece情況下，這裏是一個很好的例子：Converting to sentence case using VBA

編輯： 另外，如果你想通過列循環首先，試試這個：

Option Explicit 

Public Sub ColumnsFirstJ2S4() 

    Dim rngCell   As Range 
    Dim strResult  As String 

    Dim lngRow   As Long 
    Dim lngCol   As Long 

    Dim rngTarget  As Range 

    Set rngTarget = ActiveSheet.Range("J2:S4") 

    With rngTarget 

    For lngCol = .Column To .Columns.Count + .Column 
     For lngRow = .Row To .Rows.Count + .Row 

       If Len(ActiveSheet.Cells(lngRow, lngCol)) Then 
        strResult = strResult & " " & ActiveSheet.Cells(lngRow, lngCol) 
       End If 

     Next lngRow 
    Next lngCol 

    End With 

    Debug.Print "ADDING TEXT here " & Trim(strResult & ".") 
    ActiveSheet.Range("I23") = "ADDING TEXT here " & Trim(strResult & ".") 

End Sub