填充連接範圍中的一列

Question

我現在所擁有的內容如下。

Range("F4").Value = Range("D4").Value & " x " & Range("E4") 

這在列上創建串連˚F我。這對單個單元格工作正常，但我希望這繼續連接下來，直到它擊中一個空單元格。

我試過循環沒有成功。

below is an image of the sheet

Answer 1

Set Concat= Rows(4) 
concatstring ="" 
For i = 1 To Concat.Cells.Count 
    If Concat.Cells(i).Text <> "" Then 
     Concatstring = concatstring & " x " & Concat.Cells(i).Text 
     Else 
    Exit for 
    End If 
Next 
Concat.cells(I).text = concatstring 

這應該這樣做。讓我知道你是否仍然有問題。

Answer 2

嘗試......

i=4 
Do while(Range("D" & i).Value<> "") 
    Range("F" & i).Value = Range("D" & i).Value & " x " & Range("E" & i) 

Loop