是的。写了个简单的，项目在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/
