常用功能加载宏——分行
时间:2022-07-22
本文章向大家介绍常用功能加载宏——分行,主要内容包括其使用实例、应用技巧、基本知识点总结和需要注意事项,具有一定的参考价值,需要的朋友可以参考一下。
Excel里有个分列的功能,能根据单元格中指定的符号,把单元格拆分为多个单元格,并按列存放。
有时候会碰上需要按指定的符号,将某些单元格拆分为多行,并且同一行的其他单元格完全复制的情况:
首先在customUI.xml中增加代码:
<button id="rbbtnSplitRows" label="分行 " size="large" onAction="rbbtnSplitRows" imageMso="CreateDiagram" />
回调函数:
Sub rbbtnSplitRows(control As IRibbonControl)
Call MRange.SplitRows
End Sub
函数实现:
Private Type SplitDataStruct
rng As Range '要处理的单元格
StrSplit As String '要根据什么字符来拆分
FlagPre As Boolean '是否保持前缀
End Type
Sub SplitRows()
Dim d As SplitDataStruct
Dim rngSelect As Range
If VBA.TypeName(Selection) <> "Range" Then
Exit Sub
End If
Set rngSelect = Selection
If rngSelect.Columns.Count > 1 Then
MsgBox "请选择单列。"
Exit Sub
End If
Dim kCells As Long, i As Long
kCells = rngSelect.Cells.Count
'这里主要是为了方便自动输入一些经常碰到的要拆分的字符
Dim strDefault As String
strDefault = "/"
Dim strRng As String
strRng = rngSelect.Cells(1).Value
If VBA.InStr(strRng, " ") Then
strDefault = " "
ElseIf VBA.InStr(strRng, "、") Then
strDefault = "、"
End If
d.StrSplit = Application.InputBox("请输入拆分字符。", "输入", strDefault, Type:=2)
If VBA.Len(d.StrSplit) Then
If d.StrSplit <> "False" Then
If VBA.MsgBox("插入时是否保持前缀?" & vbNewLine & vbNewLine & "如ABCDEFG1/2,拆分后是ABCDEFG1和ABCDEFG2,ABCDEFG为前缀", vbYesNo) = vbYes Then
d.FlagPre = True
Else
d.FlagPre = False
End If
'因为要插入行,所以从最底下的单元格往上处理
For i = kCells To 1 Step -1
Set d.rng = rngSelect.Cells(i)
SplitRngToRows d
Next
End If
End If
End Sub
Private Function SplitRngToRows(d As SplitDataStruct) As Long
Dim strValue As String, strPre As String
Dim tmp, k As Long, i As Long, flag As Boolean
strValue = VBA.CStr(d.rng.Value)
If VBA.InStr(strValue, d.StrSplit) Then
tmp = VBA.Split(strValue, d.StrSplit)
k = UBound(tmp) '需要插入的行,本身有一行,tmp下标是0,所以要插入的是k行
d.rng.Offset(1, 0).Resize(k, 1).EntireRow.Insert xlShiftDown
'其他列的数据都复制保持一致
d.rng.EntireRow.Copy d.rng.Offset(1, 0).Resize(k, 1).EntireRow
d.rng.Value = tmp(0)
If d.FlagPre Then
strPre = VBA.Left$(tmp(0), VBA.Len(tmp(0)) - VBA.Len(tmp(1)))
End If
For i = 1 To k
If d.FlagPre Then
d.rng.Offset(i, 0).Value = strPre & VBA.CStr(tmp(i))
Else
d.rng.Offset(i, 0).Value = tmp(i)
End If
Next
End If
End Function
- 使用Jpeglib
- 赋值运算符函数__from <剑指Offer>
- 从static变量导出问题解析 __declspec(dllexport) 和 __declspec(dllimport)的作用
- php实现SESSION跨域
- 使用cJSON解析JSON字符串
- 逻辑回归 | TensorFlow深度学习笔记
- MakeSureDirectoryPathExists与CreateDirectory的区别
- 粗略的物体碰撞预测及检测
- 讨厌算法的程序员 1 | 插入排序
- FFmpeg菜鸡互啄#第6篇#音频帧格式转换(重采样)
- TF.Learn 手写文字识别
- PHP中的防御性编程
- Ray-AABB交叉检测算法
- javascript里的sleep()方法
- JavaScript 教程
- JavaScript 编辑工具
- JavaScript 与HTML
- JavaScript 与Java
- JavaScript 数据结构
- JavaScript 基本数据类型
- JavaScript 特殊数据类型
- JavaScript 运算符
- JavaScript typeof 运算符
- JavaScript 表达式
- JavaScript 类型转换
- JavaScript 基本语法
- JavaScript 注释
- Javascript 基本处理流程
- Javascript 选择结构
- Javascript if 语句
- Javascript if 语句的嵌套
- Javascript switch 语句
- Javascript 循环结构
- Javascript 循环结构实例
- Javascript 跳转语句
- Javascript 控制语句总结
- Javascript 函数介绍
- Javascript 函数的定义
- Javascript 函数调用
- Javascript 几种特殊的函数
- JavaScript 内置函数简介
- Javascript eval() 函数
- Javascript isFinite() 函数
- Javascript isNaN() 函数
- parseInt() 与 parseFloat()
- escape() 与 unescape()
- Javascript 字符串介绍
- Javascript length属性
- javascript 字符串函数
- Javascript 日期对象简介
- Javascript 日期对象用途
- Date 对象属性和方法
- Javascript 数组是什么
- Javascript 创建数组
- Javascript 数组赋值与取值
- Javascript 数组属性和方法
- tensorflow 使用CPU而不使用GPU的问题解决
- Python图像灰度变换及图像数组操作
- 典型算法的Python实现
- Spring是如何解决循环依赖的
- Python将两个列表转换为字典
- 三、基于promise封装属于自己的Ajax库
- 数据分析 常见异常及解决办法(一)
- Python数据分析实战(2)使用Pandas进行数据分析
- 【redis】redis内存管理、淘汰机制、内存优化
- 如何防止网站被扒的解决方法!
- 【python-面试题53-循环排序】寻找缺失的数
- 【python-leetcode42-区间合并】区间列表的交集
- 【python-leetcode202-快慢指针】快乐数
- vuejs之结合使用vue+element-ui搭建后台管理页面
- 【python-leetcode142-快慢指针】环形链表2