转换数据出问题了

sampsonpon

为什么K列被转换与原始数据对不上？代码哪里有问题？

鄂龙蒙

20240910.rar (1.64 MB, 下载次数: 9)

2024-9-10 15:45 上传

点击文件名下载附件

DevilW

在转换数值之前先删除掉千位分隔符号

醉眼看尘世

附件中，看合适不。。

ykcbf1100

附件供参考。。。

ykcbf1100

参与一下。。。

1. Sub ykcbf()   '//2024.9.10
   
2.     Application.ScreenUpdating = False
   
3.     With Sheets("T113")
   
4.         r = .Cells(Rows.Count, "o").End(3).Row
   
5.         arr = .[o1].Resize(r, 1)
   
6.         .[a2:m100000].ClearContents
   
7.         ReDim brr(1 To r, 1 To 100)
   
8.         For i = 10 To UBound(arr) - 3
   
9.             st = Replace(arr(i, 1), "|", " ")
   
10.             st = WorksheetFunction.Trim(st)
    
11.             b = Split(st)
    
12.             m = m + 1
    
13.             For x = 0 To UBound(b)
    
14.                 brr(m, x + 1) = b(x)
    
15.             Next
    
16.         Next
    
17.         .[a2].Resize(m, 13) = brr
    
18.     End With
    
19.     Application.ScreenUpdating = True
    
20.     MsgBox "OK！"
    
21. End Sub
    
22. 
    

复制代码