Question

并希望使用VBA将列中的单元格附加到另一页中的另一个单元格。要复制的细胞必须符合标准。

示例：

Sheet name "Input":

Order Status    Transaction ID
Release         90033333
Release         90055555
cancel          90077777
Release         900861515
Release         900861516

在此示例中，只有具有订单状态=“发布”的交易ID将在已存在的交易ID之后复制。

工作表名称“输出”：

Transaction ID
90000000
90011111
90033333
90055555
900861515
900861516

有关示例代码的任何帮助，我可以从此开始构建我未来的工作吗？

谢谢！

Answer 1

好的，我会自己回答我的问题，谁知道这可能对其他人有帮助......

Sub TestA()


Application.ScreenUpdating = False

Dim cell As Range
Dim OrderID As String
Dim LastRow As Long

For Each cell In Sheets("RogersEmailData").Range("A:A")
  If cell.Value = "Release" Then
    OrderID = cell.Offset(0, 1).Value

    With Sheets("approved orders")
    .Range("A" & .Rows.Count).End(xlUp).Offset(1, 0).Value = OrderID
    End With

 End If
Next cell

Application.ScreenUpdating = True


End Sub

VBA附加 - 根据标准将单元格从工作表复制到另一个

1 个答案: