1.VBA的背景设置

1.1 设置【R1C1】——使用数字表示列号,行号

【文件】——【选项】——【公式】——【R1C1】

VBA01

1.2显示【开发工具】菜单

【文件】——【选项】——【自定义功能区】——【开发工具】

vba02

1.3另存为【启用宏的工作簿】——Excel 2010有一个类型的文件【启用宏的工作簿】(.xlsm)——可以保存VBA程序代码

VBA03

2.问题描述

  • 【i表】从2到8行,姓名位于10列;
  • 【j表】从2到18行,姓名位于3列;
  • 目标是查找,【i表】中哪些行在【j表】中,哪些不在

vba04

3.VBA程序编写

3.1插入【模块】和【过程】

点击菜单【开发工具】——【Visual Basic】

在VBA界面,点击【插入】——【模块】

在VBA界面,点击【插入】——【过程】

在弹出窗口,输入过程名字——例如【student】

vba05

vba06

3.2输入程序语句

for i=2 to 8

        for j=2 to 18

               if cells(i,10).value =cells(j,3).value  then

                      cells(i,12).value =cells(j,2).value

               endif

        next j

next i

vba07

vba08

 

1.表格转换为文本

1.1复制Excel的1列文本,选择性粘贴,转换为1行文本,并复制到word文档

excelword01

excelword02

 

 

excelword03

excelword04

1.2Excel 2010中找到【转换为文本】按钮

  • 【文件】——>【选项】——>【自定义功能区】——>【所有命令】
  • 找到【转换为文本】转换为文本,然后【新建选项卡】
  • 将【转换为文本】图标——添加到【新建选项卡】——【新建组】
  • 可以给【新建选项卡】、【新建组】改名字

excelword05

 

1.3转换为文本

选中复制到word中的表格,点击菜单【新建选项卡】——>【新建组】——>【转换为文本】

excelword06

 

在弹出的对话框,选择【其他字符】,输入目标分隔符号,例如中文顿号或分号

excelword07

excelword08

 


2.文本转换为表格

  • 选中文本
  • 点击菜单【插入】——>【表格】——>【文本转换为表格】
  • 在弹出的对话框,选择【其他字符】,输入文本中的分隔符号
  • 转换为表格的文本可以复制到Excel中继续编辑(转置等)

wordexcel01

wordexcel02

wordexcel03