适合基础学习VBA处理

'调用过程 Sub 使用() Dim 行, 列 '下面程序是 转换 第2行第5列到第2行第800列 '由于行一直在增加,所以实际并不会转换到原数据的800列 行 = 2 列 = 5 For 行 = 2 To 800 Step 1 Call 换行单元格转真实行(Cells(行, 列)) Next End Sub '过程 Sub 换行单元格转真实行(rng As Range) 'Dim rng As Range '处理的单元格 Dim str As String '消掉处理的单元格中所有换行符的文本 Dim i '处理的换行符个数 = 原单元格字符个数 - 处理后单元格字符个数 ( i 结果是多少 这个单元格就有 i+1 行) Dim 行数 '处理单元格里面有多少行 Dim rngcol rngcol = rng.Column '处理单元格在第几列 Dim rngstr As String rngstr = rng.Value '处理单元格的内容 str = Application.WorksheetFunction.Substitute(rngstr, "" & Chr(10) & "", "") i = VBA.Len(rng) - VBA.Len(str) '得到 单元格 里面 一共多少个 换行符 从而得到行数为i+1 If i > 0 Then '如果有换行符的话 行数 = i + 1 '得到行数 For i = 行数 To 2 Step -1 '有多少行循环多少次 Rows(rng.Row + 1).Insert '先在 处理的单元格下面插入一行 Cells(rng.Row + 1, rngcol) = Split(rngstr, "" & Chr(10) & "")(i - 1) '然后把最后一行内容给写进去,倒数第二行内容写进去…………第二行写进去 Next Cells(rng.Row, rngcol) = Split(rngstr, "" & Chr(10) & "")(0) '然后把第一行内容写到原位置 End If 'Split(字符串, 分隔符)(第几个) End Sub

Excel批量导入图片，通过VBA代码实现，有详细的代码注释。

1、将“Excel文件翻译（备注）.xla”文件放入到 C:\Users{你的windows用户名}\AppData\Roaming\Microsoft\AddIns 目录下 2、随便打开一个Excel，点击菜单：文件->选项->加载项->下面的“管理”“转到（G）” 弹出“加载项”选项卡 2.1 点击“浏览(B)” 弹出文件选择框 2.2 选择 C:\Users{你的windows用户名}\AppData\Roaming\Microsoft\AddIns\Excel文件翻译（备注）.xla文件 2.3 确认已勾选后点击“确定”即可 2.4 关闭Excel，再重新打开Excel（如果提示需要宏启用的，点击启用），在文件、…视图…的主菜单位置后面会出现一个“加载项”的菜单，里面就有“翻译到备注”的功能按钮了

我们拿从数据库导出来的数据做面板回归时原始数据往往不是按Stata面板数据格式排版的，这个代码能使下载到excel中的数据自动转化为stata面板数据的排版数据，里面附有详细的操作说明

需求： 表格中的某些列的内容属于保密内容，但表格又要放到公共区供不同人员浏览，需要对列设置权限，确保即能够共享信息，又能保护保密内容 实现思路及方案： 表格有隐藏列的功能，可以对不同人员浏览时，设置不同的列的隐藏，来避免保密信息被浏览 通过对表格进行保护（禁止设置列的格式），防止手工去除列的隐藏 通过设置登录用户的方法，来区别不同人员的查看、编辑权限 通过使用配置表的方法，实现对不同表，不同列的权限设置 对管理员设置最高权限，可以实现无限制地浏览和修改 利用VBA编程实现上述功能，实现打开、关闭前对权限的自动设置 使用快捷键调登录界面，正常情况下，打开文件时自动启动登录界面，没有用户名的可以取消登录，实现最低权限的浏览 文档可以放到WPS云上，供所有人员浏览（在WPS中打开，并启用宏，在浏览器中浏览时，无用户登录功能，只能最低权限浏览）

用VBA写的斗地主打谱工具，供vba新手学习参考。只要电脑装了excel就能用，可以随机洗牌、模拟打牌，也可以按固定残局来打谱

excel 将选中的区域的超链接转为图片

之前用金山表单收集内容 收集的内容金山表单可以直接生成实时同步的金山文档excel 工作上需要一个表单打印一个标签 金山文档没办法实现 所以用VBA写了个这个小玩意儿 用着还挺好用，现在天天都在用 由于工作场景的不同和收集内容的不同，应该没办法直接拿去使用 但是代码还是具有参考意义的，所以我把代码放上来，免费分享 使用条件：得有VBA功能的Excel 你需要做的更改：把需要打印的文件路径更改一下 我的使用场景： 金山表单收集-->自动汇集成的金山文档-->金山文档右上角的“WPS打开”按钮点击一下把云端数据自动下载到电脑端，然后直接关闭就行-->调出小工具输入打印的范围-->选择打印机-->打印成功 我的打印机打印 80*60的热敏标签 我留的有例行，如果要测试的话，把“打印标签”按钮事件里面的第一行Call 抓数据注释掉就行了

通过该VBA程序，EXCEL可以自动批量制作指定文件夹中的文件的超链接，十分快捷 方法： 1、将下载的小程序放到一个比较安全（不容易误删除）的文件夹中； 2、通过开始菜单打开EXCEL程序，点击选项——>加载项——>下方的管理加载项转到——>浏览（定位到下载的文件后点击确定） 3、重新通过EXCEL进入选项——>自定义工具栏——>常用命令下拉选择宏（将该小程序设置到excel工具栏中） 使用注意：excel单元格内容要与要关联的文件名一致（不包括扩展名），先选择要创建超链接的单元格，然后点击工具栏中的小程序，然后定位到文件所在的文件夹，然后点击确认。