空间人气 1053

广东省 东莞市 积分  100255    2011-3-2 11:58 注册成为会员

他 的关注 (0)
    关注他 的人 (9)
    来访 今日浏览 0总来访 1053
    留言板
    您需要登录后才可以留言 登录 | 注册


    午后8 2016-3-4 20:08
    卢子,您好。刚买了您的书,菜鸟一个,弱弱地问一句,我下载好了Office2013,请问怎么激活?
    HUANANKOKO 2015-12-14 14:14
    新成员学习了
    月亮的伴 2014-12-17 22:22
    你好,我购买了你出版的书,请问封面上说30多个Excel操作技巧动画在哪里能找得到,谢谢。
    点火¤藏爱¢ 2013-8-19 08:41
      
    大衛 2013-2-11 08:03
    祝你 新年快樂!!! 恭喜發財!!! 蛇年行大運!!!
    六福思梦 2013-1-16 22:32
       来看看,等待你的回访。
    六福思梦 2013-1-14 23:01
    有空多走走,能曾进同学之间的感情,还可以得积分。
    细细粒 2012-12-26 08:39
      
    六福思梦 2012-12-24 22:41
    话说留言可以得积分,欢迎回访哦
    .
    lsp518 2012-11-15 11:47
    想请教点东西
    lsp518 2012-11-15 11:45
    在不
    无言的人 2012-11-4 17:22
    Sub det()
    Dim t As Long
    t = Timer
    Application.ScreenUpdating = False
    Call det1
    'MsgBox "第一步运行完成等待第二部,时间是" & Format(Timer - t, "00秒")
    Call det2
    'Application.OnTime Timer + TimeValue("00:00:20"), "det2"
    Application.ScreenUpdating = True

    End Sub

    Private Sub det2()
    Dim ran As Range, C%, i%
    With ActiveSheet
    C = .UsedRange.Columns.Count

    For i = 1 To C
        For Each ran In .UsedRange
            If Cells(ran.Row, C) <> "" And C <> 1 Then Cells(ran.Row, C).Copy Cells(ran.Row, 1): Cells(ran.Row, C).Clear
        Next ran
    Next i

    End With

    End Sub


    Private Sub det1()
    Dim ran As Range, C%, i%
    With ActiveSheet
    C = .UsedRange.Columns.Count

    For i = 1 To C
        For Each ran In .UsedRange
            If Application.CountA(Range(Cells(ran.Row, 1), Cells(ran.Row, .UsedRange.Columns.Count))) = 0 Then ran.EntireRow.Delete
        Next ran
    Next i

    End With
    End Sub
    正在载入第
    返回顶部