单元格Value赋值时，数字格式的传递问题

Peter_Chow

最近在给单元格 .Value 赋值时，发现有些数字格式也会传递。
闲来无聊，将具体情况的Excel文件上传给大家看看。
(不知“传递”一词用的准不准，大家能不能理解。)

pythonword

你是用的RANGE，用CELL(i,j).value一个一个的赋值应该不会

Peter_Chow

pythonword 发表于 2017-7-26 16:32
你是用的RANGE，用CELL(i,j).value一个一个的赋值应该不会

试过了，用Cells 、Range 的.value 赋值，结果是一样的。

1. Private Sub CommandButton1_Click()
   
2.     Dim v As Variant
   
3.     v = ActiveSheet.Range("C2:C36").Value
   
4.     ActiveSheet.Range("E2:E36").Value = v
   
5. End Sub
   
6. 
   
7. Private Sub CommandButton2_Click()
   
8.     Dim i As Long
   
9.     With ActiveSheet
   
10.         For i = 2 To 36
    
11.             .Cells(i, 8).Value = .Cells(i, 3).Value
    
12.         Next i
    
13.     End With
    
14. End Sub

复制代码

maoxiansheng

谢谢分享。。