一个自动引用特定Sheet 的的单位格(代码寻求解释)

风一样入

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then
    Dim x, y, z As Shape
    x = Sheet1.Range("b65536").End(xlUp).Row
    y = Sheet1.Range("b2:b" & x).Find(Target.Value, lookat:=xlWhole).Row
    '''复制新图
Sheet1.Range("c" & y).Copy Range("c" & Target.Row)
End if
End Sub

liuyan819

用F8一步一步运行代码看运行结果

风一样入

可以运行的啊,你在STEEL2 B列输入3或4试下,我想知道这编码语句的意思

liuyan819

我知道你代码没问题，是让你看结果就知道每句起什么作用啥！

liuyan819

Private Sub Worksheet_Change(ByVal Target As Range)
On Error Resume Next
If Target.Column = 2 Then '如果目标单元格列号为2
    Dim x, y, z As Shape
    x = Sheet1.Range("b65536").End(xlUp).Row '把B列最后个一非空单元格行号赋给
    y = Sheet1.Range("b2:b" & x).Find(Target.Value, lookat:=xlWhole).Row '在SHEET1从B2开始到B列有数据区域查找目标值
   Sheet1.Range("c" & y).Copy Range("c" & Target.Row) '把上一句查找的值对应C列图形或数据复制到SHEET2 C列目标值对应行中
End If
End Sub

风一样入

可以Steel1目标行整行复制到Steel2中吗,这样我在工程应用时可以方便.拜托了

风一样入

能加你的QQ吗,在上面言语交流太慢.想跟你多多学习.

风一样入

关于工程下料表，自动索引。求助。