如何在Excel工作表中格式化列到数字格式？

Question

以下是VBA代码.Sheet2包含一般格式的所有值.运行代码后,Sheet3列'C'中的值包含13位或更多位数字的指数值.

应该怎么做才能使Sheet3的列'C'不包含指数值？

private Sub CommandButton1_Click()
Dim i, j, k As Variant

 k = 1
For i = 1 To 30000
If Sheet2.Range("c" & i).Value >= 100 And Sheet2.Range("c" & i).Value < 1000 Then
Sheet3.Range("a" & k).Value = Sheet2.Range("a" & i).Value
Sheet3.Range("b" & k).Value = Sheet2.Range("b" & i).Value

Sheet3.Range("c" & k).Value = Sheet2.Range("c" & i).Value

k = k + 1
End If
Next

End Sub

Answer 1

这将把A列格式化为文本,将B格式化为常规,将C格式化为数字.

Sub formatColumns()
 Columns(1).NumberFormat = "@"
 Columns(2).NumberFormat = "General"
 Columns(3).NumberFormat = "0"
End Sub