Excel如何批量录入相同数据

【 tulaoshi.com - excel 】

Excel如何批量录入相同数据

 　　操作步骤

　　第一步、选取需要录入相同数据的单元格区域;

　　第二步、在保持单元格区域被选取的状态下，直接录入数据，这是您会发现，最后一个被选取的单元格可以处于编辑状态;

　　第三步、数据录入完毕后，按住Ctrl+Enter，所有被选取的单元格均被刚才录入的数据所填充。

　　注意事项

　　整个过程必须保持所有需要录入相同数据的单元格处于被选取状态;

　　在使用Ctrl+Enter组合键时，必须是先按下Ctrl，后按下Enter。

如何批量修改Excel的错误数据

 　　在实际工作当中，人们时常会用一些EXCEL格式的申报表申报数tulaoshi据，比如个税申报，经常会遇到身份证号中校验位不正确或身份证号码长度不为15或18位字符的情况。而人们必须根据回馈的信息，逐一的修改错误的数据。少数错误，人们可以一个个修改;而如果是几十个以上，或上百个以上的话，就不可能逐一修改，因为这样会占用大量的时间，而这样的做法太死板。然而该如何解决这个问题呢。接下来共同探讨一下，如何批量修改错误数据?

　　操作步骤

　　第一步、以个税申报表为例，首先把回馈回来的错误的身份信息纳税人名称和身份证号码分别复制到新建excel的表1的A、B列。

　　第二步、然后打开原申报表，把身份信息纳税人名称和身份证号码分别复制到新建excel的表2的A、B列。

　　第三步、接下来在表2的C列插入序号。

　　第四步、然后在表2的D列输入函数VLOOKUP，通过该函数找出表2中错误的身份信息，具体在表2的D4中输入函数=VLOOKUP(A:A,表1!A:B,2,0)，然后向下复制公式。

　　第五步、然后在表2中通过筛选排序的方式把错误的身份证号码筛选出来，并且筛选在一起。

　　第六步、然后通过表2的D列筛选出来的错误身份证信息把表2的B列的错误信息修改正确。

　　第七步、然后通过表2的C列重新排序，恢复为原来的排序。

　　第八步、然后把表2的A、B列的正确信息分别复制回原申报表即可重新申报正确的个税信息。这样既能到迅速找到错误数据，而且节省了大量的时间。

Excel菜单栏和工具栏不见了怎么办

 　　Excel是办公一族的必备软件，当你打开Excel却发现excle菜单栏和工具栏不见了，那肯定很着急吧?这个问题很多朋友都遇到过，接下来，就为大家介绍一下解决方法。

　　如下图，菜单栏和工具栏都消失了：

　　1、打开一个excel文件，按ALT+F11，然后在打开的窗口中点击插入模块，如下图：

　　把下面的字体复制到对话框中：

　　Sub aaa()

　　Dim aa, bb As Boolean

　　aa = True

　　bb = False

　　Application.CommandBars("ply").Enabled = aa

　　'右键点工作表标签是否可用

　　Application.CommandBars("cell").Enabled = aa

　　'右键点单元格是否可用

　　Application.CommandBars("toolbar list").Enabled = aa

　　'右键点工具栏及视图-工具栏是否可用

　　Application.CommandBars("autocalculate").Enabled = aa

　　'右键点状态栏是否可用

　　Application.CommandBars("worksheet menu bar").Enabled = aa

　　Application.CommandBars(1).Enabled = aa

　　'以上两句的作用都是把菜单取消

　　Application.CommandBars(2).Enabled = aa

　　'暂时未知

　　Application.CommandBars(3).Enabled = aa

　　'常用工具栏是否可用

　　Application.CommandBars(3).Controls(3).Enabled = aa

　　'使常用工具栏中第三个保存是否可用

　　Application.CommandBars(4).Enabled = aa

　　'格式工具栏是否可用

　　Application.CommandBars(5).Enabled = aa

　　'暂时未知

　　Application.CommandBars(1).Enabled = aa

　　'恢复菜单可用

　　Application.CommandBars(1).Controls(1).Enabled = aa

　　'使菜单中的文件是否可用

　　Application.CommandBars("file").Controls("页面设置(&U)...").Enabled = aa

　　'菜单中的文件中的页面设置是否可用

　　Application.CommandBars(1).Controls(4).Enabled = aa

　　'菜单中的第四个插入是否可用

　　Application.CommandBars(1).Controls(4).Caption = "victor"

　　'更改名称

　　Application.CommandBars(1).Reset

　　'恢复菜单

　　Application.DisplayFormulaBar = aa

　　'编辑栏是否显示

　　Application.DisplayStatusBar = aa

　　'状态栏是否显示

　　ActiveWindow.DisplayHeadings = aa

　　'行号列标是否显示

　　ActiveWindow.DisplayWorkbookTabs = aa

　　'工作表标签是否显示

　　ActiveWindow.DisplayHorizontalScrollBar = aa

　　'水平滚动条是否显示

　　ActiveWindow.DisplayVerticalScrollBar = aa(图老师整理)

　　'垂直滚动条是否显示

　　End Sub

　　好了，然后按F5，运行宏aaa，然后关闭，回到excel中就可以看到工具栏等都又出现了。