[已解决]运行错误13，类型不匹配

初学者VBA

请各位老师抽空帮忙看下，把G 列负数转正数，运行代码时提示运行错误13，类型不匹配

最佳答案

月排行榜 / 总排行榜

zjdh

2022-9-16 17:30

数据中 12296 行不为数字！，修改语句：
Sub 数据取值1()
    Application.ScreenUpdating = False
    Sheet1.Activate
    Dim arr
    Dim i As Long
    arr = Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row) 'C为输出结
    For i = 2 To UBound(arr) '不包含标题
       If IsNumeric(arr(i, 7)) Then arr(i, 8) = Abs(arr(i, 7))
    Next
    Range("a2:H" & Cells(Rows.Count, 1).End(xlUp).Row) = arr
    Application.ScreenUpdating = True
End Sub

跳转到最佳答案楼层

哥儿-

有文本，还有最大行号要减1.不然下标越界。
Sub 数据转换()
    Dim arr, r&, i&
    r = Cells(Rows.Count, 1).End(3).Row
    arr = Range("A2:H" & r)
    For i = 2 To r - 1
        If IsNumeric(arr(i, 7)) Then
            arr(i, 8) = Abs(arr(i, 7))
        End If
    Next
    [a2].Resize(r, UBound(arr, 2)) = arr
End Sub

zjdh

数据中 12296 行不为数字！，修改语句：
Sub 数据取值1()
    Application.ScreenUpdating = False
    Sheet1.Activate
    Dim arr
    Dim i As Long
    arr = Range("A2:H" & Cells(Rows.Count, 1).End(xlUp).Row) 'C为输出结
    For i = 2 To UBound(arr) '不包含标题
       If IsNumeric(arr(i, 7)) Then arr(i, 8) = Abs(arr(i, 7))
    Next
    Range("a2:H" & Cells(Rows.Count, 1).End(xlUp).Row) = arr
    Application.ScreenUpdating = True
End Sub