写了一个拷贝函数，没有行通，谁帮我看看

s399091619

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Row = 9 Then
         Call autoAutoFill("b9", "47018", "d3", "扫描记录")
    End If
End Sub

Sub autoAutoFill(ByVal Range1 As String, ByVal Sh1 As String, ByVal Range2 As String, ByVal Sh2 As String)
    Dim Lie As Integer
    Lie = Range(Range2).Columns
    Dim Hang As Integer
    Hang = Sheets(Sh2).Cells(65536, Lie).End(xlUp).Row + 1
    Sheets(Sh2).Cells(Hang, Lie).Value = Sheets(Sh1).Range(Range1).Value
End Sub
我想达到的要求是，当第9行改动时，把47018工作表中的b9列里的数据复制到扫描记录工作表里d3所在列里的第一个空白单元格里面，可是运行是提示溢出。什么意思》是不是没有写对，还是哪儿要改正一下~请帮忙改正一下，谢谢~~

s399091619

把Lie改成Long类型不溢出了，但是问题来了，下面又提示我对象定义错误

无聊的疯子

s399091619 发表于 2012-5-26 00:23
把Lie改成Long类型不溢出了，但是问题来了，下面又提示我对象定义错误

只是Copy值何必那么复杂

47018 表中的Change事件 和 SelectChange 事件 配合着用就成了

1. 
   
2. Dim Zhi As String
   
3. Private Sub Worksheet_Change(ByVal Target As Range)
   
4.   If Target.Count > 1 Then Exit Sub
   
5.     If Target.Row = 9 And Target.Value <> Zhi Then
   
6.       Sheets("扫描记录").Range("d65536").End(xlUp).Offset(1) = Range("B9").Value
   
7.     End If
   
8. End Sub
   
9. 
   
10. Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    
11.   If Target.Count > 1 Then Exit Sub
    
12.   If Target.Row = 9 Then Zhi = Target.Value
    
13. End Sub
    
14. 
    
15. 
    

复制代码