[已解决]工作表的非空行号变了？

xiaoni

我在工作薄：2012年4月份金工车间工时.xls中写了代码，把含有批注的单元格复制到另一工作薄：清砂.xls 中时，为什么清砂工作薄中非空单元格的行号是61，那么第一个空单元格的行号是62，为什么运行代码时，跑到171号去了呢？详见附件
工作薄.zip (55.24 KB, 下载次数: 13)

2012-4-11 20:35 上传

点击文件名下载附件 请大家修改一下代码？

最佳答案

月排行榜 / 总排行榜

zjdh

2012-4-11 21:08

找错了对象！补上红色语句。
ActiveWorkbook.Sheets(1).Range("b" & ActiveWorkbook.Sheets(1).[b65536].End(3).Row + 1).Resize(UBound(ARR, 2), UBound(ARR)) = Application.WorksheetFunction.Transpose(ARR)

跳转到最佳答案楼层

hrpotter

1. 
   
2. Sub AA()
   
3.     Dim RG As Range, M%, ARR()
   
4.     Dim wb As Workbook
   
5.     For Each RG In Range(Cells([a65536].End(3).Row, "D"), Cells(Rows.Count, "e").End(3))
   
6.         If Not RG.Comment Is Nothing Then
   
7.             M = M + 1
   
8.             ReDim Preserve ARR(1 To 3, 1 To M)
   
9.             ARR(1, M) = RG.Value
   
10.             If RG.Column = 4 Then
    
11.                 ARR(2, M) = RG.Offset(, 2).Value
    
12.                 ARR(3, M) = RG.Offset(, 6).Value
    
13.             Else
    
14.                 ARR(2, M) = RG.Offset(, 1).Value
    
15.                 ARR(3, M) = RG.Offset(, 5).Value
    
16.             End If
    
17.         End If
    
18.     Next RG
    
19.     Set wb = Workbooks.Open(ThisWorkbook.Path & "/清砂.xls")
    
20.     With wb.Sheets(1)
    
21.         .Range("b" & .[b65536].End(3).Row + 1).Resize(UBound(ARR, 2), UBound(ARR)) = Application.WorksheetFunction.Transpose(ARR)
    
22.     End With
    
23.     wb.Close True
    
24.     Set wb = Nothing
    
25. End Sub

复制代码

zjdh

找错了对象！补上红色语句。
ActiveWorkbook.Sheets(1).Range("b" & ActiveWorkbook.Sheets(1).[b65536].End(3).Row + 1).Resize(UBound(ARR, 2), UBound(ARR)) = Application.WorksheetFunction.Transpose(ARR)