如何将文本内容通过VBA编程自动转换，请看附件。

xiao-wu1987

lsc900707 发表于 2019-5-24 18:06
代码修改好了：

感谢您的帮助

xiao-wu1987

lsc900707 发表于 2019-5-24 18:06
代码修改好了：

你好大神，附件的文本格式不一样，是否可以帮我弄下，万分感谢

lsc900707

xiao-wu1987 发表于 2019-5-27 09:50
你好大神，附件的文本格式不一样，是否可以帮我弄下，万分感谢

1. Sub gj23w98()
   
2.     ReDim brr(1 To 9999, 1 To 15)
   
3.     arr = [b7].CurrentRegion
   
4.     For i = 1 To UBound(arr)
   
5.         m = m + 1
   
6.         s = Array(arr(i, 10), arr(i, 3), arr(i, 7), arr(i, 5), arr(i, 6), arr(i, 14), arr(i, 15), arr(i, 9), _
   
7.         arr(i, 1) & arr(i, 2), arr(i, 12), arr(i, 13), arr(i, 16), arr(i, 17), arr(i, 8), arr(i, 18))
   
8.         For j = 0 To UBound(s)
   
9.             brr(m, j + 1) = s(j)
   
10.         Next
    
11.         t = t + Val(brr(m, 7))
    
12.     Next
    
13.     brr(m + 1, 1) = "合计": brr(m + 1, 7) = t
    
14.     With Sheets("B1表")
    
15.         If m Then
    
16.             .Cells.Clear
    
17.             .Columns(4).NumberFormatLocal = "@"
    
18.             .[a1].Resize(m + 1, 15) = brr
    
19.             .[a1].Resize(m + 1, 15).Borders.LineStyle = 1
    
20.         End If
    
21.     End With
    
22. End Sub

复制代码

lsc900707

xiao-wu1987 发表于 2019-5-27 09:50
你好大神，附件的文本格式不一样，是否可以帮我弄下，万分感谢

参考测试附件：

xiao-wu1987

lsc900707 发表于 2019-5-27 10:25
参考测试附件：

如何设置转换后保留重量小数点后两位数

lsc900707

xiao-wu1987 发表于 2019-5-27 11:05
如何设置转换后保留重量小数点后两位数

1. With Sheets("B1表")
   
2.     If m Then
   
3.         .Cells.Clear
   
4.         .Columns(4).NumberFormatLocal = "@"
   
5.         .Columns(14).NumberFormatLocal = "0.00"
   
6.         .[a1].Resize(m + 1, 15) = brr
   
7.         .[a1].Resize(m + 1, 15).Borders.LineStyle = 1
   
8.     End If
   
9. End With

复制代码

xiao-wu1987

lsc900707 发表于 2019-5-27 11:39

谢谢大神的帮助

xiao-wu1987

lsc900707 发表于 2019-5-27 11:39

大神你好，我这个附件中的Sheet1文本转换到Sheet2中后存货名称中的顺序变换了，能否帮忙设置下转后后顺序不要变动。按照Sheet1的合并顺序来

lsc900707

xiao-wu1987 发表于 2019-6-12 14:06
大神你好，我这个附件中的Sheet1文本转换到Sheet2中后存货名称中的顺序变换了，能否帮忙设置下转后后顺序 ...

不理解你说的什么意思，品名顺序没有变化呀。

xiao-wu1987

lsc900707 发表于 2019-6-12 16:33
不理解你说的什么意思，品名顺序没有变化呀。

前面忘记给你附件表格了，就是这个附件中的表格转换后品名不需要按照字母顺序排列，就按照sheet1中的转换后顺序排列就好了，麻烦你了