Excel应用-术语管理模板（记录单新建记录功能的VBA实现）

1. 界面如下，

2. 术语列表

3. VBA代码：

Public Sub saveTerm()
Dim iCount As Integer
    Application.ScreenUpdating = False
    '把工作表的记录数赋予iCount
    iCount = Sheets("Term").[A1].CurrentRegion.Rows.Count
    '选择UI工作表
    Sheets("UI").Select
    '选择保存数据的区域，然后Copy
    Range("C5:C13").Copy
    '**Term工作表
    Sheets("Term").Activate
    '选择Term工作表最后一条记录的下一行区域
    Cells(iCount + 1, 2).Select
    '复制数据
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=True
    '实现记录自动编号
    Cells(iCount + 1, 1).Value = Cells(iCount, 1).Value + 1
    '再次选择UI工作表
    Sheets("UI").Select
    '把选Copy的区域释放
    Application.CutCopyMode = False
    Application.ScreenUpdating = True
End Sub

彩蛋（2017年6月14日追记）：

Excel提供了一个内置功能：记录单，可以实现记录的增删改，直接上图。

有没有发现，还是自制的Excel模板看着舒服吧。不过，这个功能总的来说比较鸡肋。

直接在Excel内完成数据的增删改查最方便了。