[已解决]求个vba

bhgyuj123

book1.rar (14.36 KB, 下载次数: 7)

2013-6-29 11:00 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

大灰狼1976

2013-6-29 12:19

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr, arr1, j&, n%, x As Byte, y As Byte, z As Byte
   
3. arr = Range("d3:d" & [d65536].End(3).Row)
   
4. ReDim arr1(1 To UBound(arr), 1 To 10)
   
5. For n = 0 To 9
   
6.   For i = 1 To UBound(arr)
   
7.     x = Val(Mid(arr(i, 1), 1, 1)) + n: If x > 9 Then x = x - 10
   
8.     y = Val(Mid(arr(i, 1), 2, 1)) + n: If y > 9 Then y = y - 10
   
9.     z = Val(Mid(arr(i, 1), 3, 1)) + n: If z > 9 Then z = z - 10
   
10.     arr1(i, n + 1) = x & y & z
    
11.   Next i
    
12. Next n
    
13. [n3].Resize(UBound(arr1), UBound(arr1, 2)) = arr1
    
14. End Sub

复制代码

跳转到最佳答案楼层

lyf7276

你的B列呢?

大灰狼1976

附件请测试

1. Private Sub CommandButton1_Click()
   
2. Dim arr, arr1, j&, n%, x As Byte, y As Byte, z As Byte
   
3. arr = Range("d3:d" & [d65536].End(3).Row)
   
4. ReDim arr1(1 To UBound(arr), 1 To 10)
   
5. For n = 0 To 9
   
6.   For i = 1 To UBound(arr)
   
7.     x = Val(Mid(arr(i, 1), 1, 1)) + n: If x > 9 Then x = x - 10
   
8.     y = Val(Mid(arr(i, 1), 2, 1)) + n: If y > 9 Then y = y - 10
   
9.     z = Val(Mid(arr(i, 1), 3, 1)) + n: If z > 9 Then z = z - 10
   
10.     arr1(i, n + 1) = x & y & z
    
11.   Next i
    
12. Next n
    
13. [n3].Resize(UBound(arr1), UBound(arr1, 2)) = arr1
    
14. End Sub

复制代码

大灰狼1976

应该就是你想要的效果

ling8510