数据转存

dambcer

可可西里. 发表于 2024-7-12 20:03
嗯，里面转存的数据只需要保留2位数，请帮忙再看看，感谢感谢

不看了，自己改一下吧

可可西里.

dambcer 发表于 2024-7-12 20:07
不看了，自己改一下吧

真不会呢，我都看不懂，抱歉哈

ykcbf1100

可可西里. 发表于 2024-7-12 19:32
不对，存过去的只是币种符号，不是数据，另外存过去没有7条数据，就等于A-G 是7个不同的订单，分别对应各 ...

前面理解错了，现在改一下。写复杂了，现简化一下代码。

ykcbf1100

写复杂了，简化一下代码。

1. Sub ykcbf()   '//2024.7.12
   
2.     Dim brr(1 To 1000, 1 To 200)
   
3.     On Error Resume Next
   
4.     With Sheets("Sheet5")
   
5.         r = .Cells(Rows.Count, 1).End(3).Row
   
6.         For j = 5 To 12
   
7.             m = m + 1
   
8.             c = 1
   
9.             brr(m, 1) = m
   
10.             For i = 12 To r
    
11.                 If .Cells(i, 1) <> Empty Then
    
12.                     c = c + 1
    
13.                     brr(m, c) = .Cells(i, j).Value
    
14.                 End If
    
15.             Next
    
16.         Next
    
17.     End With
    
18.     With Sheets("数据表")
    
19.         r = .Cells(Rows.Count, 2).End(3).Row
    
20.         .Cells(r + 1, 1).Resize(m, c + 1) = brr
    
21.     End With
    
22.     MsgBox "OK！"
    
23. End Sub
    

复制代码

可可西里.

ykcbf1100 发表于 2024-7-12 20:17
前面理解错了，现在改一下。写复杂了，现简化一下代码。

真的很感谢，就是里面还有一个问题，存过来的数据只保留2位数，需要怎么改呢，请谅解我啥也不懂

ykcbf1100

可可西里. 发表于 2024-7-12 20:39
真的很感谢，就是里面还有一个问题，存过来的数据只保留2位数，需要怎么改呢，请谅解我啥也不懂

改好了，保留2位小数。

可可西里.

ykcbf1100 发表于 2024-7-12 20:42
改好了，保留2位小数。

非常感谢，乐于助人