excel - 如何在 vba 中修剪邮政编码的结尾？只需要前 5 个数字。需要通过列并修剪这些数字

Question

'需要将邮政编码修剪为前 5 位数字，这对我来说是错误的。

Dim l As Long 调暗 m As Long

  m = Cells(Rows.Count, "K").End(xlUp).Row
       j = 2
          For l = 2 To m
              Range("K2:K500").Value = Left(Range("K2:K500"), 5)
       j = j + 1
        
          Next l

标签： excelvba

Answer 1

您可以使用Evaluate.

Sub TrimZips()

    With Sheets("Sheet1").Range("K2:K500")
        .Value = Evaluate("LEFT(" & .Address(External:=True) & ",5)")
    End With
    
End Sub