[已解决]急求:高难VBA坐标组合后转换成名称和数量

PC8888

急求：VBA坐标组合后转换成名称和数量

最佳答案

月排行榜 / 总排行榜

grf1973

2016-3-10 10:31

1. Sub tt()
   
2.     arr = Range("a2:h11")
   
3.     ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 2)
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             If Len(arr(i, j)) > 0 Then
   
7.                 n = n + 1
   
8.                 brr(n, 1) = arr(i, 1) & "/" & arr(1, j)
   
9.                 brr(n, 2) = arr(i, j)
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     [J3].Resize(n, 2) = brr
    
14. End Sub
    

复制代码

跳转到最佳答案楼层

悠悠05

请参考这个题是一样的http://www.excelpx.com/thread-376218-1-1.html

wp8680

看不出难度在什么地方

PC8888

悠悠05 发表于 2016-3-10 10:17
请参考这个题是一样的http://www.excelpx.com/thread-376218-1-1.html

你说得对，有相似之处。但倒过来转换，我就不会了，望指点！

grf1973

1. Sub tt()
   
2.     arr = Range("a2:h11")
   
3.     ReDim brr(1 To UBound(arr) * UBound(arr, 2), 1 To 2)
   
4.     For i = 2 To UBound(arr)
   
5.         For j = 2 To UBound(arr, 2)
   
6.             If Len(arr(i, j)) > 0 Then
   
7.                 n = n + 1
   
8.                 brr(n, 1) = arr(i, 1) & "/" & arr(1, j)
   
9.                 brr(n, 2) = arr(i, j)
   
10.             End If
    
11.         Next
    
12.     Next
    
13.     [J3].Resize(n, 2) = brr
    
14. End Sub
    

复制代码