在字符串上使用Right函数时出现“编译错误:期望的数组”

时间:2019-02-01 11:41:55

标签: excel vba

我有一张工作表,其中有一堆字符串是从存储在各个单元格中的文本中提取的,如果是逗号或点,我需要从每个字符串中删除最后一个字符。

我一直在尝试遍历单元格,并使用Right函数检查最后一个字符是点还是逗号,但这会导致错误:“编译错误:期望的数组”。

Dim i As Integer, j As Integer
Dim cellValue As String
Dim wsFiltro2 As Worksheet

Set wsFiltro2 = Worksheets("SegundoFiltro")

For j = 1 To 10
    For i = 1 To 33
        cellValue = wsFiltro2.Cells(j, i).Value
        If right(cellValue, 1) = "," Or right(cellValue, 1) = "." Then
            wsFiltro2.Cells(j, i).Value = left(cellValue, Len(cellValue) - 1)
        End If
    Next i
Next j

编辑:我本来在另一个Sub中有这个循环,该Sub首先将这些字符串写入工作表。当我在写完值后在新的Sub中对其进行测试时,它仍然可以正常工作...仍然不明白为什么它不能在另一个Sub中工作

0 个答案:

没有答案