Basic编辑器”(图1)打开VBA编辑器窗口，在VBAProject的工程资源管理器中双击Sheet1，会出现代码编辑窗口，在代码编辑窗口输入如下代码(图2)：

Sub gongzitiao()

Application.ScreenUpdating = False

'为避免破坏表一，将表一内容完整复制到表二

Sheets(1).[A1].CurrentRegion.Copy Sheets(2).[A1]

'定义循环变量的最大值不小于表二中职工数的二倍(我校职工总数为2564)

a = (Application.WorksheetFunction.CountA(Sheets(2).[a1:a2600] * 2

'如果第一列(职工的工资电脑序号)上下单元格的值不相等，则在它们之间chā入一个空白行

For i = 3 To a

If Sheets(2).Cells(i，1)<>Sheets(2).Cells(i + 1，1) And (Sheets(2).Cells(i，

1) <> "") Then

Sheets(2).Rows(i + 1).Insert

End If

'如果第一列中的单元格为空，则将表中[A2:M2](工资清单表头项目)复制到此行

If Sheets(2).Cells(i，1) = "" Then

Sheets(2).[A2:M2].Copy Sheets(2).Cells(i，1)

End If

Next

Application.ScreenUpdating = True

End Sub

3.检查源代码编辑无误后，在VBA窗口中打开菜单“运行”/“运行宏”，将弹出“宏”窗口，你只需单击“运行”即可。

4.待宏运行完毕，再回到Excel，单击工资表下方的“Sheet2”，于是在每两个相邻职工间就chā入了工资清单项目(图3)，再用打印机打印并裁条后，就可以发放给每位职工了。

该cāo作在Excel 2000下调试通过。

在Excel中轻松移动或复制工作表

在使用Excel制表时，我们常常要制作许多张相同格式的表，很多人喜欢选中样表，用复制、粘贴命令来得到另一个工作表，这有些麻烦，其实运用Excel中“移动或复制工作表”功能就能轻松实现上述要求。

1.譬如你要制作多个和样表sheet1.xls相同的工作表，可先打开sheet1.xls工作表。

2.将鼠标移到sheet1上(注意：不是工作表内容区中)点击右键(图1)，选中“移动或复制工作表”，出现如(图2)所示的对话框。

选中“移到最后”，并勾选“建立副本”。点击“确定”后，你会发现工作簿中有个标签为sheet1(2)的表。打开看看，这个表是不是和你想要的一致呢？

3.以上是在同一个工作簿内进行的cāo作，我们还可以将样表(如sheet1.xls)导入到其他工作簿中。

先打开你所想要导入的目的工作簿(笔者打开的是“报表6.211”)，然后通过“文件→打开”命令打开sheet1.xls所在的工作簿(笔者这里是test.xls)，在sheet1标签上点击鼠标右键选择“移动或复制工作表”，在弹出的对话框中，点击“将选定工作表移至工作簿”的下拉菜单，选“报表6.211.xls”(图3)。

然后再选中“移到最后”，勾选“建立副本”，点“确定”后即可在6.211.xls工作簿中导入sheet1表。

在Excel中相同数据的统计

在Excel中，Countif(range，criteria)函数是用来统计某个区域中满足给定条件单元格的数目的。Range是要统计的区域，criteria是以数字、表达式、字符串形式给出的计数单元格必须符合的条件

松语文学免费小说阅读_www.16sy.com