QQ网名大全

excel如何添加工资表表头,如下图这样!在此附送20分...

Sub 添加表头()

 Dim H As Long

 Dim i As Integer

 H = ActiveSheet.UsedRange.Rows.Count

  For i = H To 1 Step -1

  If Cells(i, 1) <> "" And Cells(i, 1) <> "姓名" Then

 Rows(i).Insert Shift:=xlDown

  Range("A" & i & ":G" & i) = Array("姓名", "部门", "职称", "基本工资", "奖金", "津贴", "实发工资")

 End If

Next i

End Sub

Sub 删除表头()

    Dim H As Long

    Dim i As Integer

    H = ActiveSheet.UsedRange.Rows.Count

    For i = 1 To H

        If Cells(i, 1) = "姓名" Then

            Rows(i).Delete

        End If

    Next i

End Sub

打开工作表,按ALT+F11,打开vbe窗口,将上面的代码粘贴进去;回到EXCEL界面,右键点击按钮,”指定宏“,分别给两个按钮指定,其一为”添加表头“,另一个为”删除表头“,呵呵试一试吧!

佚名
2024-05-24 02:15:41
最佳回答
类似问题(10)
  • 佚名
    2024-05-24 13:11:46

    excel2个表格一个主一个附,如何对应主表格内名字添加附表格内名字后的金额

    '=A表=|=B表=' A B C D|A B C D1 姓名 地址 电话 日销售额|姓名 地址 电话 月销售额2 张三…|(输入)公式1 公式2 公式33 李...

  • 佚名
    2024-05-24 06:23:53

    EXCEL2010如何在图表上添加折线图的系列名

    你要的是这种效果吗?实现方法:选中需要添加名称的曲线的最后一个数据节点添加数据标签将最后一个数据标签的内容,修改成你需要标注的内容除了以上方法,EXCEL图标似...

  • 佚名
    2024-05-24 06:46:13

    如何在EXCEL 工作表中将标题分页显示打印出来

    单击菜单栏中的“文件”,在下拉菜单中选择“页面设置”,单击“工作表”选项卡,在“顶端标题行”中写入标题行的范围,比如下图中是第1和第2行为标题行(即表头),则写...

  • 佚名
    2024-05-24 22:43:49

    origin中如何在图中添加标签

    方法步骤如下:1、首先打开计算机,在计算机内进入origin,在里面新建一个三维表面图与标注数据点的初始数据。2、选中所有数据,执行Plot-3D Surfac...

  • 佚名
    2024-05-24 08:00:00

    如何在EXCEL表格实现对账

    分别选中两份运单单号一列,排序。(两个单号一列复制进一个sheet)用一份减去另一份,等于零就正常,不等于零就错了

  • 佚名
    2024-05-24 08:00:00

    如何将EXCEL表格保存为模板

    1、电脑打开Excel表格,做好文档。2、编辑好要作为模板的Excel表格,直接按F12快捷键,调出保存界面,点击保存WPS文档。3、选择WPS文档后,文件类型...

  • 佚名
    2024-05-24 08:00:00

    如何在excel表格中批量查找姓名

    excel里按下F1 输入vlookup,自己研究下吧

  • 佚名
    2024-05-24 08:00:00

    如何在excel图表中更改系列名称

    用excel打开一个带有图表的工作表 此时观察 菜单栏上没有图表这个菜单2鼠标左键点击一下图标区空白处 激活图表 再观察菜单栏上 已经出现了 图表这个菜单3鼠标...

  • 佚名
    2024-05-24 08:00:00

    如何将软件添加到注册表中

    楼主你好,如果你下载的是绿色软件的话,大多数绿色软件下载好就可以用了,少数绿色软件下载好后是一个压缩包,你把它解压,在解压出来的文件夹里面找到那个扩展名是.re...

  • 佚名
    2024-05-24 08:00:00

    在EXcel中,如何关闭"发送工作表"那一栏呀?

     此题中所说的数据对应在excel中有多种多样的公式可以实现,列举常用几个如下:lookup, 举例:=LOOKUP(E2,$A$2:$B$5), 注意look...