[已解决]求vba

faiki

Book1.rar (1.64 KB, 下载次数: 8)

2014-6-27 14:22 上传

点击文件名下载附件

最佳答案

月排行榜 / 总排行榜

xdragon

2014-6-27 14:37

1. Sub t()
   
2.   Dim arr, re$(), i&, j%
   
3.   arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
   
4.   ReDim re(1 To UBound(arr), 1 To 9)
   
5.   For j = 1 To 9
   
6.      For i = 1 To UBound(arr)
   
7.         re(i, j) = Right(Mid(arr(i, 1), 1, 1) + j, 1) & Right(Mid(arr(i, 1), 2, 1) + j, 1) & Right(Right(arr(i, 1), 1) + j, 1)
   
8.      Next
   
9.   Next
   
10.   Range("C2").Resize(UBound(arr), 9) = re
    
11. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2.   Dim arr, re$(), i&, j%
   
3.   arr = Range("B2:B" & Cells(Rows.Count, 2).End(xlUp).Row).Value
   
4.   ReDim re(1 To UBound(arr), 1 To 9)
   
5.   For j = 1 To 9
   
6.      For i = 1 To UBound(arr)
   
7.         re(i, j) = Right(Mid(arr(i, 1), 1, 1) + j, 1) & Right(Mid(arr(i, 1), 2, 1) + j, 1) & Right(Right(arr(i, 1), 1) + j, 1)
   
8.      Next
   
9.   Next
   
10.   Range("C2").Resize(UBound(arr), 9) = re
    
11. End Sub

复制代码

qh8600

xdragon 发表于 2014-6-27 14:37

龙哥这里好像错了哎re(i, j) = Right(Mid(arr(i, 1), 1, 1) + 1, j)，1 和 j 换一下{:29:}

xdragon

qh8600 发表于 2014-6-27 15:44
龙哥这里好像错了哎re(i, j) = Right(Mid(arr(i, 1), 1, 1) + 1, j)，1 和 j 换一下

{:28:}你真火眼金睛，这都发现了。