我如何将来自不同单元格的多个值(例如:位于我的程序之前获得的标题 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

在此处输入图片说明

在此处输入图片说明

目前

在此处输入图片说明

#1楼 票数: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

  ask by cena translate from so

未解决问题?本站智能推荐:

1回复

将一个单元格超链接到同一工作表中的另一个单元格

我想如果在 A 列下单击 x,绿色矩形移动到最右侧的 1:单击 A1 处的第一个 x 到达 (1, P3), A2 -> (2, P2), A3 -> ( 3, P2), A4 -> (4, P3)。 我编写代码的目的是将 A1、A2、A3 和 A4 超链接到相应的 PCell。
3回复

如何遍历同一个单元格

我已经为一个单元格编写了上面的代码来循环遍历 values = 0 到 35 。 我这样做是因为还有其他公式的值会根据 Range("C10") 的值而变化。 代码不起作用
2回复

使用Excel将具有多个变量的单元格超链接到同一工作表中的另一个单元格

有没有办法合并IF和HYPERLINK函数? 我的IF语句运行顺利,但是添加HYPERLINK时遇到问题。 下面提供了示例。 和一个HYPERLINK公式。 这是一个例子:
3回复

如果值匹配,则将单元格数据连接到另一个数据中

我在同一个excel表中有两columns A and B 我正在尝试,如果在Column B两个值匹配,那么它应该在同一行中复制相关值A 例如桌子 期望输出
1回复

如何将连接到多个微调器的单元格限制为微调器链接的单元格中的值的总和?

我有5个连接5个细胞的微调器。 当5个单元格的总和达到一定值时,旋转器是否可能停止工作? 即在你减少另一个细胞之前不能进一步增加任何细胞。
1回复

根据同一行中另一个单元格的值计算相应单元格中的单元格值

我有一个程序,它根据一个值计算单元格的数量。 例如,如果 E 列中的单元格值 =“75”,则添加到“Air Count”,否则如果 E 列 =“76”,则添加到“Road Count” 在我的数据集中,S 列中有一个相应的单元格,其中包含项目数。 我想根据它们在 E 列中的值来计算这些项目。例如,如
2回复

向下复制下一个单元格并粘贴到同一个单元格上

我一直在使用下面的代码来复制下一个单元格并每次粘贴到同一个单元格上。 让我解释一下。 例如,Sheet1 在Range("L1:L" & lastrow)中有一个或多个值,如果 range("E4") 为空,我将运行代码,然后 L1 值将在 E4 中更新然后再次运行代码,现在 L2 值将在
1回复

如何将一个单元格和(同一行中的数据)匹配到具有相同值的不同列中的一个单元格

嗨,我希望有人能帮助我。 我有一列参考数字,其中有23000多个。 我也有一个数据集,它也包含相同的参考数字,但没有那么多。 是否可以通过某种方式将参考编号和相应的数据与不同列中具有相同值的参考编号进行匹配? 由于数据集ID中的值较少,例如参考编号,没有数据为空白。 任何帮助,