使用Excel VBA宏将值从一列添加到另一列

我需要一个VBA宏，将“未分类”列中的值添加到“公司”中

我不能用公式这样做，因为我必须在之后完全删除未分类的列

例如：

将变成：

---

让我知道这是否有效

Sub CorporateAdd()
    Application.ScreenUpdating = False

    Dim TotalRows As Long
    Dim UnclassArray As Variant, CorporateArray As Variant
    TotalRows = Range("L1048576").End(xlUp).Row

    UnclassArray = Columns("N")
    CorporateArray = Columns("L")

    For i = 4 To TotalRows
        CorporateArray(i, 1) = CorporateArray(i, 1) + UnclassArray(i, 1)
    Next i

    Columns("L") = CorporateArray

    'Uncomment this if you want it to automatically delete "Unclassified"
    'Columns("N").Delete Shift:=xlLeft

    Application.ScreenUpdating = True
End Sub

---

但作为将来的参考，我认为人们不喜欢当你要求代码时，先自己尝试一下，如果它不起作用，就来这里寻求帮助来修复它！：）

让我知道这是否有效

Sub CorporateAdd()
    Application.ScreenUpdating = False

    Dim TotalRows As Long
    Dim UnclassArray As Variant, CorporateArray As Variant
    TotalRows = Range("L1048576").End(xlUp).Row

    UnclassArray = Columns("N")
    CorporateArray = Columns("L")

    For i = 4 To TotalRows
        CorporateArray(i, 1) = CorporateArray(i, 1) + UnclassArray(i, 1)
    Next i

    Columns("L") = CorporateArray

    'Uncomment this if you want it to automatically delete "Unclassified"
    'Columns("N").Delete Shift:=xlLeft

    Application.ScreenUpdating = True
End Sub

---

但作为将来的参考，我认为人们不喜欢当你要求代码时，先自己尝试一下，如果它不起作用，就来这里寻求帮助来修复它！：）

为什么不直接使用O列作为辅助列，在其中输入一个

SUM（）

公式，然后将这些值复制/粘贴到“Corporate”中，然后可以删除该列。。。不需要VBA。为什么不直接使用O列作为辅助列，在其中放入

SUM（）

公式，然后将这些值复制/粘贴到“Corporate”中，然后可以删除该列。。。不需要VBA。没什么大不了的！：）没什么大不了的！：）