如何将数据从数组或已存储的不同单元格中连接到同一个单元格中？

Question

我如何将来自不同单元格的多个值（例如：位于我的程序之前获得的标题 x rel 和 y rel 以下的值）并将它们放在与设备 d 位于同一行的同一单元格中？（不是在 excel 中手动选择或有选择地使用编码）。 我当前的代码所做的是定位可靠性失败的 x 和 y 值，然后将它们存储在数组中（不确定它是否正确）但之后如何将它们连接到“After”中显示的同一单元格中？

Public Sub FindAndConvertforreliabilityfails()
Dim i As Integer
Dim j As Integer
Dim lastRow     As Long
Dim myRng       As Range
Dim mycell      As Range
Dim MyColl      As Collection
Dim myIterator  As Variant
Set MyColl = New Collection
Dim xpos As integr, ypos As Integer

MyColl.Add "x rel"
MyColl.Add "y rel"
Dim LastCol As Integer
LastCol = .Cells(1, .Columns.Count).End(xlToLeft).Column
For i = 1 To LastCol
For j = 1 To lastRow

For Each myIterator In MyColl
Do While Sheets(1).Cells(1, j).Value <> ""
If Sheets(1).Cells(1, i).Value = myIterator Then
xpos(j) = Sheets(1).Cells(Rows.Count, 6).End(xlUp).Offset(1, 0)
Else
ypos(j) = Sheets(1).Cells(Rows.Count, 7).End(xlUp).Offset(1, 0)
End If
Loop
Next
Next

' how to continue from here for the concatenate portion?

End Sub

前

后

目前

Answer 1

尝试这个。 这将为您提供预期的输出。

Private Sub Test()
Dim output As Variant
Dim outputrow As Integer
output = ""
outputrow = 0
For i = 2 To 5 'change 5 to lastrow of F&G Column.
    If Cells(i, "B").Value = 0 Then
        output = output & "(" & Cells(i, "F").Value & "," & Cells(i, "G").Value & "),"
    Else
        Cells(i, "E") = Left(output, Len(output) - 1)
        output = "(" & Cells(i, "F").Value & "," & Cells(i, "G").Value & "),"
    End If
Next i
Cells(i, "E") = Left(output, Len(output) - 1)
End Sub