Excel Application.DisplayAlerts = False有对应操作么
1个回答
展开全部
Sub 按钮2_Click()
Application.ScreenUpdating = False
Set d = CreateObject("scripting.dictionary")
arr = [a1].CurrentRegion
For j = 1 To UBound(arr)
d(arr(j, 1)) = arr(j, 2) + d(arr(j, 1))
Next j
[g1].Resize(d.Count) = WorksheetFunction.Transpose(d.keys)
[h1].Resize(d.Count) = WorksheetFunction.Transpose(d.items)
Application.ScreenUpdating = True
End Sub
用vba实现，结果放到GH两列
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
|
广告 您可能关注的内容 |
