Range #

// 选择A1:A10单元格
let range = Application.Range('A1:A10')
// 把A1:A10的值设为对应行号
for (let i = 1; i <= 10; i++) {
  range.Item(i).Value = i.toString()
}
// 打印
printText(range) // 1...10
// 给单元格加上前缀和后缀
range.Each(cell => {
  cell.Value = 'prefix_' + cell.Text + '_suffix'
})
printText(range) //prefix_1_suffix...prefix_10_suffix

function printText(r) {
  r.Each(cell => {
    console.log(cell.Text)
  })
}

// 默认为单元格的Range对象，Range.Count等价于Range.Cells.Count
let range = Application.Range('A1:B2')
console.log(range.Count) // 4
console.log(range.Cells.Count) // 4
console.log(range.Rows.Count) // 2
console.log(range.Columns.Count) // 2

// 区域对象
let range = Application.Range('A1')

// 【只读】读取单元格格式化文本
console.log(range.Text)

// 修改单元格的内容，Text是只读的，修改需要用Value
range.Value = 'NewVaule'
console.log(range.Text) // NewValue

// Value
let range = Application.Range('A1')

range.Value = 'A1'
// 打印A1单元格数据
console.log(range.Value) // A1

range = Range('A1:B2')

// 给A1到B2区域赋值
range.Value = 'WebOffice'

// 打印A1到B2单元格数据
console.log(range.Value) // [["WebOffice","WebOffice"],["WebOffice","WebOffice"]]

// 批量赋值
range.Value = [
  ['A1', 'B1'],
  ['A2', 'B2']
]

// 打印A1到B2单元格数据
console.log(range.Value) // [["A1","B1"],["A2","B2"]]

// 获取FormatConditions对象
const formatConditions = Range('A:A').FormatConditions
// 获取条件格式对象数量
const count = formatConditions.Count

console.log(count)

// 设置A1=1,B1=2
Application.Range('A1').Value = '1'
Application.Range('B1').Value = '2'

// 设置A2单元格的公式: =A1+B1
const range = Application.Range('A2')
range.Formula = '=A1+B1'
// 读取A2单元格的值: 3
console.log(range.Text) // 3
// 读取A2单元格的公式: =A1+B1
console.log(range.Formula) // =A1+B1

let range = Application.Range('A1:B2')

// 设置A1到B2的单元格的值: 100
range.FormulaArray = '=Sum(A1:C3)'

range.Each(function (item) {
  console.log(item.Text) //=Sum(A1:C3)，=Sum(A1:C3)，=Sum(A1:C3)，=Sum(A1:C3)
})

// 区域对象
let range = Application.Range('A1')

// 获取区域数字格式
console.log('当前区域数字格式：', range.NumberFormat) //当前区域数字格式： G/通用格式

// 设置区域数字格式为文本
range.NumberFormat = '@'
console.log('当前区域数字格式：', range.NumberFormat) //当前区域数字格式： @

// 区域对象
let range = Application.Range('A1')

// 获取整列
let entireColumn = range.EntireColumn

// 隐藏该列
entireColumn.Hidden = true

// 内部属性对象
let interior = Application.Range('A1').Interior

// 获取内部颜色
console.log(interior.Color) // 16777215

// 设置内部颜色为红色
interior.Color = RGB(255, 0, 0)

// 区域对象
let range = Application.Range('A1')

// 打印对齐方式
console.log(range.HorizontalAlignment) // 1

// 设置对齐方式：居中
range.HorizontalAlignment = Application.Enum.XlHAlign.xlHAlignCenter

// 打印对齐方式
console.log(range.HorizontalAlignment) // -4108，即居中枚举值

// 区域对象
let range = Application.Range('A1')

// 设置对齐方式：底部对齐
range.VerticalAlignment = Application.Enum.XlVAlign.xlVAlignBottom

// 获取对齐方式
console.log(range.VerticalAlignment) //-4107，即向下垂直对齐方式枚举值

// 区域对象
let range = Application.Range('A1')

// 写入值到单元格中
console.log(range.IndentLevel) // 0
range.IndentLevel = 10
console.log(range.IndentLevel) // 10

// 区域对象
let range = Application.Range('A1')
// 获取区域自动换行
console.log('区域是否自动换行：', range.WrapText) // true
range.WrapText = false
console.log('区域是否自动换行：', range.WrapText) // false

// 区域对象
let range = Application.Range('A1:D2')
// 合并单元格
range.Merge()
// 将该合并区域值设置为merge
range.MergeArea.Value = 'merge'

// 区域对象
let range = Application.Range('A1:D2')
// 合并单元格
range.Merge()
// 区域内是否存在合并的单元格
console.log(range.MergeCells) // true

// 区域对象
let range = Application.Range('A1:B2')

// 单元格对象
let cells = range.Cells

// 取第一个单元格
let cell = cells.Item(1)
console.log(cell.Address()) // $A$1

// A1:B2最一共有2行，因此返回2
console.log(Application.Range('A1:B2').Rows.Count) // 2

// A1:D4最一共有4行，因此返回4
console.log(Application.Range('A1:D4').Rows.Count) // 4

// A1:B2最一共有2列，因此返回2
console.log(Application.Range('A1:B2').Columns.Count) // 2

// A1:D4最一共有4列，因此返回4
console.log(Application.Range('A1:D4').Columns.Count) // 4

// 一行默认长度为16384
console.log(Application.Range('A1').EntireRow.Count) // 16384

// 两行
console.log(Application.Range('A1:B2').EntireRow.Count) // 32768

// 一列默认长度为1048576
console.log(Application.Range('A1').EntireColumn.Count) // 1048576

// 两列
console.log(Application.Range('A1:B2').EntireColumn.Count) // 2097152

let range = Application.Range('A1:D4')
// A1:D4第一行是1行，因此返回1
console.log(range.Row) // 1

let range = Application.Range('A1:D4')
// A1:D4最后一行是4行，因此返回4
console.log(range.RowEnd) // 4

let range = Application.Range('A1:D4')
// A1:D4最左列是A列，因此返回1
console.log(range.Column) // 1

let range = Application.Range('A1:D4')
// A1:D4最右列是D列，因此返回4
console.log(range.ColumnEnd) // 4

// 边框对象
let borders = Application.Range('A1').Borders

// 将A1的左上角到右下角的边框颜色设置为红色
borders.Item(Application.Enum.XlBordersIndex.xlDiagonalDown).Color = '#FF0000'

// 边框对象
let borders = Application.Range('A1').Borders

// 将A1的左上角到右下角的边框颜色设置为黄色
borders.Item(Application.Enum.XlBordersIndex.xlDiagonalDown).Color = '#FFFF00'

// 为B2单元格设置红色虚线
Range('B2').BorderAround(xlDash, xlHairline, '#ff0000')
// 为C3单元格设置绿色点划相间线
Range('C3').BorderAround(xlDashDot, xlHairline, '#00ff00')

// 区域对象
let range = Application.Range('A1:D2')

// 编辑选区单元格
range.Each(function (item) {
  //打印单元格的地址
  console.log(item.Address()) // $A$1...$D$2
})

// 区域对象
const range = Application.Range('A1:D2')
// 区域子项：B2
console.log(range.Item(2, 2).Address()) //$B$2

// 区域对象
let range = Application.Range('A1:D2')
// 区域子项：B2
console.log(range.Address()) //$A$1:$D$2
// 对指定区域进行偏移
let newRange = range.Offset(2, 2)
// 区域子项：B2
console.log(newRange.Address()) //$C$3:$F$4

// 区域对象
let range = Application.Range('A1:D2')
// 把所有小山全部替换成大山
range.Replace('小山', '大山', xlPart)
// 单元格内容为小山的单元格替换成大山
range.Replace('小山', '大山', xlWhole)
// 把JinXiaoShan替换成金小山，区分大小写
range.Replace('JinXiaoShan', '金小山', xlPart, xlByRows, true)
// 把JinXiaoShan替换成金小山，不区分大小写
range.Replace('JinXiaoShan', '金小山', xlPart, xlByRows, false)
// 把JinXiaoShan替换成金小山，区分全角半角
range.Replace('JinXiaoShan', '金小山', xlPart, xlByRows, true, true)
// 把JinXiaoShan替换成金小山，不区分全角半角
range.Replace('JinXiaoShan', '金小山', xlPart, xlByRows, true, false)

// 区域对象
let range = Application.Range('B5:D10')
// 选择区域的所有行并删除，例子删除5-10行
range.EntireRow.Delete()

let range = Application.Range('B5:D10')
// 选择区域的所有行并删除，例子删除2-4列
range.EntireColumn.Delete()

let range = Application.Range('B5:D10')
// 选择区域的所有行并在最上行新增一行，例子在第5行上方插入一行，原5行下移为6行
range.EntireRow.Insert()

let range = Application.Range('B5:D10')
// 选择区域的所有列并在最左列新增一列，例子在第2列左侧插入一列，原2列右移为3列
range.EntireColumn.Insert()

// 获取E1单元格
const range = Range('E1')
// 向目标单元格插入图片
range.InsertImage(
  'data:image/png;base64,iVBORw0KGgoAAAANSUhEUgAAACAAAAAgCAMAAABEpIrGAAACH1BMVEUAAAA9kP8mpv9Fv/8QT94TXeQAfv8trP0xr/0VUdoAcv8LgPs1sf4AgP4QUuURTuEVl/ksq/wAg/84tf4NUt80sf0bnPsPUuAAYfsAgP4UTtYAY/8GXPQRkv1Jxv8AZP86tv9Bvv9Gv/9Atv8KiPUOVesAZ+wbS8wUl/kjo/sAYv8PVekjovxBu/8AY/8trPxCu/8AW/AAcvAxsP0npvsYTdElo/oQT9o+uP8AYv8KVOIHdugAYfwAfPwbfe49uf4XmfkcdOopo/oAYv86tf4AYf8TT9cZaeYVTdUJVOUcnvsAYv8Agv9Iwv8AYv9Jwf8bSs0gofoAY/8Ag/9Gv/8en/oAYf9Fv/8AWuQZS80AdO5BvP8AYv9DvP8Umfo9uv8LVOUAgf8amfk/uf8AY/8Ag/8Ahf8TUdgVT9UNWOknov8trPwxr/wmpvspqfs1sv0io/s5tf0AgP8bnfoMV+4AYPoAYv8AYf4AYfwAe/sen/oAd/gAXvYAff0LW/MLWfEOUN0PT9oSTtZAu/49uP0qqfweoPoXmvkAdPUAXPIAcfEKUuIWTNIXS88KXPYAWusOVeoPVOkPUuYQUeQQT+IMUeAUTdMZSs09uP4Aa+kAWOgAaeQIVOQIU+QAV+MRTd8STd0RTtgSl/kAW+8NWO8Abu0AbuwBZNsAg/8AYPwAc/MIVecAZuEAVeAAWt8AZN0JgvAIfOsJV+sTVuIAU9qil9AQAAAAa3RSTlMAAwb++A3+bkkkGxL8+Pf36tnTubCYjol4dmVjRjEvLysZFA7+/Pv6+fj39/b19fPw8O/u7Ovq6Ofn5+Xj4uDa2trZ1dPS0s/Ny7+9vLi4trapoqGgoJ2XkI+KgoJycGRhX1BNS0pHQj06IcCB3jkAAAIBSURBVDjLdZCHctpAFEWfCMU1ce8tTu+99957770nJFGwkE1sgyMTAginYbkAIQSD494+0G+ltTAacWZnNLt7dO/Og3Tqzl2og8wsvroAudEI+iy5s+6LzMZ7Bp1r5sFOQegRenAJwoEnoCXr6Mc0ihvSrhuK32vJK21Mva00760OWyz0KZYNbzJQmKXUF1o7rZ24rGngweETIGOwbH2nw/ZDUaM6grJVHzSs3R+NoqDy+lKLuwWX2618r03/QRalhNzbewo+qZyuZX4TVMFQubm3f3xy5VeZg49xsL8IC+mUH+1zeLyJ3pHkRCwWK7hvIGc/CYrwvIhtbXZ4hgYwJLm0LFf56QdhDRAq8wdZMypD3kT/SBJo6nfCMmWTc2WQlUO8GDIn2GSAUnuWGERJpIS4LR4HlWdFNITua9pl5s3h5vJ81tzscAAhuyTc3kZQ51CxqasvMmDGENyZyo1BX2iqLRAI0L7qvU2fv6Ex5mVbgana4XIGfb7QsI0KNcc4O4/Gv67I6Jjn5cmOvy4nGuFwaFipqFjN2YlBQkZn/N0dxAhiSfjUKzqHyxwq/0lIX0T0d6OAGb7dD0Gl/gzH8UqN6JcNp7HcBPN5esTO8U2oSCIpcZVkgwamepedxxpJROP4C9DBdHc9vlWSxG1VDOiTc53jpRW3TJCZ+vMXNeWzDz4DoNZyqecAAAAASUVORK5CYII='
)

const range = Application.Range('A1:D2')
// 合并单元格
range.Merge()

const range = Application.Range('A1:D2')

// 取消合并单元格
range.UnMerge()

// 区域对象
let range = Application.Range('A1')

// 获取宏语言的区域引用的 String 值
console.log('address1：', range.Address())

console.log('address2：', range.Address(false, false))

console.log(
  'address3：',
  range.Address(true, true, Application.Enum.XlReferenceStyle.xlR1C1)
)

let range = Application.Range('A1')
// 给 A1 区域添加评论
range.AddComment('WebOffice')

let range = Application.Range('A1')
// 清除区域的评论
range.ClearComments()

const range = Range('A1:B2')
range.Value = [
  ['A1', 'B1'],
  ['A2', 'B2']
]
range.Clear()
console.log(range.Value) //[["",""],["",""]]

let range = Application.Range('A1')
// 清除区域的内容
range.ClearContents()

let range = Application.Range('A1')
// 清除区域的样式
range.ClearFormats()

let range = Application.Range('A1')
// 清除区域的超链接样式
range.ClearHyperlinks()

// 区域对象
let range = Application.Range('A1:D2')

// 第二块区域对象
let newRange = Application.Range('A1:B4')

// 判断是否重叠
console.log(range.Contain(newRange))

// 复制A1
Range('A1').Copy()
// 粘贴到B1
Range('B1').PasteSpecial()

// 将A1区域的数据粘贴到A2区域
Range('A1').Cut(Range('A2'))

Range('B1').Copy()
Range('A1').PasteSpecial(xlPasteValues)

Range('A1:B2').Copy()
Range('C1:D2').PasteSpecial(xlPasteFormats)

Range('A1:B2').Copy()
Range('A3:B4').PasteSpecial(xlPasteAll)

Range('A1:B2').Copy()
Range('C1:D2').PasteSpecial(
  xlPasteValues,
  xlPasteSpecialOperationNone,
  false,
  true
)

const range = Range('A1:B2')
range.Value = [
  ['A1', 'B1'],
  ['A2', 'B2']
]
range.FillLeft()
console.log(range.Value) // [["B1","B1"],["B2","B2"]]

const range = Range('A1:B2')
range.Value = [
  ['A1', 'B1'],
  ['A2', 'B2']
]
range.FillRight()
console.log(range.Value) // [["A1","A1"],["A2","A2"]]

const range = Range('A1:B2')
range.Value = [
  ['A1', 'B1'],
  ['A2', 'B2']
]
range.FillDown()
console.log(range.Value) // [["A1","B1"],["A1","B1"]]

const range = Range('A1:B2')
range.Value = [
  ['A1', 'B1'],
  ['A2', 'B2']
]
range.FillUp()
console.log(range.Value) //[["A2","B2"],["A2","B2"]]

// 区域对象
let range = Application.Range('A1')
range.Value = 1
// 要填充的单元格
let fillRange = Application.Range('A1:A20')
// 对指定区域中的单元格执行自动填充
range.AutoFill(fillRange)
fillRange.Each(item => {
  console.log(item.Text()) // 自动填充为：1,2,3,4...20
})

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域B列
let filterField = 2
// 获取筛选的数据区域
const filterColumnRange = filterRange.Columns(filterField)
// 计算数据区域的行数，需要减去表头
const filterRangeCount = filterColumnRange.Rows.Count - 1
// 获取后11名数据
const bottom11Value = 11
// 数据区域中可能没有11行数据
const bottomNum =
  filterRangeCount < bottom11Value ? filterRangeCount : bottom11Value
// 获取筛选的数据里第11小的值
let bottom11 = WorksheetFunction.Small(filterColumnRange, bottomNum)
// 应用筛选
filterRange.AutoFilter(filterField, '<=' + bottom11)

// 选择筛选区域为已使用的区域
const filterRange = ActiveSheet.UsedRange
// 设置筛选第1列
const filterColumn1 = 1
// 设置筛选值为"1班"
let filterValue = '1班'
// 应用筛选
filterRange.AutoFilter(filterColumn1, filterValue)
// 选择要筛选的列号为第5列
const filterColumn2 = 5
// 选择筛选的值为小于"60"
filterValue = '<60'
// 应用筛选
filterRange.AutoFilter(filterColumn2, filterValue)
// 获取除标题行外的数据区域
const dataRange = ActiveSheet.UsedRange.Offset(1).Resize(
  ActiveSheet.UsedRange.Rows.Count - 1
)
// 定义列的区域
const columnRange = dataRange.Columns(filterColumn2)
// 获取筛选后显示的数据
const visibleRange = columnRange.SpecialCells(xlCellTypeVisible)
// 定义颜色红色
const redColor = RGB(255, 0, 0)
// 设置颜色为红色
visibleRange.Interior.Color = redColor
// 清除第5列的筛选条件
filterRange.AutoFilter(filterColumn2)
// 选择筛选的值为大于"90"
const filterValue2 = '>90'
// 应用筛选
filterRange.AutoFilter(filterColumn2, filterValue2)
// 获取筛选后显示的数据
const visibleRange2 = columnRange.SpecialCells(xlCellTypeVisible)
// 定义颜色绿色
const greenColor = RGB(0, 255, 0)
// 设置颜色为绿色
visibleRange2.Interior.Color = greenColor
// 清除第1列的筛选条件
filterRange.AutoFilter(filterColumn1)
// 清除第5列筛选条件
filterRange.AutoFilter(filterColumn2)

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域A列
let filterField = 1
// 定义日期筛选时间
let criteria = new Array()
// 定义筛选年、月、日的枚举值
const FilterDateTimeEnum = { YEAR: 0, MONTH: 1, DAY: 2 }
// 增加筛选日期为2023年
criteria.push(FilterDateTimeEnum.DAY, '2023/4/10')
// 增加筛选日期为2022年12月
criteria.push(FilterDateTimeEnum.MONTH, '2022/12/1')
// 应用筛选
filterRange.AutoFilter(filterField, undefined, xlFilterValues, criteria)
// 定义筛选区域为C列
filterField = 3
// 设置筛选条件为大于10000
let criteria2 = '>10000'
// 应用筛选
filterRange.AutoFilter(filterField, criteria2)

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域A列
let filterField = 1
// 定义日期筛选时间
let criteria = new Array()
// 定义筛选年、月、日的枚举值
const FilterDateTimeEnum = { YEAR: 0, MONTH: 1, DAY: 2 }
// 增加筛选日期为2023年
criteria.push(FilterDateTimeEnum.YEAR, '2023/1/1')
// 增加筛选日期为2022年3月
criteria.push(FilterDateTimeEnum.MONTH, '2022/3/1')
// 增加筛选日期为2022年4月
criteria.push(FilterDateTimeEnum.MONTH, '2022/4/1')
// 增加筛选日期为2022年5月1日
criteria.push(FilterDateTimeEnum.DAY, '2022/5/1')
// 增加筛选日期为2022年5月2日
criteria.push(FilterDateTimeEnum.DAY, '2022/5/2')
// 应用筛选
filterRange.AutoFilter(filterField, undefined, xlFilterValues, criteria)

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域D列
let filterField = 4
// 设置筛选 xlFilterThisQuarter， 可选值xlFilterLastQuarter、xlFilterNextQuarter、xlFilterThisQuarter
let criteria = xlFilterThisQuarter
// 应用筛选
filterRange.AutoFilter(filterField, criteria, xlFilterDynamic)
// 定义筛选字段为C列
filterField = 3
// 设置筛选时间为 xlFilterYearToDate 过去到今天为止一年的时间
criteria = xlFilterYearToDate
// 应用筛选
filterRange.AutoFilter(filterField, criteria, xlFilterDynamic)
// 定义筛选区域为A列
filterField = 1
// 设置筛选条件'商品A'
criteria = '商品A'
// 应用筛选
filterRange.AutoFilter(filterField, criteria)

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域第2列
let filterField = 2
// 设置筛选包含内容"张三"
let criteria = '=*张三*'
// 设置筛选开头是"李四"
let criteria2 = '=李四*'
// 应用筛选，指定包含关系
filterRange.AutoFilter(filterField, criteria, xlOr, criteria2)

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域A列
let filterField = 1
// 获取筛选的数据区域
const filterColumnRange = filterRange.Columns(filterField)
// 计算数据区域的行数，需要减去表头
const filterRangeCount = filterColumnRange.Rows.Count - 1
// 获取前5名数据
const top5Value = 5
// 数据区域中可能没有5行数据
const topNum = filterRangeCount < top5Value ? filterRangeCount : top5Value
// 获取筛选的数据里第5大的值
let top5 = WorksheetFunction.Large(filterColumnRange, topNum)
// 应用筛选
filterRange.AutoFilter(filterField, '>=' + top5)

// 选择筛选区域为已使用的区域
const filterRange = ActiveSheet.UsedRange
// 选择要筛选的列号为3
const filterColumn = 3
// 选择筛选的值为"张三"
const filterValue = ['张三']
// 应用筛选
filterRange.AutoFilter(filterColumn, filterValue)

// 获取筛选结果
const filteredRange =
  ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible)

// 获取筛选结果的F列
const filteredRangeFColumn =
  ActiveSheet.AutoFilter.Range.Columns('F').SpecialCells(xlCellTypeVisible)

// 将筛选的结果的F列设置为楷体字体
filteredRangeFColumn.Font.Name = '楷体'

// 未定义筛选区域时，默认使用UsedRange作为筛选区域
const filterRange = ActiveSheet.UsedRange
// 定义筛选区域第2列
let filterField = 2
// 设置筛选内容为"李四"
let criteria = '李四'
// 应用筛选
filterRange.AutoFilter(filterField, criteria)
// 定义筛选区域为第4列
filterField = 4
// 设置筛选条件为上周，可选值 xlFilterLastWeek，xlFilterThisWeek，xlFilterNextWeek
criteria = xlFilterLastWeek
// 应用筛选
filterRange.AutoFilter(filterField, criteria, xlFilterDynamic)

// A列设置自动列宽
const range = Application.Range('A1')
range.Columns.AutoFit()

// 第一行设置自动行高
const range = Application.Range('A1')
range.Rows.AutoFit()

// 区域对象
let range = Application.Range('A1')
range.Select()
let selection = Application.Selection
console.log(selection.Address())

// 1. 以tab为分隔符拆分A1:A3，Tab表示用tab来分隔
Range('A1:A3').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  true,
  undefined,
  undefined,
  undefined,
  undefined,
  undefined,
  undefined
)
// 2. 以分号为分隔符拆分B列，Semicolon表示用分号来分隔
Range('B:B').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  true,
  undefined,
  undefined,
  undefined,
  undefined,
  undefined
)
// 3. 以逗号为分隔符拆分C1，Comma表示用逗号来分隔
Range('C1').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  undefined,
  true,
  undefined,
  undefined,
  undefined,
  undefined
)
// 4. 以空格为分隔符拆分D1，Space表示用空格来分隔
Range('D1').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  undefined,
  undefined,
  true,
  undefined,
  undefined,
  undefined
)

// 1. 以@为分隔符分隔A1，@不是默认分隔符所以使用Other
Range('A1').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  undefined,
  undefined,
  undefined,
  true,
  '@',
  undefined
)
// 2. 以#为分隔符分隔A2，#不是默认分隔符所以使用Other
Range('A2').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  undefined,
  undefined,
  undefined,
  true,
  '#',
  undefined
)
// 3. 以*为分隔符分隔A3，*不是默认@分隔符所以使用Other
Range('A3').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  undefined,
  undefined,
  undefined,
  true,
  '*',
  undefined
)

// 1. 以空格和分号为分隔符拆分A1:A10，拆分到B1单元格里面
Range('A1:A10').TextToColumns(
  Range('B1'),
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  true,
  undefined,
  true,
  undefined,
  undefined,
  undefined
)
// 2. 以逗号、tab和=为分隔符号拆分B列，拆分到D列里面
Range('B:B').TextToColumns(
  Range('D:D'),
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  true,
  undefined,
  true,
  undefined,
  true,
  '=',
  undefined
)
// 3. 以tab、逗号、分号和空格为分隔符号拆分C列
Range('C:C').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  true,
  true,
  true,
  true,
  undefined,
  undefined,
  undefined
)

// 1. 以逗号为分隔符拆分A1，ConsecutiveDelimiter设为true表示连续分隔符视为一个分隔符
Range('A1').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  true,
  undefined,
  undefined,
  true,
  undefined,
  undefined,
  undefined,
  undefined
)
// 2. 以&和tab为分隔符拆分B1:B5，&不是默认分隔符所以使用Other，ConsecutiveDelimiter设为true表示连续分隔符视为一个分隔符
Range('B1:B5').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  true,
  undefined,
  undefined,
  undefined,
  true,
  true,
  '&',
  undefined
)
// 3. 以!为分隔符拆分C列，!不是默认分隔符所以使用Other，ConsecutiveDelimiter设为false表示连续分隔符单独处理
Range('C:C').TextToColumns(
  undefined,
  xlDelimited,
  xlTextQualifierNone,
  false,
  undefined,
  undefined,
  undefined,
  undefined,
  true,
  '!',
  undefined
)

// 1. 以空格为分隔符拆分A1，拆分到B1, [X, Y] 代表第X列为Y对应的格式，[1, xlGeneralFormat]代表第一列为常规格式，[2, xlTextFormat]代表第二列为文本格式，[3, xlYMDFormat]代表第三列为日期YMD格式，
Range('A1').TextToColumns(
  Range('B1'),
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  undefined,
  undefined,
  true,
  undefined,
  undefined,
  [
    [1, xlGeneralFormat],
    [2, xlTextFormat],
    [3, xlYMDFormat]
  ]
)
// 2. 以分号为分隔符拆分C1，拆分到C3,[2, xlDMYFormat]代表第二列为日期DMY格式，[3, xlMYDFormat]代表第三列为日期MYD格式，[4, xlDYMFormat]代表第四列为日期DYM格式，[5, xlYDMFormat]代表第四列为日期YDM格式，
Range('C1').TextToColumns(
  Range('C3'),
  xlDelimited,
  xlTextQualifierNone,
  undefined,
  undefined,
  true,
  undefined,
  undefined,
  undefined,
  undefined,
  [
    [2, xlDMYFormat],
    [3, xlMYDFormat],
    [4, xlDYMFormat],
    [5, xlYDMFormat]
  ]
)