如何使每个单元格的长度为5？

Question

我有一列有 7000 多个名字。我想让每个名字的长度不超过5。这是我尝试过但不起作用的方法

Sub del()
    Dim myCell
    Set myCell = ActiveCell
    Dim count As Integer

    count = Len(ActiveCell)

    While count > 5
        myCell = Left(myCell, Len(myCell) - 1)
        myCell.Offset(1, 0).Select
        Set myCell = ActiveCell
    Wend
End Sub

Answer 1

不需要 VBA。您可以使用公式=Left(A1,5) 来获取单元格的第一个5 字符。只需自动填写公式。

如果您仍然想要 VBA，那么您也不需要循环。请参阅此示例。解释见Convert an entire range to uppercase without looping through all the cells

Option Explicit

Sub Sample()
    Dim ws As Worksheet
    Dim lRow As Long
    Dim rng As Range
    
    '~~> Change this to the relevant sheet
    Set ws = ThisWorkbook.Sheets("Sheet1")
    
    With ws
        lRow = .Range("A" & .Rows.Count).End(xlUp).Row
            
        Set rng = .Range("A1:A" & lRow)
        rng = Evaluate("index(left(" & rng.Address(External:=True) & ",5),)")
    End With
End Sub

在上面的代码中，我假设数据在Sheet1 的A 列中。根据需要进行更改。

行动中