excel字符串拆分为行
来源:互联网 发布:王小波黑铁时代知乎 编辑:程序博客网 时间:2024/06/03 04:59
Sub test()
Dim arr() As String '定义一个动态数组
Sheets("sheet2").Activate
xrow = Range("e65536").End(xlUp).Row
For i = 2 To Range("a65536").End(xlUp).Row
arr = Split(Cells(i, 2), ",") '单元格内的字符串以","分割
If UBound(arr) <= 11 And Cells(i, 2) <> "" Then
For a1 = 0 To 11
xrow = xrow + 1
Cells(xrow, 5) = Cells(i, 1)
Cells(xrow, 6) = "*"
Cells(xrow, 7) = a1 + 1
Next a1
For a2 = LBound(arr) To UBound(arr) '数组上下标循环
xrow = xrow + 1
Cells(xrow, 5) = Cells(i, 1)
Cells(xrow, 6) = arr(a2)
Cells(xrow, 7) = a2 + 13
Next a2
Else
For a3 = LBound(arr) To UBound(arr)
xrow = xrow + 1
Cells(xrow, 5) = Cells(i, 1)
Cells(xrow, 6) = arr(a3)
Cells(xrow, 7) = a3 + 1
Next a3
End If
Next i
For m = 2 To Range("c65536").End(xlUp).Row
arr = Split(Cells(m, 4), ",")
For n = LBound(arr) To UBound(arr)
xrow = xrow + 1
Cells(xrow, 5) = Cells(m, 3)
Cells(xrow, 6) = arr(n)
Cells(xrow, 7) = n + 1
Next n
Next m
End Sub
- excel字符串拆分为行
- excel中用宏拆分字符串
- 拆分对字符串为数组
- 字符串拆分为一个表
- 将字符串拆分为数组
- ios 拆分字符串为数组
- excel一列数据拆分为两列
- 拆分一个Excel文件为多个
- 将字符串拆分为记录集
- mssql将字符串拆分为数组
- EXCEL用VBA代码拆分sheet为新EXCEL文件
- 将逗号分割的clob字段转化为varchar,并将字符串拆分为多行
- excel拆分
- Python split() 函数 拆分字符串 将字符串转化为列
- Python split() 函数 拆分字符串 将字符串转化为列
- Python split() 函数 拆分字符串 将字符串转化为列
- C++按行读取文本文件,并将每行字符串拆分为double value的坐标值
- Excel实战:时间转换、字符串拆分和多条件判断
- 阅读程序3
- zabbix3.0.2 实现发送email报警的详细过程
- 07-图4 哈利·波特的考试
- 【学习小记】用splay维护序列
- 阅读程序4
- excel字符串拆分为行
- CentOS-6.5-x86_64 设置静态IP地址
- Glide优势与特点
- 注释驱动的 Spring cache 缓存介绍
- 浅谈设计模式之策略模式
- 实现复数类中的运算符重载2
- 第8课:Spark Streaming源码解读之RDD生成全生命周期彻底研究和思考
- [疯狂Java]基础类库:Random(随机数生成)、ThreadLocalRandom(线程安全随机数生成)
- android学习之Fragment与Activity的绑定