求助，如何快速替换大量单元格内容

autumnray

需要将大量如

所投包号/标段  (类别)

34 35 37 38 54 61 62 64 73 75 76

34 35 37 38 54 61 64 73 75 76

21 22 23 34 35 36 37 38 71 72 73 74 75 76

3 4 5 6 7 8 16 17 18 19 20 26 27 28 29 30 31 32 33 45 46 47 48  49 50 58 59 60 66 67 68 69 70 79 80 81 82 83 90 91 92 93 94 95 96

需要根据给定的数字所代表的包号如：

1	AK-1
2	AK-2
3	AK-3
4	AK-4
5	AK-5

将数字全部替换成包号写到另一个单元格里，不知道有什么简便的方法吗？

谢谢~~~ 与财务实收核对表（公式）4.4 - 副本.rar (46.47 KB, 下载次数: 4)

2018-4-5 13:38 上传

点击文件名下载附件

ww87725244

为什么模拟结果部分是少最后一个，有一些还少很多？是要去掉吗？

autumnray

ww87725244 发表于 2018-4-5 14:27
为什么模拟结果部分是少最后一个，有一些还少很多？是要去掉吗？

不要去掉，单元格里有几个数据就要替换成几个

ww87725244

1. Sub aa()
   
2. Dim arr, ar1, ar(), i&, k&, m&, ar2, s$, n&
   
3. With Sheet2
   
4.     arr = .Range(.Cells(1, 1), .Cells(.UsedRange.Rows.Count, 2))
   
5. End With
   
6. With Sheet1
   
7.     ar1 = .Range(.Cells(6, 3), .Cells(.UsedRange.Rows.Count, 3).End(xlUp))
   
8. End With
   
9. ReDim Preserve ar(1 To UBound(ar1), 1 To 1)
   
10. For i = 1 To UBound(ar1)
    
11.     ar2 = Split(ar1(i, 1))
    
12.     For k = 0 To UBound(ar2)
    
13.         For m = 1 To UBound(arr)
    
14.             If Val(ar2(k)) = arr(m, 1) Then
    
15.                 s = s & arr(m, 2) & " "
    
16.             End If
    
17.         Next
    
18.     Next
    
19.     n = n + 1
    
20.     ar(n, 1) = s
    
21.     s = ""
    
22. Next
    
23. Sheet1.Range("f6").Resize(UBound(ar), 1) = ar
    
24. End Sub

复制代码

autumnray

ww87725244 发表于 2018-4-5 15:42

谢谢！！！！！