[已解决]请高手指点错误

liuab11

Sub 表9()
Application.ScreenUpdating = False
    Dim a, bAs Integer
        Sheets("表9").Range("b8:ac187").ClearContents
    
    
     Sheets("表10").Select
         For a = 8 To 186 Step 2
        For b = 12 To 196 Step 2
            If Worksheets("表9").Cells(a, 1).Value = Worksheets("表10").Cells(b, 1).Value Then
               WorkSheets("表9").Range(Cells(a, 2), Cells(a, 29)) .Value= WorkSheets("表10").Range(Cells(b, 2), Cells(b, 29)).Value  (运行到此行出错,不知啥原因)
               Worksheets("表9").Range(Cells(a + 1, 2), Cells(a + 1, 29)).Value = Worksheets("表10").Range(Cells(b + 1, 2), Cells(b + 1, 29)).Value
            End If
        Next b
     Next a
                  
  
     Application.ScreenUpdating = True
  Sheets("表9").Select
 
    
End Sub
TQlfcyAQ.rar (13.82 KB, 下载次数: 3)

2010-11-7 21:57 上传

点击文件名下载附件
请高手指点错误

[此贴子已经被作者于2010-11-7 21:57:06编辑过]

最佳答案

月排行榜 / 总排行榜

爱疯

2010-11-8 11:56

测试了下，这里不能这么赋值。

由于不知道目的，改数组过渡，最后结果产生了（舍入）差别，我想是和公式有关。所以最好根据目的，重新设计方法。

Sub 表9()
    Dim a, b As Integer,arr
   
    Application.ScreenUpdating = False
    Sheets("表9").Range("b8:ac187").ClearContents
    Sheets("表10").Select

    For a = 8 To 26 Step 2
        For b = 12 To 28 Step 2
            If Worksheets("表9").Cells(a, 1).Value = Worksheets("表10").Cells(b, 1).Value Then
           
                arr = Worksheets("表10").Range(Cells(b, 2), Cells(b, 29))
                Worksheets("表9").Cells(a, 2).Resize(UBound(arr), UBound(arr, 2)) = arr
                Erase arr
                arr = Worksheets("表10").Range(Cells(b + 1, 2), Cells(b + 1, 29))
                Worksheets("表9").Cells(a + 1, 2).Resize(UBound(arr), UBound(arr, 2)) = arr
                Erase arr
               
            End If
        Next b
    Next a
    Sheets("表9").Select
    Application.ScreenUpdating = True
End Sub

 

[em11]

[此贴子已经被作者于2010-11-8 13:04:05编辑过]

跳转到最佳答案楼层

liuab11

有高手在不?急用

爱疯

楼主最好同时传上EXCEL文件，才好测试[em09]

liuab11

已上传,请高手指点呀!!

liuab11

有高手在不？

爱疯

测试了下，这里不能这么赋值。

由于不知道目的，改数组过渡，最后结果产生了（舍入）差别，我想是和公式有关。所以最好根据目的，重新设计方法。

Sub 表9()
    Dim a, b As Integer,arr
   
    Application.ScreenUpdating = False
    Sheets("表9").Range("b8:ac187").ClearContents
    Sheets("表10").Select

    For a = 8 To 26 Step 2
        For b = 12 To 28 Step 2
            If Worksheets("表9").Cells(a, 1).Value = Worksheets("表10").Cells(b, 1).Value Then
           
                arr = Worksheets("表10").Range(Cells(b, 2), Cells(b, 29))
                Worksheets("表9").Cells(a, 2).Resize(UBound(arr), UBound(arr, 2)) = arr
                Erase arr
                arr = Worksheets("表10").Range(Cells(b + 1, 2), Cells(b + 1, 29))
                Worksheets("表9").Cells(a + 1, 2).Resize(UBound(arr), UBound(arr, 2)) = arr
                Erase arr
               
            End If
        Next b
    Next a
    Sheets("表9").Select
    Application.ScreenUpdating = True
End Sub

 

[em11]

[此贴子已经被作者于2010-11-8 13:04:05编辑过]

liuab11

OK.非常感谢！