gpt4 book ai didi

excel - 如何使每个单元格的长度为5?

转载 作者:行者123 更新时间:2023-12-04 12:15:18 26 4
gpt4 key购买 nike

我有一列有 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

最佳答案

不需要VBA。您可以使用公式 =Left(A1,5) , 得到第一个 5单元格的字符。只需自动填充公式。
enter image description here
如果您仍然想要 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
在上面的代码中,我假设数据在 A 列中。在 Sheet1 .根据需要进行更改。
在行动
enter image description here

关于excel - 如何使每个单元格的长度为5?,我们在Stack Overflow上找到一个类似的问题: https://stackoverflow.com/questions/68493760/

26 4 0
Copyright 2021 - 2024 cfsdn All Rights Reserved 蜀ICP备2022000587号
广告合作:1813099741@qq.com 6ren.com