如果> 0，则Excel VBA将单元格值复制到左侧的单元格

Question

在列W中，我有BALANCE2值，在列X中，我有BALANCE3值

我需要移动BALANCE3中的值（大于零）来覆盖BALANCE2中的相应单元格，以便我有一个完整的付款列表。

任何人都可以帮忙使用这个吗？ 我不知道怎么做。

Answer 1

不要为此使用宏

只需使用excel的内置IF ，例如，假设BALANCE2是W列而BALANCE3是X列，写入单元格Z1

=IF(X1>0,X1,W1)

然后将其拖动到整个列，将列Z剪切并粘贴到W列，然后在没有编写宏代码的情况下进行“覆盖”

Answer 2

试试这个：

Public Sub overwriteValues()

    Dim row As Integer

    'Set start row
    row = 1

    With Sheets("sheetname")

        'Loop until column X cell is blank
        'You can modify column if you want other
        Do While .Range("X" & row) <> ""

            If .Range("X" & row) > 0 Then

                .Range("W" & row) = .Range("X" & row)

            End If

            'Increase row
            row = row + 1

        Loop

    End With

End Sub