[已解决]【求助】去除数据出现数据变动

xdwy81129

下面的宏是A,B列的重复值，保留从上到下的A列,B列比邻不相同的数据，可保留下来的B列数据由文本变成是数字形式，即原来是数据091109，宏运行后为91109，所以请老师修改下，让宏运行后的数据保留为原来的样式，即前面的O存在

Sub AB最初()
Dim arr, r As Long
r = Range("a65536").End(xlUp).Row
arr = Range("a2:b" & r)
For i = UBound(arr) To 2 Step -1
 If arr(i, 1) = arr(i - 1, 1) Then arr(i, 1) = ""
 If arr(i, 2) = arr(i - 1, 2) Then arr(i, 2) = ""
Next i
Range("a2:b" & r) = arr
End Sub

X7NizK1Q.rar (8.29 KB, 下载次数: 8)

2009-12-11 07:32 上传

点击文件名下载附件
【求助】去除数据出现数据变动

最佳答案

月排行榜 / 总排行榜

amulee

2009-12-11 09:16

Sub AB最初()
Dim arr, r As Long
r = Range("a65536").End(xlUp).Row
arr = Range("a2:b" & r)
For i = UBound(arr) To 2 Step -1
 If arr(i, 1) = arr(i - 1, 1) Then arr(i, 1) = ""
 If arr(i, 2) = arr(i - 1, 2) Then arr(i, 2) = ""
Next i
Range("a2:b" & r).NumberFormatLocal = "@"        '单元格格式改为文本
Range("a2:b" & r) = arr
End Sub

跳转到最佳答案楼层

amulee

Sub AB最初()
Dim arr, r As Long
r = Range("a65536").End(xlUp).Row
arr = Range("a2:b" & r)
For i = UBound(arr) To 2 Step -1
 If arr(i, 1) = arr(i - 1, 1) Then arr(i, 1) = ""
 If arr(i, 2) = arr(i - 1, 2) Then arr(i, 2) = ""
Next i
Range("a2:b" & r).NumberFormatLocal = "@"        '单元格格式改为文本
Range("a2:b" & r) = arr
End Sub

xdwy81129

谢谢，学习到了，感谢。