[已解决]需要所有数值格式统一,请帮忙

大灰狼1976

不好意思，很久没上论坛，对你的几个问题回答如下：
1、请参考5楼回复
2、请见下记修改过代码：

1. Private Sub CommandButton1_Click()
   
2. t = Timer
   
3. Dim arr, i&, j%, k&, sh As Byte
   
4. For i = 1 To 5
   
5.   arr = Sheets(i).Range(Sheets(i).Cells(1, 1), Sheets(i).Cells(Sheets(i).[a65536].End(3).Row + 1, Sheets(i).[iv1].End(1).Column))
   
6.   arr(UBound(arr), 1) = "Count" ': arr(1, UBound(arr, 2)) = "Count"
   
7.   For j = 2 To UBound(arr, 2)
   
8.     arr(UBound(arr), j) = "=sum(" & Chr(64 + j) & "2:" & Chr(64 + j) & UBound(arr) - 1 & ")"
   
9.   Next j
   
10.   'For k = 2 To UBound(arr)
    
11.     'arr(k, UBound(arr, 2)) = "=sum(B" & k & ":" & Chr(64 + UBound(arr, 2) - 1) & k & ")"
    
12.   'Next k
    
13.   Sheets(i).[a1].Resize(UBound(arr), UBound(arr, 2)) = arr
    
14.   Sheets(i).Range(Sheets(i).Cells(UBound(arr), 1), Sheets(i).Cells(UBound(arr), UBound(arr, 2))).Interior.ColorIndex = 6
    
15.   'Sheets(i).Range(Sheets(i).Cells(1, UBound(arr, 2)), Sheets(i).Cells(UBound(arr), UBound(arr, 2))).Interior.ColorIndex = 6
    
16. Next i
    
17. MsgBox Timer - t & "Sec"
    
18. End Sub

复制代码