Início / computer / Perguntas / 1752672
Accepted
newview
Asked: 2022-11-15 00:52:19 +0800 CST

Como definir inteiro na coluna como texto em vez de #####?

  • 772

O valor na coluna E é mostrado abaixo, todo inteiro com Scientific way:

o formato inicial

Eu quero formatá-lo como texto, todos os números inteiros mostrados como formato de texto:

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

inteiro mostrado com ####

Todas as células da coluna E estão cheias ###, como fazer o número inteiro no formato de texto?

microsoft-excel

2 respostas

  1. Best Answer

    Nesse caso, não basta alterar o formato, você também precisa converter explicitamente os valores numéricos nas células em strings de texto. Por exemplo, assim:

    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. Com o código mais simples:

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

    Ou combine as duas linhas com uma linha longa

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

    O código vba mais curto para formatar células na coluna E:

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

relate perguntas