mysql 横向合并结果_简单实用的自定义函数,秒杀数据合并与拆分

分享一个自定义函数,虽然3句代码,但很方便! 希望能在需要的时候助你一臂之力! [注]:此代码需要放在标准模块里。
合并文本的函数: 971def8dd8c2c2e3d7d4ce794a533087.gif 代码解析:
'↓合并字符串 'Rng:单元格区域 ,JoinStr:用什么符号连接文本 'WorksheetFunction.Transpose 工作表函数 将二维数组转一维 'VBA.Join 用于合并字符串(合并的一维数组,用什么连接) 'FunJoin 函数名 = 结果 【必须】 Function FunJoin(Rng As Range, JoinStr As String) Dim Arr     Arr = WorksheetFunction.Transpose(Rng)     '↓VBA.Join 可以理解为 将一维数组的内容连接起来     'arr 要连接的一维数组     'JoinStr 用什么字符来连接     FunJoin = VBA.Join(Arr, JoinStr) End Function


分割字符串: 763155552e75d895ad896c88d99af4dd.gif 代码解析:
'↓分割字符串 'Rng 要分割单元格 选择单元格要绝对引用 'Rng2 要填充的单元格 取该单元格的行 有用处 'SplitStr 以什么字符分割 'vba.Split 字符串分割(要分割的字符串,以什么字符分割)返回一维数组 'FunSplit 函数名=结果                              Function FunSplit(Rng As Range, Rng2 As Range, _     SplitStr As String)     Dim Arr     '↓字符串分割返回一维数组     ’rng :绝对引用的单元格     ' Splist 以什么字符分割 如、     Arr = VBA.Split(Rng, SplitStr)          '↓返回arr一维数组中的第几个     '这里用分割单元格的下一行 减去 要分割的单元格(绝对引用)的行     '向下填充依次是 0 1 2 3  ……     FunSplit = Arr(Rng2.Row - Rng.Row)'纵向填充          'FunSplit = Arr(Rng2.Column - Rng.Column) '横向填充 End Function

优化技巧(1): 灵活运用,横向填充:
Function FunSplit(Rng As Range, Rng2 As Range,  _     SplitStr As String)     Dim Arr        Arr = VBA.Split(Rng, SplitStr)      '↓横向填充     FunSplit = Arr(Rng2.Column - Rng.Column) End Function
34ef3a8e23976d8fa9c4db8a1fdb1a59.gif
优化技巧(2): 灵活运用,横纵填充: 代码解析:
Function FunSplit(Rng As Range, Rng2 As Range,  _     SplitStr As String)     Dim Arr        Arr = VBA.Split(Rng, SplitStr)     If Rng.Row = Rng2.Row Then'          '↓横向填充         FunSplit = Arr(Rng2.Column - Rng.Column)      Else         FunSplit = Arr(Rng2.Row - Rng.Row)'纵向填充     End If  End Function
e81cad92923d342716307c2889825e64.gif    
 '工作表函数(也可以理解为vba版的Excel函数)与vba代码有机结合,也许会更方便。     '[合并|分割]文本的方法很多,可以用Excel自带函数完成(可能会很复杂)、也可以用Word文档替换段落标记完成(相对简单)。 图文制作:赵中山
  • 0
    点赞
  • 1
    收藏
    觉得还不错? 一键收藏
  • 0
    评论

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值