Hsieh

回復 19# HCG10G8bear
以你的資料特性用特殊儲存格可避免迴圈

1. Sub ex()
   
2. With Sheets("Sheet1")
   
3. .Columns("B:B").SpecialCells(xlCellTypeConstants, 1).EntireRow.NumberFormat = "#"  '改變儲存格格式
   
4.    With .UsedRange
   
5.    .Value = .Value  '重新填入資料
   
6.    End With
   
7. End With
   
8. End Sub

複製代碼