Question

如何是excel的数据在原数据基础上变化，比如整体加1

Answer 1

数据在原数据基础上变化，比如整体加1的方法。

如下参考：

1.以excel2010版本为例，在下面的图中添加一个月的日期，如下图。

2.在B2单元格中输入日期函数=日期(年(A1)，月(A1)+1，日(A1))如下图。

3.但是，当当前月份为12月，又增加一个月份时，该公式将自动改变上一年的部分+1，使2012变成2013，如下图。

4.如果只保留一个日期列表，复制B列的数据，然后点击A列的鼠标右键，在弹出框中选择“123”如下图。

5.可以成功地将列B数据复制到列A，并删除列B数据，如下图。

Answer 2

使用Data.olllo数据助手，很简单的操作就可以解决问题：

1、打开文件；

2、点击”增加新列“；

3、按照自己的需求加减乘除，或者对字符串添加字头，字尾，做合并等等，点击确定；

4、存储，搞定。

Answer 3

用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步。

Answer 4

在空白单元格里输入1，然后复制。再选中你要变化的所有数据，单击右键-选择性粘贴-运算项里选“加”，然后确定就行了。

其实想要加减乘除的方法一样，加减个数和乘除倍数由你自己设（就空白单元格里那个数字）。

Answer 5

在一空单元格输入1并复制它，选中原数据，再右击选中的→选择性粘贴→加→确定。