写了一个过程+change事件，怎么没有实现

s399091619

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
    If Target.Row = 9 And Target.Column = 2 And Sheets("47018").[b9] <> 0 Then
        Call autoAutoFill("47018", "d3", "记录", "a:a")
        Call autoAutoFill("47018", "b9", "记录", "e:e")
    End If
End Sub
Sub autoAutoFill(ByVal Sh1 As String, ByVal Range1 As String, ByVal Sh2 As String, ByVal Range2 As String)
    Dim Lie As Long
    Lie = Range(Range2).Column
    Dim Hang As Long
    Hang = Sheets(Sh2).Cells(Rows.Count, Lie).End(xlUp).Row + 1
    Sheets(Sh2).Cells(Hang, Lie).Value = Sheets(Sh1).Range(Range1).Value
End Sub
为什么“记录”工作表中a列没有数据47018工作表d3里面的数据，只有e列才有47018工作表的b9单元格的数据 ，这个是为什么

zjdh

你得发个附件才可分析，估计你的表中内容有状况。

无聊的疯子

原因很多,,,

至于你这里是什么原因,就要看你的表了!!

附件很重要....