懂视网
回答时间:2022-03-26 08:56
产品型号:ASUS S340MC
系统版本:Windows 10
软件版本:Microsoft Office Excel 2019
1、首先在电脑上打开要编辑的Excel表格。
2、进入表格后,点击左下角的sheet1旁边的“+”,即可添加一个新的工作表。
3、再点击下方的sheet1,可以切换回之前的表格。
总结
1、首先在电脑上打开要编辑的Excel表格。
2、进入表格后,点击左下角的sheet1旁边的“+”,即可添加一个新的工作表。
3、再点击下方的sheet1,可以切换回之前的表格。
收起
热心网友
回答时间:2022-03-26 06:04
数据在原数据基础上变化,比如整体加1的方法。
如下参考:
1.以excel2010版本为例,在下面的图中添加一个月的日期,如下图。
2.在B2单元格中输入日期函数=日期(年(A1),月(A1)+1,日(A1))如下图。
3.但是,当当前月份为12月,又增加一个月份时,该公式将自动改变上一年的部分+1,使2012变成2013,如下图。
4.如果只保留一个日期列表,复制B列的数据,然后点击A列的鼠标右键,在弹出框中选择“123”如下图。
5.可以成功地将列B数据复制到列A,并删除列B数据,如下图。
收起
热心网友
回答时间:2022-03-26 08:57
用vba甚至不用管word的range就轻松搞定
将excel和word的模板放在同一个目录,以后按姓名生成不同的word文档
在excel那个工作表空的地方建个按钮控件,其脚本如下
Sub 按钮1_单击()
s_name = ActiveWorkbook.Name
s_name1 = ActiveSheet.Name
s_path = ThisWorkbook.Path
ls_01 = "word模板名"
Set objWordApp = CreateObject("Word.Application")
objWordApp.Visible = True
With Workbooks(s_name).Sheets(s_name1)
ln_02 = .Cells(1, 1).CurrentRegion.Rows.Count
for i=3 to ln_02
Set objDocument = objWordApp.Documents.Open(s_path + "\" + ls_01 + ".doc")
ls_02=.Cells( i,2).Value
objWordApp.Select
objWordApp.selection.MoveUp unit:=wdParagraph, count:=1, extend:=wdMove
rem 以上移动光标到开头
rem 以下填写每张通知的每一项,这里仅以填写编码为例
objWordApp.Selection.MoveDown Unit:=wdLine, Count:=2
rem 以上移动光标到第2行
objWordApp.Selection.MoveRight Unit:=wdCharacter, Count:=13
rem 以上移动光标到第13列
ln_03=lenb(trim(ls_02))
objWordApp.Selection.TypeText Text:=ls_02
rem 以上填写编码
objWordApp.Selection.Delete Unit:=wdCharacter, Count:=ln_03
rem 以上删除编码相同长度的空格
rem ''''''''''把各个要填的对应写好,缺点是行列要自己查
rem 以上填写每张通知的每一项,这里仅以填写编码为例
ls_02=.Cells( i,3).Value
objDocument.SaveAs Filename:=s_path + "\" + ls_02 + ".doc"
rem 以上以姓名保存word
objDocument.close
rem 以上关闭word
next
End With
End Sub
晕,所谓的word模板不是让你做dot,就是做一个设计好的空的doc文档。vba都写好了。按着查一下有几个地方要添加就好了,上面只写了填编码的。其实就是移动光标到哪行哪列,然后填写项目,然后删除对应多的空格。每一项都4步。
收起