Vba 如何使用宏将数字转换为文本？

在应用逻辑连接列之前，我想将列E转换为文本格式

目前，列E既有文本值也有数字值

现行守则：

Private Sub CommandButton1_Click()
Application.ScreenUpdating = False
Application.Calculation = xlCalculationManual
Dim lrw As Integer
Dim rgn As Range
Dim x As Integer
Dim str As String


lrw = ActiveSheet().Range("A1").End(xlDown).Row
Set rgn = Range("A1:E" & lrw)
rgn.Select
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A2:A100000") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers   '1th order by ID
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("C2:C100000") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal        '2th order by date
ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("D2:D100000") _
    , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortTextAsNumbers   '3th order by Counter

With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange rgn
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin

    .Apply
End With
    For i = 2 To lrw
        x = Application.WorksheetFunction.CountIfs(Worksheets("Sheet1").Range("E2:E" & lrw), "*", Worksheets("Sheet1").Range("A2:A" & lrw), Cells(i, 1), Worksheets("Sheet1").Range("C2:C" & lrw), Cells(i, 3))
        If x > 1 Then

            cmnts = CStr(Cells(i, 5))
          For J = 1 To x - 1
          cmnts = cmnts & " " & CStr(Cells(i + J, 5))
            Rows(i + J).Select
            Selection.ClearContents
            Next J
            Cells(i, 5) = cmnts
        End If
     Next i
With ActiveWorkbook.Worksheets("Sheet1").Sort
    .SetRange rgn
    .Header = xlYes
    .MatchCase = False
    .Orientation = xlTopToBottom
    .SortMethod = xlPinYin
    .Apply
End With
Application.ScreenUpdating = True
Application.Calculation = xlCalculationAutomatic

End Sub

在应用逻辑连接列之前，我想将列E转换为文本格式。

尝试使用该函数。

尝试此操作

Sub Example()
    With ActiveWorkbook.Worksheets("Sheet1").Range("E:E")
        .NumberFormat = "@"
    End With
End Sub

---

在我现有的代码中，我应该在哪里包含上面的代码？@AnnieJeba before

lrw=ActiveSheet（）.Range（“A1”）.End（xlDown）。Row

非常有效，谢谢：）