请求告诉帮忙VBA的问题

魂断蓝桥

Sub a()
Dim arr(1 To 999, 1 To 2), i, m As Integer, sh As Worksheet
For Each sh In Sheets
    If sh.Name <> "汇总" Then
        m = m + 1
        i = sh.[f9999].End(xlUp).Row
        arr(m, 1) = sh.[c2]
        arr(m, 2) = sh.Cells(i, "f")
    End If
Next
Sheet1.[a1].CurrentRegion.Offset(1, 0).ClearContents
Sheet1.[a2].Resize(m, 2) = arr
End Sub

1036558778

魂断蓝桥 发表于 2014-9-12 14:51
Sub a()
Dim arr(1 To 999, 1 To 2), i, m As Integer, sh As Worksheet
For Each sh In Sheets

谢谢老师。可以了。非常非常的感谢！

1036558778

魂断蓝桥 发表于 2014-9-12 14:51
Sub a()
Dim arr(1 To 999, 1 To 2), i, m As Integer, sh As Worksheet
For Each sh In Sheets

老师可否再做个撤销的呢？

1036558778

魂断蓝桥 发表于 2014-9-12 14:51
Sub a()
Dim arr(1 To 999, 1 To 2), i, m As Integer, sh As Worksheet
For Each sh In Sheets

一个执行一个撤销键

1036558778

1036558778 发表于 2014-9-12 15:56
老师可否再做个撤销的呢？

一个执行一个撤销键，万分的感谢！！！

lfspecter

VBA执行代码后不能真正的做到撤销（像操作中Ctrl+Z）那样

1036558778

lfspecter 发表于 2014-9-12 16:48
VBA执行代码后不能真正的做到撤销（像操作中Ctrl+Z）那样

谢谢老师们！