Excel打印工资条表头(一行两行三行表头)代码概要1.docVIP

Excel中添加打印工资表头及删除打印工资表头??? (1) 执行“工具→宏→Visual Basic编辑器”命令，进入“Visual Basic编辑”窗口。执行“插入→模块”命令，插入一个模块（如“模块1”），双击“模块1”在窗口右边展开“模块1（代码）”编辑窗口，输入如下代码： ? 描述：从第二行数据开始，给每一行添加第一行的数据表头 ========下面的代码适合Excel2000/Excel2003版======= xustudio = [A65536].End(xlUp).Row - 2 根据A列的文字，判断数据的行数 xu = 2 For zz = 1 To xustudio studio = zz + xu Rows(1:1).Select Selection.Copy Rows(studio).Select Selection.Insert Shift:=xlDown xu = xu + 1 Next Application.CutCopyMode = False xustudio = ActiveSheet.UsedRange.Rows.Count - 2 根据使用的区域，判断数据的行数 xu = 2