分拆单元格

ddz79101 · 发表于 2024-6-27 18:56

老师！有单元格含多项内尔，想拆分，请老师指点。谢谢

dambcer · 发表于 2024-6-27 19:47

用百度发票识别，这多费劲

lizhipei78 · 发表于 2024-6-27 19:56

后面的数据样本都是一样的格式吗？也多是这么多行吗？如果你想得到你想要的答案，就应该上传的样本大点，要不单一个案例或许写出来的代码并不适合于你

ddz79101 · 发表于 2024-6-27 20:09

lizhipei78 发表于 2024-6-27 19:56
后面的数据样本都是一样的格式吗？也多是这么多行吗？如果你想得到你想要的答案，就应该上传的样本大点，要 ...

谢谢老师！这是我整理后的格式，都规范此格式了

ddz79101 · 发表于 2024-6-27 20:10

dambcer 发表于 2024-6-27 19:47
用百度发票识别，这多费劲

谢谢老师！不需要识别，因为日常也只需要此内容

ddz79101 · 发表于 2024-6-27 21:38

有老师帮忙解答吗

ddz79101 · 发表于 2024-6-28 08:08

有老师帮忙解答吗

ykcbf1100 · 发表于 2024-6-28 08:29

本帖最后由 ykcbf1100 于 2024-6-28 08:31 编辑

3楼说得有道理的，你至少上二个样本啊，因为这个需要分块处理的，你就一个样本，那就不需要分块处理了，你后期还得追问。
还有第一列数据可以固定的，只要拆分出第2列数据就行吧。

chzsh · 发表于 2024-6-28 08:29

Sub 分拆()
Range("e1:e7").ClearContents
Range("e1") = Range("a6")
Range("e2") = Range("a7")
Range("e3") = Range("a8")
Range("e4") = Split(Range("a11"), "项")(0)
Range("e5") = Split(Range("a9"), " ")(0)
Range("e6") = Split(Range("a9"), " ")(1)
Range("e7") = "￥" & Split(Range("a10"), "￥")(1)

End Sub

chzsh · 发表于 2024-6-28 08:34

试试这个吧

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

[求助] 分拆单元格

评分