Excel如何批量制作CSV数据表

天蝎艾米玉儿

天蝎艾米玉儿

2016-04-01 02:23

下面是个超简单的Excel如何批量制作CSV数据表教程,图老师小编精心挑选推荐,大家行行好,多给几个赞吧,小编吐血跪求~

Excel如何批量制作CSV数据表

   众所周知,Excel的功能十分强大,而其最核心的功能在于数据处理。熟练驾奴Excel,您的工作将充满快乐和自信。当您仅花上几分钟就完成了别人花上几天功夫才能完成的数据处理工作时,心中的那份喜悦只有您自己才能体会得到!下面给大家展示的是Excel批量制作数据表

Excel如何批量制作CSV数据表2

  目的

  1通过数据模板与VBA结合,批量制作CSV数据表,要求使用规则逐步递增的命名方式来命名批量制作出来的数据表,数据表的内容根据实际需求由最初的模板和提供的基础值自动生成。尽量减少手动操作,真正实现全自动!如图所示为批量制作出来的CSV数据表。

Excel如何批量制作CSV数据表 图老师
Excel如何批量制作CSV数据表4

  过程

  步骤一、编辑数据模板,只要A2和B2单元格发生变化,其它相应的单元格就会通过引用公式来更新数据;

Excel如何批量制作CSV数据表5
Excel如何批量制作CSV数据表6
Excel如何批量制作CSV数据表7

  步骤二、编辑好数据模板后,打开VBA编辑器,选择菜单工具宏Visual Basic 编辑器(快捷键为:Alt+F11);

Excel如何批量制作CSV数据表8
Excel如何批量制作CSV数据表9

  步骤三、插入用户窗体,在Visual Basic 编辑器菜单栏里选择插入用户窗体,然后编辑用户窗体(该窗体作为模板基础数据录入部分),控件的具体使用稍微复杂一些,这里就不作介绍啦;

Excel如何批量制作CSV数据表10
Excel如何批量制作CSV数据表11

  步骤四、编辑窗体和控件代码,右击UserForm1查看代码,在代码窗口录入相应的代码(由于这部分涉及的内容和步骤比较繁琐,只提供最终代码参考),代码如下:

  Private Sub CommandButton1_Click()

  Dim n As Long

  If TextBox1 "" And TextBox2 "" And TextBox3 "" And TextBox2 TextBox3 Then

  On Error Resume Next

  MkDir CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & TextBox1

  For n = 1 To (TextBox3 - TextBox2 + 1) / 10

  Sheets(1).Cells(2, 1).Value = TextBox1 & "-" & n

  Sheets(1).Cells(2, 2).Value = TextBox2 + 10 * (n - 1)

  ActiveWorkbook.SaveAs Filename:=CreateObject("WScript.Shell").SpecialFolders("Desktop") & "" & TextBox1 & "" & TextBox1 & "-" & n, FileFormat:=xlCSV, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False, CreateBackup:=False

  Next n

  Unload Me

  MsgBox "数据处理成功!", vbOKOnly + 64, "提示"

  Else

  MsgBox "请核对数据信息!", vbOKOnly + 64, "提示"

  TextBox1.SetFocus

  End If

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  Private Sub CommandButton2_Click()

  TextBox1 = ""

  TextBox2 = ""

  TextBox3 = ""

  TextBox1.SetFocus

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  Private Sub CommandButton3_Click()

  Unload Me

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  Private Sub TextBox1_Change()

  Dim i%, Str$

  With TextBox1

  For i = 1 To Len(.Text)

  Str = Mid(.Text, i, 1) '遍历文本框中输入的每一个字符。

  Select Case Str

  Case "a" To "z" '列出允许输入的字符。

  Case "A" To "Z" '列出允许输入的字符。

  Case Else

  Beep

  .Text = Replace(.Text, Str, "") '如果输入的不是允许的字符,则使用Replace函数替换成空白。

  End Select

  Next

  End With

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  Private Sub TextBox2_Change()

  Dim i%, Str$

  With TextBox2

  For i = 1 To Len(.Text)

  Str = Mid(.Text, i, 1) '遍历文本框中输入的每一个字符。

  Select Case Str

  Case "0" To "9" '列出允许输入的字符。

  Case Else

  Beep

  .Text = Replace(.Text, Str, "") '如果输入的不是允许的字符,则使用Replace函数替换成空白。

  End Select

  Next

  End With

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  Private Sub TextBox3_Change()

  Dim i%, Str$

  With TextBox3

  For i = 1 To Len(.Text)

  Str = Mid(.Text, i, 1) '遍历文本框中输入的每一个字符。

  Select Case Str

  Case "0" To "9" '列出允许输入的字符。

  Case Else

  Beep

  .Text = Replace(.Text, Str, "") '如果输入的不是允许的字符,则使用Replace函数替换成空白。

  End Select

  Next

  End With

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  编辑好窗体代码后,点击保存;

Excel如何批量制作CSV数据表12
Excel如何批量制作CSV数据表13

  步骤五、插入模块,该模块的作用是调出录入窗体(虽然窗体本身已经实现自动加载,但是不能实现二次自动加载),在Visual Basic 编辑器菜单栏里选择插入模块,写入代码:

  Sub 打开窗体()

  UserForm1.Show

  End Sub

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)

  模块代码录入完毕后,点击保存,然后关闭Visual Basic 编辑器;

Excel如何批量制作CSV数据表14

  步骤六、回到数据表,调出录入窗体,选择菜单工具宏宏(快捷键为:Alt+F8)选择打开窗体执行;

Excel如何批量制作CSV数据表15
Excel如何批量制作CSV数据表16

  步骤七、按规定要求,录入基础数据,然后点击确定(一旦确定,VBA代码马上执行,将在桌面新建一个名为Excel的文件夹,在Excel文件夹里批量创建10个CSV工作簿,名称依次为Excel-1至Excel-10,内容也相应变化),确认数据处理成功!;

Excel如何批量制作CSV数据表17
Excel如何批量制作CSV数据表18

  步骤八、在桌面找到批量创建的CSV数据表,验证结果!

(本文来源于图老师网站,更多请访问http://m.tulaoshi.com/ejc/)
Excel如何批量制作CSV数据表19
Excel如何批量制作CSV数据表20

  注意事项

  编辑代码的过程比较复杂,需要有足够的耐心,需要不断地去尝试和修改;

Excel如何批量制作CSV数据表1

  为了相关宏能正常运行,请把宏的安全性设置为最低级别。

如何为Excel批量加前缀或后缀

   在使用Excel表格工作时,我们很经常接触输入相同的前缀或者后缀的情况。这些前缀虽然简单,但逐个输入起来确实繁琐而枯燥,增加了工作量。这里和大家一起分享一个Excel技巧,让单元格在输入时自动添加前缀,或者快速修改增加原有文档的前缀。

如何为Excel批量加前缀或后缀  图老师

  操作步骤

  方法一:修改单元格格式。选择需要添前缀的单元格,打开单元格格式对话框,选择数字选项卡下的自定义。

如何为Excel批量加前缀或后缀2

  在右边的类型下输入 前缀@,如我要加的前缀是南京,则为南京@,添加为后缀是@南京。输入完毕点击确定。

如何为Excel批量加前缀或后缀3
如何为Excel批量加前缀或后缀4

  方法二:公式法。选择新的单元格,写入公式="前缀"&原内容单元格编号;或者= 原内容单元格编号& "后缀"。注意引号要在英文状态输入。(注:&输入方法为shift+7)

如何为Excel批量加前缀或后缀5

  完成一个后拖动右下角的句柄,即可批量操作。

如何为Excel批量加前缀或后缀6

  若要覆盖原内容,将新内容复制。在原内容上选择选择性粘贴,在弹出的对话框选择数值。点击确定,然后删除不需要的内容即可。

如何为Excel批量加前缀或后缀7
如何为Excel批量加前缀或后缀8
如何为Excel批量加前缀或后缀9

  注意事项

  法一:注意这里的前缀内容只是单元格的格式,不是输入的内容。

如何打开Excel2007代码编辑器窗口

   在Excel中,VBA宏可以批量快速的进行数据处理,可有效地提高工作效率,但当对宏代码进行修改时,需要Excel2007打开代码编辑器窗口。

如何打开Excel2007代码编辑器窗口  图老师

  操作步骤

  第一步、单击Excel2007窗口左上角的Office 按钮图标,在弹出的菜单中,单击EtulaoShi.comxcel选项按钮,如上图所示。

如何打开Excel2007代码编辑器窗口2

  第二步、在Excel选项对话框中,单击左侧常用分类,勾选在功能区显示"开发工具"选项卡项,单击确定按钮返回Excel2007主窗口,即可添加开发工具选项卡。

如何打开Excel2007代码编辑器窗口3

  第三步、单击开发工具菜单-Visual Basic图标

如何打开Excel2007代码编辑器窗口4

  第四步、Excel2007打开代码编辑器窗口,单击插入菜单-模块菜单项,即可插入默认的模块模块1,即可在右侧的VBA代码编辑器窗口输入VBA代码。

如何打开Excel2007代码编辑器窗口5

Excel如何快速删除大量空白行

   有时处理大量数据数据时,由于反反复复插入行,删除行而会留下来空白行。有时候,也会由于修改数据而留下空白的单元格。人们所需要做的就是批量的删除数据中存在的空白行。在删除行之前需要找到大量的空白行,也就是定位。效果图如下:

Excel如何快速删除大量空白行  图老师

  第一步、如上图,有几行为空白行,我们需要把它快速删除。首先全选数据,如图所示:

Excel如何快速删除大量空白行2

  第二步、此时,按F5键打开定位,点击定位条件按钮,选为空值。

Excel如何快速删除大量空白行3
Excel如何快速删除大量空白行4

  第三步、点击确定按钮此时,所有空值被选中。

Excel如何快速删除大量空白行5

  第四步、在选中空值上点击右键,删除,表行。

Excel如何快速删除大量空白行6

  完成,效果图如下。

Excel如何快速删除大量空白行7

Excel如何批量提取全部工作表名称公式

   在使用公式查询或汇总多工作表数据时经常需要用到整个工作簿所有工作表的名称,下面介绍如何用宏表函数GET.WORKBOOK来提取工作表名称。

Excel如何批量提取全部工作表名称公式  图老师

  提取工作表名称过程:

  Ctrl+F3调出定义名称对话框,或者点击-调出定义名称对话框。

Excel批量提取工作表名称公式4

  在框里输入一个定义名称(本例输入ShName),方便在工作表中引用。在处输入=GET.WORKBOOK(1),设置完毕后点击按钮。

Excel批量提取工作表名称公式5

  双击一个单元格,输入公式:=INDEX(ShName,ROW(A1)),这时就返回了包括工作簿名称的工作表名称。

Excel批量提取工作表名称公式6

  INDEX函数使用说明:

  INDEX(数组,第二参数)表示从数组中提取第几个元素。例如:INDEX({1,7,9},2)表示从{1,2,3}的数组里提取第2个元素,也就是7。

Excel批量提取工作表名称公式7

  将公式修改一下,将中括Tulaoshi.com号的部分去掉,只留下工作表名称。公式为:

  =REPLACE(INDEX(ShName,ROW(A1)),1,FIND("]",INDEX(ShName,ROW(A1))),"")

Excel批量提取工作表名称公式8

  下拉公式就可以看到顺序返回了所有工作表名称,这样就可以在其他函数中引用了。

  注意:工作簿中隐藏的工作表名称也会显示出来,本例隐藏了一个名称为合并单元格的工作表。

Excel批量提取工作表名称公式9

  如果是在2007版Excel中使用宏表函数,点击保存时会弹出下面的对话框:

Excel批量提取工作表名称公式10

  解决方案有两种:

  1)选择另存为97-2003版Excel格式,也就是扩展名为.xls的格式;

Excel批量提取工作表名称公式3

  2)选择另存为启用宏的工作簿。

Excel怎么做超链接

  Excel怎么做超链接,这个问题的解决方法有很多,但是简单快速且美观的的方法却不多,如果你想知道Excel超链接怎么做简单快速,在这里给大家介绍一种超级快速且美观的函数方法。

  操作步骤

  第一步、.打开Excel软件,这里给大家介绍两种快速启动Excel的方法。

  1、在桌面建立Excel图片,双击启动

  2、是按住Ctrl启动Excel,进入安全模式

Excel怎么做超链接1  图老师

  第二步、导入需要工作的超链接。确定需要工tulaoshi.com作的区域,设置好静态链接的的单元格格式,鼠标右键点击单元格,进入设置单元格格式按钮,对字体居中,颜色进行设置,当然这只是为啦美观,自己可以设置。

Excel怎么做超链接2
Excel怎么做超链接3

  第三步、.函数快速设置超级链接。手动单元格输入函数=hyperlink() ,这个英文代表超链接的意思,而后面的括号是确定哪一个单元格里面的内容要设置函数。笔者在这里设置的是单元格B2的内容超链接。如图所示

Excel怎么做超链接4

  第四步、.批量处理超链接。要想所有的连接都插入超链接的方法,把鼠标放置C2单元格的右下角,直到鼠标变成一个十字架的形状(当然我这里哟截图的话,鼠标变动看不到的,大家可以自己尝试一下),然后再按住Ctrl(ctrl的用法就是让所有的单元格函数按照C2的函数变动)往下拉,你所配置的B列单元格的超链接都会在相对应的C列单元格中出现。如图所示。

Excel怎么做超链接5

  第五步、.最麻烦的超链接添加。点击表格上面的超链接添加,就会弹出一个界面,上面有要显示的文字内容和地址这两项,这里的两项都添加连接就行了。如图所示,我添加百度的超链接。

Excel怎么做超链接6

如何利用Excel批量生成指定名称的文件夹

   批量生成指定名称的文件夹,很多人的是借助软件,其实利用excel加系统自带的记事本就可以做了。

  如图,把指定名称的文件夹名称输入到EXCEL。同时增加一个辅助列。

  在辅助列第1个单元格输入公式:="MD "&D12,并向下拖动。

  注意点:

  1、这里是D12单元格,你自己在操作的时候根据自己的情况。达到在所有单元格前增加MD 。

如何利用Excel批量生成指定名称的文件夹  图老师

  2、MD后面还要有一个空格哦。

Excel批量生成指定名称的文件夹2
Excel批量生成指定名称的文件夹3

  3、复制生成的辅助列。

Excel批量生成指定名称的文件夹4

  4、在要批量生成文件夹的位置,新建一个txt文本。

Excel批量生成指定名称的文件夹5

  5、在新建的一个文本里,粘贴辅助列后保存文件。

Excel批量生成指定名称的文件夹6

  6、在资源管理器里,在工具菜单下选择文件夹选项,在文件夹选项对话框,勾去隐藏已知文件类型的扩展名。

Excel批量生成指定名称的文件夹7
Excel批量生成指定名称的文件夹8

  7、把刚才的文本文件的扩展名txt修改成bat"。

Excel批量生成指定名称的文件夹9

  8、 双击这个文件,看一下效果,哈哈,是不是文件夹眨眼间就建好了。

Excel批量生成指定名称的文件夹10
展开更多 50%)
分享

猜你喜欢

Excel如何批量制作CSV数据表

excel
Excel如何批量制作CSV数据表

Excel教程:数据表分页汇总与批量打印

办公软件
Excel教程:数据表分页汇总与批量打印

s8lol主宰符文怎么配

英雄联盟 网络游戏
s8lol主宰符文怎么配

巧用IF函数合并Excel数据表

if函数 办公软件
巧用IF函数合并Excel数据表

如何锁定MYSQL数据表

MySQL mysql数据库
如何锁定MYSQL数据表

lol偷钱流符文搭配推荐

英雄联盟 网络游戏
lol偷钱流符文搭配推荐

如何修护MYSQL数据表

MySQL mysql数据库
如何修护MYSQL数据表

如何解决Excel数据表的记录重复问题

excel
如何解决Excel数据表的记录重复问题

lolAD刺客新符文搭配推荐

英雄联盟
lolAD刺客新符文搭配推荐

酷盘Android版如何将手机本地文件上传至酷盘

酷盘Android版如何将手机本地文件上传至酷盘

未保存的word文档如何恢复?找回电脑异常关机未保存的word文档的方法

未保存的word文档如何恢复?找回电脑异常关机未保存的word文档的方法
下拉加载更多内容 ↓