Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2404|回复: 7

[已解决]高手修改一下代码,关于SPLIT函数的应用?

[复制链接]
发表于 2014-1-2 16:01 | 显示全部楼层 |阅读模式
本帖最后由 sgyzzz 于 2014-1-2 16:03 编辑

求高手修改一下代码,关于SPLIT函数的应用。
分成数组.rar (6.41 KB, 下载次数: 9)
发表于 2014-1-2 16:05 | 显示全部楼层
你想改成啥样?
a=split(range("a2").value,"-")
a就是数组了。

点评

好快 好久没混了 刚看到一个题就被师父抢下了  发表于 2014-1-2 16:08
回复

使用道具 举报

发表于 2014-1-2 16:07 | 显示全部楼层
  1. Sub 示例()
  2.     Dim x%, aa, Arr
  3.     Dim mrr()
  4.     For x = 2 To 56
  5.         Arr = Split(Cells(x, 1), "-")
  6.         ReDim Preserve mrr(1 To 2, 1 To x)
  7.         mrr(1, x - 1) = Arr(0)
  8.         mrr(2, x - 1) = Arr(1)
  9.     Next x
  10. End Sub
复制代码
回复

使用道具 举报

发表于 2014-1-2 16:09 | 显示全部楼层
  1. Sub 示例()
  2.     Dim x%, aa, Arr
  3.     Dim mrr()
  4.     For x = 2 To 56
  5.         Arr = Split(Cells(x, 1), "-")
  6.         ReDim Preserve mrr(1 To 2, 1 To x - 1)
  7.         mrr(1, x - 1) = Arr(0)
  8.         mrr(2, x - 1) = Arr(1)
  9.     Next x
  10.     aa = WorksheetFunction.Transpose(mrr)
  11. End Sub
复制代码
回复

使用道具 举报

发表于 2014-1-2 16:10 | 显示全部楼层    本楼为最佳答案   
  1. Sub 示例()
  2.     Dim x%, aa, Arr
  3.     Dim mrr()
  4.     For x = 2 To 56
  5.         Arr = Split(Cells(x, 1), "-")
  6.         ReDim Preserve mrr(1 To 2, 2 To x)
  7.         mrr(1, x) = Arr(0)
  8.         mrr(2, x) = Arr(1)
  9.     Next x
  10.     aa = WorksheetFunction.Transpose(mrr)
  11.     Stop
  12. End Sub
复制代码
回复

使用道具 举报

发表于 2014-1-2 16:13 | 显示全部楼层
mrr(1 To 55, 1 To 2)  定义数组为这个啊 ReDim Preserve mrr(2 To x, 1 To 2) 这个 只能改变最后一维的值  第一维改变不了  你可以改变 最后一维转置哈
回复

使用道具 举报

发表于 2014-1-2 16:24 | 显示全部楼层
干嘛那么浪费呢?真奢侈
穷人的两法:一是在单元格中分列后读入数组,二是读进数组、扩展数组、一一分割写进数组
形如:
Dim x%, aa, Arr, mrr
Arr = Range("a2:a56").Value
ReDim Preserve Arr(1 To UBound(Arr), 1 To 2)
For x = 1 To UBound(Arr)
tmp = Split(Arr(x, 1), "-")
Arr(x, 1) = tmp(0)
Arr(x, 2) = tmp(1)
Next x
'或

For x = 1 To UBound(Arr)
Arr(x, 2) = Split(Arr(x, 1), "-")(1)  '当然也可不用split,用mid、right、left等等等等
Arr(x, 1) = Split(Arr(x, 1), "-")(0)
Next x

End Sub
回复

使用道具 举报

 楼主| 发表于 2014-1-2 16:35 | 显示全部楼层
谢谢以上几位高手的帮助!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-28 19:34 , Processed in 0.358884 second(s), 13 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表