excel “用于复制并粘贴到公寓格区域,然后循环到下一区域得宏”

elcex8rz  于 2022-11-26  发布在  其他
关注(0)|答案(1)|浏览(146)

我有一个事务列表,其中的事务具有不同的行数。有些事务具有3行,有些可能具有更多行。只有每个事务的第一行具有事务编号。我需要找到一种方法,从第一行复制事务编号,并将其粘贴到组成该事务的行的末尾,然后对下一个事务重复此操作。
有没有人能简单地建议一下如何实现这一点?sample of transaction list


以上只是一个示例,共有7000笔交易

xbp102n0

xbp102n01#

填补空白

Sub FillTransactions()
    
    ' Read.
    
    Dim ws As Worksheet: Set ws = ActiveSheet ' improve!
    
    Dim rCount As Long: rCount = ws.UsedRange.Rows.Count - 1
    If rCount < 2 Then Exit Sub
    
    Dim rg As Range: Set rg = ws.Range("A2").Resize(rCount)
    
    Dim Data() As Variant: Data = rg.Value
    
    ' Modify.
    
    Dim r As Long, OldNum As Long, NewNum As Long
    
    For r = 1 To rCount
        NewNum = Data(r, 1)
        If NewNum = 0 Then Data(r, 1) = OldNum Else OldNum = NewNum
    Next r
    
    ' Write.
    
    rg.Value = Data

End Sub

相关问题