辣椒油的学习笔记

 今天我们来看看辣椒油平时学习的代码，其中有别人的也有他自己模仿的，也有他自己写的，我们一起来看看几个例子。

一、根据字符串的句号进行分列

主要是对于分列函数split的熟悉

Public Sub ttt()

Dim arr, brr, Tmp

Dim i&

arr = Range('A1').CurrentRegion

ReDim brr(1 To UBound(arr), 1 To 2)

For i = 1 To UBound(arr)

    Tmp = VBA.Split(arr(i, 1), '。')

    brr(i, 1) = Tmp(0)

    brr(i, 2) = Tmp(1)

Next i
Range('A1').Resize(UBound(brr), 2) = brr
End Sub

 

二、如何另类的分列每个字符

假如有这样一些数据，如何不用文本函数判断长度来进行每个字符间的分列，那么有个方法就是用到我们的format，我们一起来看看。

代码如下所示

今天的两个小例子学会了吗？