帮忙合并宏(已解决）

zxh5983

我是菜鸟，下面两个宏照搬的，现在发生碰车，请哪位高手帮忙合并。在此先谢谢。在看了“SHANGYU”试成功，谢谢
Private Sub worksheet_change(ByVal target As Range)
    With Range("B8")
    If target.Address(0, 0) = "D3" Then
    Select Case target
    Case "东乡高信化工有限公司"
    .Value = "煤"
    Range("C14") = "4.945/吨"
    Case "何官程"
    .Value = "废铁"
    Range("C14") = "8.74/吨"
     Case "东永淀粉化工有限公司", "利生淀粉有限公司"
    .Value = "淀粉"
    Range("C14") = "5.16/吨"
    End Select
    End If
    End With
   
End Sub

Private Sub worksheet_change(ByVal target As Range)
On Error Resume Next
If target.Value = "" Then Exit Sub
If target.Row <> 5 Or target.Column <> 4 Then Exit Sub
If dic.Count <> 0 Then
  If Not dic.exists(target.Value) Then
     dic(target.Value) = target.Value
     Range("AI" & [AI65536].End(xlUp).Row + 1) = target.Value
  End If
Else
  dic(target.Value) = target.Value
  Range("AI" & [AI65536].End(xlUp).Row + 1) = target.Value
End If
End Sub

[ 本帖最后由 zxh5983 于 2008-11-4 16:16 编辑 ]

zxh5983

在看了版主“SHANGYU”发表的文章试成功，谢谢