在数组中怎么让数值变成文本

七喜2016

求助:

1. Sub 化()
   
2. Dim Arr, r&
   
3. 
   
4.     Arr = [a1].CurrentRegion
   
5.     r = 2
   
6.      Do While Arr(r, 5) <> ""                                                      '循环r行E列不为空的值
   
7.      If Arr(r, 5) > 0 Then Arr(r, 7) = Int(Arr(r, 5)) '如果r行E列值大于等于0,那么i行E列=G列单元格值
   
8.      If Arr(r, 7) = "" Then Arr(r, 7) = Int(Arr(r, 5)) '如果G列为空,G等于E的值
   
9.      If Arr(r, 7) >= 0 Then Arr(r, 7) = Int(Arr(r, 7))
   
10.      If Arr(r, 7) >= 0 Then Arr(r, 13) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行E列值大于等于0,那么i行M列 值等于i行M列*0.85
    
11. 
    
12.      r = r + 1
    
13.     If r > UBound(Arr) Then Exit Do
    
14.     Loop
    
15.     [a1].CurrentRegion = Arr
    
16.     End Sub

复制代码

我的表里Q列值  有的时候是英文,有的时候全是数字,一在数组里一输出全变了

我在网和 和论坛里也都找了
IF Arr(r,17)>0 then Arr(r,17)=text( Arr(r,17),0)     说用TEXT函数   不成功
IF Arr(r,17)>0 then Arr(r,17)=retp( Arr(r,17),1)   不成功
IF Arr(r,17)>0 then Arr(r,17)=concatenate( Arr(r,17))  不成功
IF Arr(r,17)>0 then Arr(r,17)=Left(Arr(r,17),Len(Arr(r,17)))  不成功

还有试过
只有在 数据工具--分列--文本   然后在用VBA代码 执行 能成功


求大神 给看看 .... 我是一个新手.好多不懂的...     数据Q列数值

zhaogang1960

避开Q列：
Sub Macro1()
    Dim arr, i&
    With Range("A2:M" & Range("E65536").End(xlUp).Row)
        arr = .Value
        For i = 2 To UBound(arr)
            If Len(arr(i, 5)) Then
                If arr(i, 5) >= 0 Then arr(i, 7) = Int(arr(i, 5))
                If arr(i, 7) = "" Then arr(i, 7) = Int(arr(i, 5))
                If arr(i, 7) >= 0 Then arr(i, 7) = Int(arr(i, 7))
                If arr(i, 7) >= 0 Then arr(i, 13) = Round(arr(i, 7) * 0.856784123165432, 0)
            End If
        Next
        .Value = arr
    End With
End Sub

Zamyi

数组中不会变，是在写回单元格时变了。
range("q:q")=NumberFormatLocal = "@"
[a1].CurrentRegion = Arr

hhjjpp

Arr(r, 7) = Int(Arr(r, 5))
改成：
Arr(r, 7) = "'"&Int(Arr(r, 5))

这是vba的特点文本型数字视为数值，唯有预置单引做实，尤其是赋值给单元格时
vba里的isnumeric函数也不区分文本型数字还是数值

七喜2016

zhaogang1960 发表于 2016-8-26 22:59
避开Q列：
Sub Macro1()
    Dim arr, i&

但是我的代码有点多
您能给我看看 怎么变Q 回避开

1. Sub 本地化()
   
2. Dim Arr, r&
   
3.     Arr = [a1].CurrentRegion
   
4.     r = 2
   
5.      Do While Arr(r, 5) <> ""                                                      '循环r行E列不为空的值
   
6.      If Arr(r, 5) > 0 Then Arr(r, 7) = Int(Arr(r, 5)) '如果r行E列值大于等于0,那么i行E列=G列单元格值
   
7.      If Arr(r, 7) = "" Then Arr(r, 7) = Int(Arr(r, 5)) '如果G列为空,G等于E的值
   
8.      If Arr(r, 7) >= 0 Then Arr(r, 7) = Int(Arr(r, 7))
   
9.      If Arr(r, 7) >= 0 Then Arr(r, 13) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行E列值大于等于0,那么i行M列 值等于i行M列*0.85
   
10.      If Arr(r, 9) = "" Then Arr(r, 9) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行I列值为空,那么i行I列*0.85的整数.
    
11.      If Arr(r, 9) = 0 Then Arr(r, 9) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行I列值为空,那么i行I列*0.85的整数
    
12.      If Arr(r, 9) > 0 Then Arr(r, 9) = Int(Arr(r, 9))                           'I列不为小数
    
13.      If Arr(r, 6) > 0 Then Arr(r, 15) = Val(Arr(r, 6))                           'K列等于F列值为数字
    
14.      If Arr(r, 9) >= Arr(r, 15) Then Arr(r, 9) = Round(Arr(r, 15), 0)                     '如果I列>=K,那么I=K
    
15.      If Arr(r, 9) >= Arr(r, 13) Then Arr(r, 9) = Arr(r, 13)                    '如果I列>=M,那么I=M
    
16.      If Arr(r, 7) <= 2 And Arr(r, 7) > 0 Then Arr(r, 9) = Round(Arr(r, 7) * 0.58, 0)
    
17.      If Arr(r, 9) <> "" And Arr(r, 9) <> 0 Then Arr(r, 15) = Arr(r, 7) / Arr(r, 9) '验证
    
18.      If Arr(r, 15) >= 2.8 Then Arr(r, 9) = Round(Arr(r, 7) * 0.6275, 0)
    
19.      If Arr(r, 9) > 10 And Right(Arr(r, 9), 1) <= 3 Then Arr(r, 9) = Mid(Arr(r, 9), 1, Len(Arr(r, 9)) - 1) & 0
    
20.      If Arr(r, 5) < 1 And Arr(r, 5) > 0 Then Arr(r, 7) = Arr(r, 5)
    
21.      If Arr(r, 5) < 1 And Arr(r, 5) > 0 Then Arr(r, 9) = Arr(r, 5)
    
22.      If Arr(r, 15) >= 0 Then Arr(r, 15) = ""                                   ' 删除K,M里面的值 成功
    
23.      If Arr(r, 13) >= 0 Then Arr(r, 13) = ""                                   ' 删除K,M里面的值 成功
    
24.     r = r + 1
    
25.     If r > UBound(Arr) Then Exit Do
    
26.     Loop
    
27.     [a1].CurrentRegion = Arr
    
28.     End Sub
    

复制代码

七喜2016

hhjjpp 发表于 2016-8-27 14:22
Arr(r, 7) = Int(Arr(r, 5))
改成：
Arr(r, 7) = "'"&Int(Arr(r, 5))

老师 我知道这样可以， 但是 单元格 里面的数值会带"'"

七喜2016

Zamyi 发表于 2016-8-27 08:55
数组中不会变，是在写回单元格时变了。
range("q:q")=NumberFormatLocal = "@"
[a1].CurrentRegion = Arr

老师这个没有成功！~

七喜2016

Zamyi 发表于 2016-8-27 08:55
数组中不会变，是在写回单元格时变了。
range("q:q")=NumberFormatLocal = "@"
[a1].CurrentRegion = Arr

Sub 本地化()
Dim Arr, r&
    Arr = [a1].CurrentRegion
    r = 2
     Do While Arr(r, 5) <> ""                                                      '循环r行E列不为空的值
     If Arr(r, 5) > 0 Then Arr(r, 7) = Int(Arr(r, 5)) '如果r行E列值大于等于0,那么i行E列=G列单元格值
     If Arr(r, 7) = "" Then Arr(r, 7) = Int(Arr(r, 5)) '如果G列为空,G等于E的值
     If Arr(r, 7) >= 0 Then Arr(r, 7) = Int(Arr(r, 7))
     If Arr(r, 7) >= 0 Then Arr(r, 13) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行E列值大于等于0,那么i行M列 值等于i行M列*0.85
     If Arr(r, 9) = "" Then Arr(r, 9) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行I列值为空,那么i行I列*0.85的整数.
     If Arr(r, 9) = 0 Then Arr(r, 9) = Round(Arr(r, 7) * 0.856784123165432, 0)  '如果r行I列值为空,那么i行I列*0.85的整数
     If Arr(r, 9) > 0 Then Arr(r, 9) = Int(Arr(r, 9))                           'I列不为小数
     If Arr(r, 6) > 0 Then Arr(r, 15) = Val(Arr(r, 6))                           'K列等于F列值为数字
     If Arr(r, 9) >= Arr(r, 15) Then Arr(r, 9) = Round(Arr(r, 15), 0)                     '如果I列>=K,那么I=K
     If Arr(r, 9) >= Arr(r, 13) Then Arr(r, 9) = Arr(r, 13)                    '如果I列>=M,那么I=M
     If Arr(r, 7) <= 2 And Arr(r, 7) > 0 Then Arr(r, 9) = Round(Arr(r, 7) * 0.58, 0)
     If Arr(r, 9) <> "" And Arr(r, 9) <> 0 Then Arr(r, 15) = Arr(r, 7) / Arr(r, 9) '验证
     If Arr(r, 15) >= 2.8 Then Arr(r, 9) = Round(Arr(r, 7) * 0.6275, 0)
     If Arr(r, 9) > 10 And Right(Arr(r, 9), 1) <= 3 Then Arr(r, 9) = Mid(Arr(r, 9), 1, Len(Arr(r, 9)) - 1) & 0
     If Arr(r, 5) < 1 And Arr(r, 5) > 0 Then Arr(r, 7) = Arr(r, 5)
     If Arr(r, 5) < 1 And Arr(r, 5) > 0 Then Arr(r, 9) = Arr(r, 5)
     If Arr(r, 15) >= 0 Then Arr(r, 15) = ""                                   ' 删除K,M里面的值 成功
     If Arr(r, 13) >= 0 Then Arr(r, 13) = ""                                   ' 删除K,M里面的值 成功
    r = r + 1
    If r > UBound(Arr) Then Exit Do
    Loop
range("q:q")=NumberFormatLocal = "@"
    [a1].CurrentRegion = Arr
    End Sub

Zamyi

七喜2016 发表于 2016-8-29 10:30
老师这个没有成功！~

没有问题。

七喜2016

Zamyi 发表于 2016-8-29 16:43
没有问题。

真的！~ 多谢老师！~