主页 / computer / 问题 / 1752672
Accepted
newview
Asked: 2022-11-15 00:52:19 +0800 CST

如何将列中的整数设置为文本而不是#####？

  • 772

E列中的值如下所示，均为整数Scientific way：

初始格式

我想将其格式化为文本，所有整数显示为文本格式：

With Worksheets("Sheet1").Range("E:E")
    .NumberFormat = "Text"
End With

用####显示的整数

E列的所有单元格都充满了###，如何使文本格式的整数？

microsoft-excel

2 个回答

  1. Best Answer

    在这种情况下，仅更改格式是不够的，您还需要将单元格中的数值显式转换为文本字符串。例如，像这样：

    Sub convertNumbersToText()
Dim oCell As Range, nonEmptyCells As Range
    With Worksheets("Sheet1")
        Set nonEmptyCells = Application.Intersect(.UsedRange, _
            .Range("E:E")).SpecialCells(xlCellTypeConstants)
        For Each oCell In nonEmptyCells.Cells
            oCell.Value2 = "'" & Format(oCell.Value, "0")
        Next oCell
        .Range("E:E").NumberFormat = "@"
    End With
End Sub
    • 0

  2. 用最简单的代码：

    Sub SetCellFormat()
    For Each oCell In Worksheets("Sheet1").Range("E:E")
        oCell.Value = "'" & Format(oCell.Value, "0")
        oCell.NumberFormat = "@"
    Next oCell
End Sub

    或者将两条线与一条长线组合起来

        oCell.Value = "'" & Format(oCell.Value, "0")
    oCell.NumberFormat = "@"

    格式化 E 列单元格的最短 vba 代码：

    Sub SetCellFormat()
    For Each oCell In Worksheets("Sheet1").Range("E:E")
        oCell.Value = Format("'" & Format(oCell.Value, "0"), "@")
    Next oCell
End Sub
    • 0

相关问题