[已解决]VBA把A列每一行数据拆分五行二列保存DE列

laoau138 · 发表于 2017-2-27 13:42

本帖最后由 laoau138 于 2017-2-27 19:51 编辑

VBA把A列每一行数据拆分五行二列保存DE列

A列每一行数据按"|"拆分成五行

再把两个数字分成两列

最后结果看蓝底单元格D:E列

用VBA如何完成

最佳答案

月排行榜 / 总排行榜

lmze2000

2017-2-27 14:02

VBA把A列每一行数据拆分五行二列保存DE列.zip (48.37 KB, 下载次数: 14)

lmze2000 · 发表于 2017-2-27 14:02

这个最佳答案由 lmze2000 给出，感谢 lmze2000 的回答。

单击隐藏图章

VBA把A列每一行数据拆分五行二列保存DE列.zip (48.37 KB, 下载次数: 14)

望帝春心 · 发表于 2017-2-27 14:15

Sub test()
Dim i&, arr, brr(1 To 5, 1 To 2)
arr = [a1].CurrentRegion.Value
k = 1
For i = 1 To UBound(arr)
ss = Split(arr(i, 1), "|")
For j = 0 To UBound(ss)
brr(j + 1, 1) = Mid(ss(j), 1, 1)
brr(j + 1, 2) = Mid(ss(j), 2, 1)
Next
Cells(k, 4).Resize(5, 2) = brr
k = k + 6
Erase brr
Next
End Sub

复制代码

laoau138 · 发表于 2017-2-27 19:47

lmze2000 发表于 2017-2-27 14:02
看下效果。

用VBA从下往上提取多少行数据

http://www.excelpx.com/thread-428088-1-1.html

laoau138 · 发表于 2017-2-27 19:47

lmze2000 发表于 2017-2-27 14:02
看下效果。

用VBA从下往上提取多少行数据

http://www.excelpx.com/thread-428088-1-1.html

laoau138 · 发表于 2017-2-27 19:50

Sub s()
arr = [a1].CurrentRegion
For i = 1 To UBound(arr)
      brr = Split(arr(i, 1), "|")
      For j = 0 To 4
         Cells(i * 6 - 5 + j, 4) = brr(j) \ 10
         Cells(i * 6 - 5 + j, 5) = brr(j) Mod 10
      Next
Next
End Sub

		自动登录	找回密码
密码			注册

[已解决]VBA把A列每一行数据拆分五行二列保存DE列

相关帖子

评分

评分

[已解决]VBA把A列每一行数据 拆分五行二列保存DE列

相关帖子

评分

评分

[已解决]VBA把A列每一行数据拆分五行二列保存DE列