none
如何让Excel自动判断并合并录入的两条相同的记录? RRS feed

  • 问题

  •          Excel中使用数据清单录入数据时,如果要录的某条数据在前面已经存在,只是该条数据中的数量列的数量与前面的不一样,如何能让Excel自动判断前面已存在该条记录并将此数量累加到前面的数量中去,而省去该条的录入。请求老师们赐教,谢谢!
    2010年6月1日 13:42

答案

  • 是的。写了个简单的,项目在A列,数据在B列。

    Sub sample()
    Dim MyRow As Long
    Dim MyText As Variant, MyNum As Variant, MyFind As Range
    MyRow = Range("a65536").End(xlUp).Row + 1
    MyText = InputBox("请输入项目", "项目")
    MyNum = InputBox("请输入数据", "数据")
    Set MyFind = Range("a:a").Find(what:=MyText, lookat:=xlWhole)
    If Not MyFind Is Nothing Then
        Range("b" & MyFind.Row) = Range("b" & MyFind.Row) + MyNum
    Else
        Range("a" & MyRow) = MyText
        Range("b" & MyRow) = MyNum
    End If
    Set MyFind = Nothing
    End Sub


    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/

    2010年6月3日 3:16

全部回复

  • 完全要做到你所要求的,就需要用代码了。

    如果可以变通一下的话,那就不需要,对于已存在的数据不予理会,直接继续正常录入,最后用数据透视表进行汇总。


    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/

    2010年6月2日 2:25
  • 完全要做到你所要求的,就需要用代码了。

    如果可以变通一下的话,那就不需要,对于已存在的数据不予理会,直接继续正常录入,最后用数据透视表进行汇总。


    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/


    你所说需要用的代码,就是指VBA代码吗?
    2010年6月3日 0:39
  • 是的。写了个简单的,项目在A列,数据在B列。

    Sub sample()
    Dim MyRow As Long
    Dim MyText As Variant, MyNum As Variant, MyFind As Range
    MyRow = Range("a65536").End(xlUp).Row + 1
    MyText = InputBox("请输入项目", "项目")
    MyNum = InputBox("请输入数据", "数据")
    Set MyFind = Range("a:a").Find(what:=MyText, lookat:=xlWhole)
    If Not MyFind Is Nothing Then
        Range("b" & MyFind.Row) = Range("b" & MyFind.Row) + MyNum
    Else
        Range("a" & MyRow) = MyText
        Range("b" & MyRow) = MyNum
    End If
    Set MyFind = Nothing
    End Sub


    在单元格里横行的……

    QQ:76332468

    www.excelpx.com

    www.exceljy.com

    www.access-cn.com/vvb/

    2010年6月3日 3:16
  • 补充一点,可能在worksheet change 里写上面的语句,就可以自动判断了。主要还是要看自己的具体情况。
    2010年6月4日 7:33
  • 可以考虑数据有效性。
    2010年6月4日 14:01