2个数组比较格式不同

wjhoftxz

2个数组，分别在A列和B列，表格中的数值是一样的，但进行数组比较时，发现格式不同。把格式改成文本格式，也还是存在不同，无法按字典法进行比较。如何编写代码使2个数组的结果均为相同。

MOY838840554

一个数字,一个是文本,比较时永远都是文本大,如果是比较不同,用CSTR将数字转成文本,如果要比大小,就将文本*1装成数值

lcluck2002

如果两列全是数值，可以先一空单元格，复制，然后选中两列区域，选择性粘贴，数值，运算选择 ”加“，如此操作，两列都是数值了，都相等了。用VBA的话，把上面步骤翻译成代码就是了。

wjhoftxz

MOY838840554 发表于 2024-9-18 16:20
一个数字,一个是文本,比较时永远都是文本大,如果是比较不同,用CSTR将数字转成文本,如果要比大小,就将文本*1 ...

为什么用.NumberFormatLocal = "@"转成文本不行呢？

smuuwl

arr的值有双引号，说明是文本。
可以用Val把文本转数字，也可以用Cstr把数字转文本，上面说的*1都可以

ykcbf1100

wjhoftxz 发表于 2024-9-18 16:55
为什么用.NumberFormatLocal = "@"转成文本不行呢？

如果要数字转为文本格式，还是应该用cstr函数的。
.NumberFormatLocal = "@"只是把写入的范围设为文本格式，并不代码数组也转为文本格式了。

wjhoftxz

ykcbf1100 发表于 2024-9-18 18:51
如果要数字转为文本格式，还是应该用cstr函数的。
.NumberFormatLocal = "@"只是把写入的范围设为文本格 ...

大神，代码该如何编写？试着用遍历每个单元格并将值转换为文本，还是不行

ykcbf1100

wjhoftxz 发表于 2024-9-19 08:16
大神，代码该如何编写？试着用遍历每个单元格并将值转换为文本，还是不行

没完全搞懂你的意思，所以就写了二个，一个是AB列比较，另一个是AB列做成一样。

用一个数组足够，楼主是想复杂了。

ykcbf1100

代码供参考。。。

1. Sub ykcbf()  '//2024.9.19    A、B列比较
   
2.     With Sheets("Sheet1")
   
3.         r = .Cells(Rows.Count, 1).End(3).Row
   
4.         arr = .[a1].Resize(r, 4)
   
5.         For i = 1 To UBound(arr)
   
6.             If arr(i, 1) = arr(i, 2) Then
   
7.                 arr(i, 4) = "相同"
   
8.             Else
   
9.                 arr(i, 4) = "格式不同"
   
10.             End If
    
11.         Next
    
12.         .[d1].Resize(r, 1) = Application.Index(arr, 0, 4)
    
13.     End With
    
14. End Sub
    
15. 
    
16. Sub ykcbf2()  '//2024.9.19    A、B列做成一样
    
17.     With Sheets("Sheet1")
    
18.         r = .Cells(Rows.Count, 1).End(3).Row
    
19.         arr = .[a1].Resize(r, 2)
    
20.         For i = 1 To UBound(arr)
    
21.             arr(i, 1) = CStr(arr(i, 1))
    
22.             arr(i, 2) = CStr(arr(i, 2))
    
23.         Next
    
24.          .[a1].Resize(r, 2) = arr
    
25.     End With
    
26. End Sub
    

复制代码

wjhoftxz

ykcbf1100 发表于 2024-9-19 08:30
没完全搞懂你的意思，所以就写了二个，一个是AB列比较，另一个是AB列做成一样。

用一个数组足够，楼主 ...

非常感谢，这么及时，而且代码简洁明了我用的字典法，要用在其他代码中