Question

我想从报表中提取某些数据，然后将其吐出到新的工作表中。

我已经能够将数据从文本文件中提取出来并粘贴到模板中的新工作表中，找到我需要开始寻找相关数据的位置，然后将第一行粘贴到目标工作表中。 / p>

我想知道一种更复杂的代码设置方法。我认为循环可能是最好的方法，但数组也可以解决问题。

这是我到目前为止所拥有的：

Sub findandmovetxt()

'finding text data and moving to new sheet

    Dim celltxt As String

    Sheets("BAI").Activate
    Cells.find(what:="811", After:=ActiveCell).Activate
    Cells.find(what:="16,175", After:=ActiveCell).Activate
    Selection.Copy
    Sheets("Bank").Select
    Range("A" & Rows.Count).End(xlUp).Offset(1).Select
    ActiveSheet.Paste
    Sheets("BAI").Activate
    ActiveCell.Offset(1).Select
    celltxt = ActiveCell.Text
    If InStr(1, celltxt, "16,175") = True Then Selection.Copy
    If InStr(1, celltxt, "16,175") = False Then End

End Sub

相关数据是大型银行报告的一部分。我想复制“ 811”帐户中包含“ 16,175”的行，并将其粘贴到“银行”工作表中。

在“ 16,175”行之后，总是有一个我不想提取的“ 16,275”，并在相关帐户中用信号表示“ 16,175”数据的结尾。

我最终会将相同的代码用于报告中位于下方的其他银行帐户。

我需要知道如何利用循环（或数组），但不确定如何在这种情况下实现，因为我想关注特定帐户内的数据，而不必关注整个报告。

Answer 1

if prediction == [0]:
    paddle_speed = -5
elif prediction == [1]:
    paddle_speed = 5

paddle_pos_y += paddle_speed

如果数据包含某些数据，则将其复制到新工作表

1 个答案: