[已解决]请各位老师帮助，非常感谢

追梦人亮

请各位老师抽空看一下
想要把表一中所有12月31号的数据按列提取出来放到表二中，希望老师帮助！谢谢了

最佳答案

月排行榜 / 总排行榜

xdragon

2013-11-9 00:53

1. Sub t()
   
2. Dim arr(), brr(), i As Integer, j As Byte, counter As Byte
   
3. arr = Sheets("399300").Range("A1").CurrentRegion.Value
   
4. For j = 1 To UBound(arr, 2)
   
5.   If Right(arr(1, j), 4) = "1231" Then
   
6.     counter = counter + 1
   
7.     ReDim Preserve brr(1 To UBound(arr), 1 To counter + 1)
   
8.     For i = 1 To UBound(arr)
   
9.       brr(i, counter + 1) = arr(i, j)
   
10.     Next
    
11.   End If
    
12. Next
    
13. For i = 1 To UBound(arr)
    
14.   brr(i, 1) = arr(i, 1)
    
15. Next
    
16. Sheet2.Range("A1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
17. End Sub

复制代码

跳转到最佳答案楼层

xdragon

1. Sub t()
   
2. Dim arr(), brr(), i As Integer, j As Byte, counter As Byte
   
3. arr = Sheets("399300").Range("A1").CurrentRegion.Value
   
4. For j = 1 To UBound(arr, 2)
   
5.   If Right(arr(1, j), 4) = "1231" Then
   
6.     counter = counter + 1
   
7.     ReDim Preserve brr(1 To UBound(arr), 1 To counter + 1)
   
8.     For i = 1 To UBound(arr)
   
9.       brr(i, counter + 1) = arr(i, j)
   
10.     Next
    
11.   End If
    
12. Next
    
13. For i = 1 To UBound(arr)
    
14.   brr(i, 1) = arr(i, 1)
    
15. Next
    
16. Sheet2.Range("A1").Resize(UBound(brr), UBound(brr, 2)) = brr
    
17. End Sub

复制代码

追梦人亮

xdragon 发表于 2013-11-9 00:53

你好，非常感谢哈，再麻烦一下，怎么把对应千元的项目全部换成元，这样我就容易做趋势图了