[已解决]大神帮忙看看这个需要怎么设置

v-cand

如题

最佳答案

月排行榜 / 总排行榜

qh8600

2015-5-17 13:37

v-cand 发表于 2015-5-17 13:27
不要变了。在B列显示就可以

新建 Microsoft Excel 工作表.rar (10.77 KB, 下载次数: 6)

2015-5-17 13:36 上传

点击文件名下载附件

跳转到最佳答案楼层

qh8600

为嘛是变成3列

v-cand

qh8600 发表于 2015-5-17 13:19
为嘛是变成3列

不要变了。在B列显示就可以

冥王

1. Sub demo()
   
2.     Dim arr, brr(), i%, j%
   
3.     With Sheets("数据")
   
4.         arr = .Range("A2:B" & .Cells(Rows.Count, "A").End(xlUp).Row)
   
5.     End With
   
6.     For i = LBound(arr) To UBound(arr)
   
7.         If arr(i, 1) = "李" Then
   
8.             j = j + 1
   
9.             ReDim Preserve brr(1 To j)
   
10.             brr(j) = arr(i, 2)
    
11.         End If
    
12.     Next
    
13.     Sheets("需要计算的").Range("B2").Resize(j, 1) = Application.Transpose(brr)
    
14. End Sub

复制代码

qh8600

v-cand 发表于 2015-5-17 13:27
不要变了。在B列显示就可以

新建 Microsoft Excel 工作表.rar (10.77 KB, 下载次数: 6)

2015-5-17 13:36 上传

点击文件名下载附件