excel vba删除后面字符

发布网友 发布时间：2022-04-24 06:44

我来回答

共2个回答

热心网友 时间：2022-06-17 03:04

Sub Test()
  Rng = Application.InputBox(prompt:="输入单元格区域") '输入内容到变量Rng
  Arr = Range(Rng) '取单元格范围数据到数组Arr
  For i = 1 To UBound(Arr, 1) '数组Arr行循环
    For j = 1 To UBound(Arr, 2) '数组Arr列循环
      tmp = Arr(i, j) '取一个字符串到变量Tmp
      If Len(tmp) > 2 Then '字符串字数大于2个则执行
        tmp = Left(tmp, Len(tmp) - 2) '左边取少2个字符回变量Tmp
        'tmp = Right(tmp, Len(tmp) - 2) '右边取少2个字符回变量Tmp
        Arr(i, j) = tmp '变量Tmp中内容返还到数组Arr
      End If
    Next j
  Next i
  Range(Rng) = Arr '数组Arr中内容返还到原单元格区域
End Sub

热心网友 时间：2022-06-17 03:05

Sub aa()
For Each c In Selection
c.Value = Left(c.Value, Len(c.Value) - 2)
Next
End Sub

鼠标选中需要修改的数据区域，运行宏aa

追答没有吧，只删除右侧两个字符的。