随着我国集体林权制度改革的不断深入，手工整理内业资料的工作，其繁琐、易出错、资料填写不整洁等问题日益凸显出来。笔者作为一名林改工作的直接参与者，充分利用Excel电子表格软件的数据处理和分析功能，大大地减少了日常工作中复杂的手工劳动量，避免了上述错误，创新了工作思路，提高了工作效率。

　　一、《林地林权现场核实公示表》的制作

　　1、工作思路

　　《林地林权现场核实公示表》(以下简称<现场核实公示表>)是将现场核实的主要内容反映在表上。为了让群众能够真正接受现场核实的主要内容，并且有权修改四至界线的内容，笔者在每宗地的下一行插入了由“东、南、西、北、签名”为内容的行。

　　2、用VBA插入行

　　《现场核实公示表》内容少则数百行，多则上万行。如果采用手工一行行地插入，那就浪费了Excel电子表格软件的强大功能。《现场核实公示表》表头由1至3行组成，从第4行开始为现场核实的各项因子。在该表添加按钮，并运用如下代码，可以迅速插入“东、南、西、北、签名”为内容的行。

　　Sub 插入 ()

　　Dim arr, rng As Range, lr&, i&

　　lr = Range("a65536").End(xlUp).Row

　　arr = Range("a1:a" & lr)

　　For i = 6 To lr

　　If Val(arr(i, 1)) = 0 Then

　　If rng Is Nothing Then Set rng = Cells(i, 1) Else Set rng = Union(rng, Cells(i, 1))

　　End If

　　Next

　　Application.ScreenUpdating = False

　　If Not rng Is Nothing Then rng.EntireRow.Delete

　　Set rng = Sheets("签名").Rows(2)

　　For i = Range("a65536").End(xlUp).Row To 5 Step -1

　　rng.Copy

　　Rows(i + 1).Insert Shift:=xlDown

　　Next

　　Application.CutCopyMode = False

　　Application.ScreenUpdating = True

　　End Sub

　　二、自动填写《林地林权申请表》、《林地林权现场核实表》的制作

　　1、工作思路

　　手工填写《林地林权申请表》、《林地林权现场核实表》，在很大程度上容易出现或漏或错的笔误，并且造成页面不整洁，重复返工，工作效率低。笔者运用Excel电子表格软件，设计了一套非常好用的自动套印软件。

　　2、制作自动套印软件

　　A、制作基础表格 主要包括《林地林权现场核实公示表》和《人员基本信息表》两种表格。

　　B、制作模板表格 首先将《林地林权申请表》、《林地林权现场核实表》，两样表格扫描进入电脑，再将其复制到EXCEL工作表上，然后按照样表调整好行高列宽后保存。

　　C、录入函数公式 在需要填写的单元格录入公式“=CONCATENATE(LOOKUP(Y4,路径[申请统计表汇总.xls]申请统计表'!A4:A1050,路径[申请统计表汇总.xls]申请统计表'!AX4:AX1050),"")”，其他单元格公式以此类推。

　　D、添加按钮代码 在该表添加一个按钮，并运用如下代码：

　　Private Sub CommandButton1_Click()

　　Dim thefirst As Integer

　　Dim theend As Integer

　　thepage = Worksheets("申请表").Range("Y2").Value - 1

　　theend = Worksheets("申请表").Range("AB2").Value

　　Worksheets("申请表").Range("Y4").Value = thepage

　　Do While Worksheets("申请表").Range("Y4").Value < theend

　　Worksheets("申请表").Range("Y4").Value = Worksheets("申请表").Range("Y4").Value + 1

　　Worksheets("申请表").PrintOut

　　Loop

　　End Sub

　　《林地林权现场核实表》的代码类同。

　　三、自动查找重漏编号的制作

　　1、工作思路

　　编号如果重复、错漏，这将会对林改内业工作造成无法统计的严重后果。但是，手工编号又难免会出现重复、错漏的现象，仅仅依靠手工一行行、一页页地查找，仍然容易出错。

　　2、查找漏掉小班(假如小班号从C4开始)，数组公式：

　　=SMALL(IF(COUNTIF($C$4:$C$1000,ROW(INDIRECT(MIN(C$4:C$1000)&":"&MAX(C$4:C$1000))))=0,ROW(INDIRECT(MIN(C$4:C$1000)&":"&MAX(C$4:C$1000)))),ROW(A1))

　　重复小班(假如小班号从C4开始)：

　　=IF(C4="","",IF(COUNTIF($C$1:$C$1000,C4)>=2,"重复",""))

　　漏掉小班、重复小班会自动查找并显示出来。

　　充分利用Excel电子表格软件的强大功能，对于林改工作具有十分重要的意义，笔者结合工作，浅谈了一些运用方法，不足之处，希同仁批评指正。