[已解决]提取数据

fangniuji

提取数据,谢谢帮忙！！

最佳答案

月排行榜 / 总排行榜

lzclzch

2012-8-24 22:17

Private Sub CommandButton1_Click()
Dim arr, i%, m%, brr(1 To 1000, 1 To 10)
n = Application.Match("%", Range("b1:b" & Range("b65536").End(3).Row), 0)
arr = Range("b1:b" & Range("b65536").End(3).Row)
For i = 1 To UBound(arr)
If Left(arr(i, 1), 1) = "T" And Len(arr(i, 1)) = 3 Then
m = m + 1: r = 0
End If
If (i > n And Len(arr(i, 1)) > 3) Or (Left(arr(i, 1), 1) = "T" And Len(arr(i, 1)) = 3) Then
r = r + 1
brr(r, m) = arr(i, 1)
End If
Next
Range("e1").Resize(r, m) = brr
End Sub

跳转到最佳答案楼层

lzclzch

Private Sub CommandButton1_Click()
Dim arr, i%, m%, brr(1 To 1000, 1 To 10)
n = Application.Match("%", Range("b1:b" & Range("b65536").End(3).Row), 0)
arr = Range("b1:b" & Range("b65536").End(3).Row)
For i = 1 To UBound(arr)
If Left(arr(i, 1), 1) = "T" And Len(arr(i, 1)) = 3 Then
m = m + 1: r = 0
End If
If (i > n And Len(arr(i, 1)) > 3) Or (Left(arr(i, 1), 1) = "T" And Len(arr(i, 1)) = 3) Then
r = r + 1
brr(r, m) = arr(i, 1)
End If
Next
Range("e1").Resize(r, m) = brr
End Sub

hrpotter

理解错误，想复杂了！

YXJ01