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

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)  

复制到西装。在顶部选择ColumnB，Copy，Paste Special，Values并删除ColumnA。