none
为什么这个VBA会报类型不匹配错误 RRS feed

  • 问题

  • Sub 转换卡状态()
        Dim Arr, temp As String
        Arr = Range("F1", [F65536].End(xlUp))
        For i = 2 To UBound(Arr)
                If Arr(i, 1) = "" Then
                    Range("E" & i) = ""
                Else
                        If Arr(i, 1) = 0 Then
                            Range("E" & i) = "正常卡"
                        Else
                            If Arr(i, 1) = 1 Then
                                Range("E" & i) = "异常卡"
                            End If
                        End If
                End If
       Next
    End Sub

    给我写信: QQ我:点击这里给我发消息

    2012年10月17日 5:48

全部回复