mdsk.net
当前位置:首页 >> ExCEl VBAó >>

ExCEl VBAó

从抛出异常来看Sheet没有正常被定义到,请确认你的sheet名是否正确,断点打到sheet名获取哪

这一句有问题: Set Rng = Sheets(3).Range(Cells(1 + i, 1)

For i = 1 To Range("Sheet1").Columns.Cou

将Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B

软件版本:Office2007 方法如下: 在VBA中如果使用了系统不认可的对象表示方法等,例如下面

.Range("a2").Resize(m, 5)这个是重新定义区域用的,不能值

Sub SimpleFilter() Dim strAddress As String

Cells(dic(s_v), 11)不对。dic(s_v)返回的只是空值,造成cells引用错误。

请把你的语句: Sheets("database").Select 修改为:

应该是这样: Sub AutoClone()Dim GetDay As LongDim iGetDa

网站首页 | 网站地图
All rights reserved Powered by www.mdsk.net
copyright ©right 2010-2021。
内容来自网络,如有侵犯请联系客服。zhit325@qq.com