主页 / computer / 问题 / 1741981
Accepted
moninah
Asked: 2022-09-13 07:32:03 +0800 CST

如何修复宏错误：“运行时'9'：下标超出范围”？

  • 772

如果我输入或粘贴一个单词或一个数字，则会出现错误：“Runtime '9': Subscript out of range”。必须可以输入一个字符，但不能转换。如果从列中删除值，则会出现错误：“运行时'9'：下标超出范围”。需要能够从单元格中删除值。我需要能够输入和粘贴所有内容，但不能转换。仅转换(any number)m和(any number)M。可以删除和编辑单元格中的数据。

我有这个宏：

Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Dim v As Variant
    v = Split(Target, " ")
    If Right(Target, 1) <> "m" Then
        Target = v(1) & " " & v(0)
    End If
End Sub

此宏将数据转换为（任意数）m，并且（任意数）M在右侧。

例如：

L3 280M
500m FMA
Nest 475m
340m Pr6
720M uT10
etc.

转换成：

L3 280M
FMA 500m
Nest 475m
Pr6 340m
uT10 720M
etc.
microsoft-excel vba

1 个回答

  1. Best Answer

    尝试这个：

    Option Compare Text
Private Sub Worksheet_Change(ByVal Target As Range)
    If Target.CountLarge > 1 Then Exit Sub
    If Target.Column <> 1 Then Exit Sub
    Dim v As Variant
    v = Split(Target, " ")
'===
    If UBound(v) <> 1 Then Exit Sub
'===
    If Right(Target, 1) <> "m" Then
        Target = v(1) & " " & v(0)
    End If
End Sub
    • 1

相关问题