作者chunchanhung (毛毛狂)
看板Office
标题[算表] excel vba拆解资料
时间Mon Feb 24 11:27:03 2020
软体:excel
版本:2016
想请问我有一个储存格里面有三行资料
我想将这三行资料拆成三个储存格
谢谢
另外想问有时候可能有一行资料或很多笔资料
要问这样有办法写判断吗
https://i.imgur.com/s6fQvVt.jpg
-----
Sent from JPTT on my iPhone
--
※ 发信站: 批踢踢实业坊(ptt.cc), 来自: 42.73.180.104 (台湾)
※ 文章网址: https://webptt.com/cn.aspx?n=bbs/Office/M.1582514825.A.EA4.html
※ 编辑: chunchanhung (42.73.180.104 台湾), 02/24/2020 11:28:51
1F：→ soyoso: range.texttocolumns分隔符号以chr(10)或split分隔符号亦 02/24 11:37
2F：→ soyoso: 同 02/24 11:37
3F：→ soyoso: 二则需转置，range.pastespecial或工作表函数transpose 02/24 11:37
4F：→ soyoso: 判断上instr或ubound 02/24 11:37
5F：→ chunchanhung: S大你好 02/24 11:55
6F：→ chunchanhung: 能否写出相关code共我参考呢 02/24 11:55
7F：→ chunchanhung: 我上网查了用法 但实在是看不懂这些变数 02/24 11:55
8F：→ chunchanhung: 谢谢你 02/24 11:55
9F：→ soyoso: google一定有相关的code，这方面就不多写了 02/24 12:08
10F：→ soyoso: 就回文重点的部分range.texttocolumns就於参数otherchar以 02/24 12:08
11F：→ soyoso: 分隔符号chr(10) 02/24 12:08
12F：→ soyoso: 那资料剖析後就在同一列内，那要转置就以range. 02/24 12:08
13F：→ soyoso: pastespecial transpose为真true 02/24 12:08
14F：→ soyoso: split delimiter的部分也是chr(10)，一样转置，以工作表函 02/24 12:08
15F：→ soyoso: 数transpose 02/24 12:08
16F：→ soyoso: 范围(列数)要和所分割元素数量是一致的，如连结内分割後有 02/24 12:08
17F：→ soyoso: 三笔，就要范围就有三列 02/24 12:08
18F：→ soyoso: 判断上instr就可以得知字串内是否有chr(10)，ubound就是看 02/24 12:08
19F：→ soyoso: 元素数量 02/24 12:08
20F：→ soyoso: 元素数量方面，split分割後ubound看维度上限，数量上需加1 02/24 12:16