[已解决]这句代码应该怎么改？

美斯特邦威

这句代码应该怎么改？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-10-11 13:13

Sub 录入数据()    '录入数据
    Application.ScreenUpdating = False
    Dim rng As Range, m, n
    Sheets("信息录入").Activate
    n = [a:b].Find("合　　　　　　计", , , 1).Row
    For m = 4 To n
        If Cells(m, 1) = "" Then Exit For
    Next
    m = m - 4
    If [b4] = "" Then MsgBox "您没有输入任何信息，点我没用!": Exit Sub
    Set rng = Sheets("数据库").[a65536].End(3).Offset(1)
    rng.Offset(0, 1).Resize(m, 9) = [b4].Resize(m, 9).Value
    rng.Resize(m) = Range("C2")
    [b4:J23].ClearContents
    Range("b4").Select
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

zjdh

Sub 录入数据()    '录入数据
    Application.ScreenUpdating = False
    Dim rng As Range, m, n
    Sheets("信息录入").Activate
    n = [a:b].Find("合　　　　　　计", , , 1).Row
    For m = 4 To n
        If Cells(m, 1) = "" Then Exit For
    Next
    m = m - 4
    If [b4] = "" Then MsgBox "您没有输入任何信息，点我没用!": Exit Sub
    Set rng = Sheets("数据库").[a65536].End(3).Offset(1)
    rng.Offset(0, 1).Resize(m, 9) = [b4].Resize(m, 9).Value
    rng.Resize(m) = Range("C2")
    [b4:J23].ClearContents
    Range("b4").Select
    Application.ScreenUpdating = True
End Sub