Cells(dic(s_v), 11)不对。dic(s_v)返回的只是空值，造成cells引用错误。 以i=3时为例， 1）Workbooks("ITS电气元器件库.xlsm").Worksheets("Sheet1")的D3单元格的值如果是数字，那么直接引用就好了，不必再加个dic捣乱了。改成Cells(s_v, 11)即...
请把你的语句： Sheets("database").Select 修改为： Application.Goto Sheets("database")
从抛出异常来看Sheet没有正常被定义到，请确认你的sheet名是否正确，断点打到sheet名获取哪里，看是否能正确获得！
请确认变量r的定义是否正确。 如果Sheet4的第4列末尾行数小于4，则导致循环变量d的无效。
For i = 1 To Range("Sheet1").Columns.Count 应该改为如下语句吗？ For i = 1 To sheets("Sheet1").Columns.Count 如果是，同样需要更改如下语句 For j = 1 To Range("Sheet1").Rows.Count
这一句有问题： Set Rng = Sheets(3).Range(Cells(1 + i, 1), Cells(3 + i, 4)) 在你的语句里，Range()的母对象是Sheets(3)，而Cells()的母对象是当前活动工作表，当Sheets(3)不是活动表里，Cells()和Range()的母对象交叉混乱了，在VBA里是非法...
将Wb.Sheets(G).UsedRange.Copy .Cells(.Range("B65536").End(xlUp).Row + 1, 1) 修改成： Wb.Sheets(G).UsedRange.Copy Windows("数据合并.xlsm").Activate Cells(Range("A65536").End(xlUp).Row + 1, 1).Select ActiveSheet.Paste 即可。
Range(Cells(i, j)) 这种形式用于区域： Range(Cell1，Cell2)
运行错误看代码有啥用，得有源文件调试才行
应该是这样： Sub AutoClone()Dim GetDay As LongDim iGetDay = Sheets("report").[T4]For i = 3 to 367 if range("C" & i).Value = GetDay Then Range("D" & i & "AO" & i) = Range("D" & i & "AO" & i).Value End IfNext End Sub你测试一下，...