Question

我目前正在使用此脚本。

Range("E2").Select
Range(Selection, Selection.End(xlDown)).Select
For Each xCell In Selection
xCell.Value = CDec(xCell.Value)
Next xCell

我想只选择E列中有数据的单元格，但是有数据的单元格数量会有所不同，我不想选择E1，因为它有一个标题。此代码将E列中的外来文本更改为我实际可以使用sum函数进行累加的数字。它的编写方式现在无限地在列中的所有单元格中放置0。

Answer 1

请尝试以下代码：

Dim lastrow As Long

lastrow = Application.Max(2, Cells(Rows.Count, "E").End(xlUp).Row)

With Range("E2:E" & lastrow)
    .NumberFormat = "0"
    .Value = .Value
End With

<强> UPD：

如果没有用，请试试这个：

Dim lastrow As Long

lastrow = Application.Max(2, Cells(Rows.Count, "E").End(xlUp).Row)

For i = 2 To lastrow
    With Range("E" & i)
        .Value = CDec(.Value)
    End With
Next

仅选择包含数据的单元格，但跳过列中的第一个单元格

1 个答案: