Как заполнить числовой формат для целого столбца в excel с помощью VBA?

Question

Формат файла в столбце A похож на 000000000050000402, но должен быть как 50000402 Я могу сделать это с этим в VBA Range("A2").Value = CLng(Range("A2").Value), что я хочу, чтобы приложить его к целой колонке, но я не знаю, как это сделать.

Спасибо за любую помощь.

Я использую Excel 2010

РЕШИТЬ!

Answer 1

хорошо у меня есть решение, которое работает для меня :-), но я хочу, спасибо любого органа, который хочет помочь мне

With ActiveSheet 
lastRow = .Cells(.Rows.Count, "A").End(xlUp).row 
    End With 

Set a = Range(("A2:A") & lastRow) 
For Each b In a.Rows 
    b.Value = CLng(b.Value) 

Next 

Answer 2

Вот тот, который я использовал. Это преобразует текущую активную колонку в номер при запуске:

Sub Conv_Col_To_No() 
On Error Resume Next 

    ' Take copy of a normal cell (taken from far right of sheet) 
    Range("AAA1").Copy 

    ' Paste special (add) to convert data in column to number 
    Range(ActiveCell.Address, Selection.End(xlDown)).Select 
    Selection.PasteSpecial Paste:=xlAll, Operation:=xlAdd, SkipBlanks:=False _ 
     , Transpose:=False 
End Sub 

Только что проверили. Это фактически применяет формат числа ко всем ячейкам текущего столбца для текущей строки вперед (т. Е. Любые ячейки выше активной ячейки останутся такими, какими они есть).