excel 每行加一行固定的内容
发布网友
发布时间：2022-05-07 21:19
共5个回答
热心网友
时间：2022-07-01 12:20
要涉及到重新排版
这里有个例子，你要以看看
工资条问题
职工工资构成非常复杂，往往超过10项，因此每月发工资时要向职工提供一包含工资各构成部分的项目名称和具体数值的工资条。打印工资条时要求在每个职工的工资条间有一空行便于彼此裁开。本模板就是用EXCEL函数根据工资清单生成一便于分割含有工资细目的工资条表格。
本工资簿包含两张工资表。第1张工资表就是工资清单，称为"清单"。它第一行为标题行包括职工姓名、各工资细目。
第2张工作表就是供打印的表，称为"工资条"。它应设置为每三行一组，每组第一行为标题，第二为姓名和各项工资数据，第三行为空白行。就是说整张表被3除余1的行为标题行，被3除余2的行为包括职工姓名、各项工资数据的行，能被3整除的行为为空行。
在某一单元格输入套用函数"=MOD(ROW(),3)"，它的值就是该单元格所在行被3除的余数。因此用此函数能判别该行是标题行、数据行还是空行。
在A1单元格输入公式"=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,清单!A$1,"value-if-false"))"并往下填充，从A1单元格开始在A列各单元格的值分别为清单A1单元格的值即姓名、value-if-false、空白，姓名、value-if-false、空白，......。其中value-if-false表示MOD(ROW(),3)既不等于0又不等于1时，即它等于2时应取的值。它可用如下函数来赋值："INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())"。INDEX()为一查找函数它的格式为：INDEX(reference,row-num,col-num),其中reference为查找的区域，本例中为清单表中的A到G列，即函数中的"清单!$A:$G"，row-num为被查找区域中的行序数即函数中的INT((ROW()+4)/3)，col-num为被查找区域中的列序数即函数中的COLUMN()。第2、5、8.......行的行号代入INT((ROW()+4)/3)正好是2、3、4......，COLUMN()在A列为1。因此公式"=INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())"输入A列后，A2、A5、A8......单元格的值正好是清单A2、A3、A4......,单元格的值。这样，表的完整的公式应为"=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,清单!A$1,INDEX(清单!$A:$G,INT((ROW()+4)/3),COLUMN())))"。把此公式输入A1单元格，然后向下向右填充得到了完整的工资条表。
为了表格的美观还应对格式进行设置，一般习惯包括标题、姓名等文字在单元格中要取中，数字要右置，数字小数点位数也应一致，还有根据个人的爱好设置边框。本表格只需对一至三行的单元格进行设置，然后通过选择性格式设置完成全表的设置。
本工作簿的特点是1、不对清单表进行操作保持清单工作表的完整，2、全工作表只有一个公式通过填充得到全表十分方便。
例如：我的单位不大不小，有200多号人。最近领导要求把每个员工个人的工资情况打出来，分发给每位员工。每个员工的工资条上只能有两行内容：一行是分解的项目内容，如基本工资、岗位工资、总计等等；另一行是对应第一行的具体工资数额。
可以这样解决：Sheet2
1.为A1命名为K
2.为A3:A250命名为XX
从A3贴上主索引,数据要连续中间不允许有空格
3.写公式=VLOOKUP(K,DATA,2,0)
有几个字段写几个,位置随您高兴摆
4.隐藏A栏
**************************************************************************************
Sub 打印()
Application.ScreenUpdating = False '屏幕不更新
Dim c As Object '宣告c为对象,请准备空间
[xx].Select '选取变量范围
Set c = ActiveCell '设定c对象为作用单元格
Do Until IsEmpty(c.Value) '作Do循环直到无值时跳出
[k].Value = c.Value
Set c = c.Offset(1, 0) '设定c往下进一格再取主索引值
Sheets("Sheet2").PrintPreview '工作表直接打印改PrintOut
Loop
End Sub
另一回答：我是做人事管理的也遇到过你的问题,我用如下方法解决十分方便,而不用任何代码.
方法的原理是调整打印机的自定义纸张大小到恰好显示一个人的工资条的大小,请按如下：
如：我的excel工资表将项目内容放在第一、二行，行高为20.1，用a4纸横向打印
1、在页面设置中将上、下边距，页眉、页脚均设为零，
在页面设置--工作表---顶端标题行 中输入 $1:$2,即将放在
第 一、二行的项目内容设成每页标题行
打印方向为横向
2、、在文件----打印---属性---纸张----自定义中将纸张的
宽度=280 （单位：毫米）
长度=2970 （单位：毫米）
3、打印时可选1---200页，即可打印200人的工资条，一张a4可打10人
确定后预览，可调整下边距至每页显示一张工资条
我的解决办法：我只用了一个公式: if(mod(row(),3)=0,"",if(mod(row)(),3)=1,sheet1!a$1,index(sheet1!$a:$g,int((row()+4/3),cllolumn())))你试一下
(解释：int((row()+4/3) 是这个意思：一个工资表，有列标题，接下来是工资记录。而我在此表基础上，加一个自动生 成的工资 条表， mod(row(),3)=0，在此表上用这个表示第三行保留空白行； if(mod(row)(),3)=1,sheet1!a$1，表示是第一行取标题列； index(sheet1!$a:$g,int((row()+4/3),column()）这是关键的地方：是指它不是第一行，也不三倍数的行，是记录 行的表示，你想第二行显示记录，则2+4/3=2 取工资 表的第二行记录；第五行显示记录，则5+4/3=3 取工资 表的第三行记录；第八行显示记录，则8+4/3=4 取工资 表的第四行记录；第十一行显示记录，则11+4/3=5 取工资 表的第五行记录；这个公式你可以根据具体情况变化：尤其是((row()+4/3),中的4这个数字，
热心网友
时间：2022-07-01 12:20
1、新建一Excel文件，在sheet1中存放工资表的原始数据，假设有N列。第一行是工资项目，从第二行开始是每个人的工资。
2、在sheet2中我们来设置工资条。根据实际情况，工资条由三行构成，一行对应工资项目，一行对应一个人的工资数据，然后是一个空行用来方便切割。这样三行构成一个工资条。工资项目处在行号除以3余数为1的行上；空行处在行号能整除3的行上。以上两行不难设置，关键是工资数据行，牵扯到sheet1与 sheet2中数据的对应，经分析不难看出“sheet1中的数据行=INT((sheet2中的数据行+4)/3)”。
3、这样我们在sheet2的A1单元格中输入公式“=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((ROW()+4)/3),COLUMN())))”。确认后选择A1单元格，把鼠标放在A1单元格的右下角，鼠标变成“+”时，向右拖动鼠标自动填充至N列，这样工资条中的第一行就出来了。选定A1：N1，把鼠标放在N1单元格的右下角，鼠标再次变成“+”时，向下拖动鼠标自动填充到数据的最后一行，工资条就全部制作完成了。
记得公式“=IF(MOD(ROW(),3)=0,"",IF(MOD(ROW(),3)=1,Sheet1!A$1,INDEX(Sheet1!$A:$N,INT((ROW()+4)/3),COLUMN())))”要把前后两头的引号去掉哦
热心网友
时间：2022-07-01 12:21
热心网友
时间：2022-07-01 12:21
1.要是想在Excel中看：选中姓名 部门...那几个单元格-窗口-冻结窗口。
(选B1单元格冻结的是A列，选A2单元格冻结的是第一行，选A1单元格没劲。）
2.要是想打印以上效果：文件-页面设置-工作表-顶端标题行（选一下第一行）-确定。
热心网友
时间：2022-07-01 12:22
1、文件/页面设置
2、找到“工作表”标签
3、在打印标题，顶端标题行中，选择需要重复的部分，确定即可。
