各位大神能否帮忙看下这个相加的代码

qiongmei6

我想在附件里求得一个代码，如果ad列有数据，他的数据会和y列相加，如果ad4是97，那代码执行后y4变成194，并清除ad4的内容，谢谢各位大神的帮忙。

liulang0808

附件看着怎么那么眼熟呢

liulang0808

Sub aa()
    Application.ScreenUpdating = False
    r = Cells(Rows.Count, "ad").End(3).Row
    For j = 2 To r
        If Len(Cells(j, "ad")) > 0 Then
            Cells(j, "y") = Val(Cells(j, "y")) + Val(Cells(j, "ad"))
            Cells(j, "ad") = ""
        End If
    Next j
    Application.ScreenUpdating = True
   
End Sub

liulang0808

Book1.zip (27.61 KB, 下载次数: 2)

2024-2-2 18:42 上传

点击文件名下载附件

gwjkkkkk

Option Explicit
Sub TEST1()
    Dim ar, i&
   
    With [A2].CurrentRegion
        ar = .Value
        For i = 2 To UBound(ar)
            If Len(ar(i, 30)) Then
                 .Cells(i, 25).Value = .Cells(i, 25).Value + ar(i, 30)
                 .Cells(i, 30).Value = Empty
            End If
        Next i
    End With

    Beep
End Sub

gwjkkkkk

请参考。。。