如果单元格具有值，则将相邻单元格移动到该位置

Question

我有一些数据如下所示：

Upstream    6.36
Downstream  6.25
Downstream  6.36
Upstream    6.25

我想要的是，如果单元格显示 Upstream，请将单词 Upstream 替换为旁边单元格中的值，例如 6.36.

Answer 1

您可以使用如下代码来执行您想要的操作：

Dim i As Integer

For i = 1 To 4
    If Cells(i, 1).Value = "Upstream" Then
        Cells(i, 1).Value = Cells(i, 2)
    End If
Next i

Answer 2

假设第一个 Upstream 在 A1 中，第一个 6.36 在 B1 中，一个简单的公式可能就足够了。在B1现有的和两个之间插入一列：

=IF(A1="Upstream",C1,A1)

复制下来以适应。 Select ColumnB、复制、选择性粘贴、顶部的值并删除 ColumnA。

If a cell has a value move adjacent cell to that location