[已解决]随机提取连续行数据

hhaa999

提取连续行数据

最佳答案

月排行榜 / 总排行榜

grf1973

2014-5-22 09:41

请看附件。

跳转到最佳答案楼层

wp8680

1. <blockquote>Sub tq()

复制代码

wp8680

1. Sub tq()
   
2.     Dim pat, ir%, il%, n%, arr
   
3.     Application.DisplayAlerts = Fasle    '表示禁止显示提示和警告消息
   
4.     pat = ThisWorkbook.Path
   
5.     Workbooks.Open pat & "/800.txt"
   
6.     ir = Range("a65536").End(xlUp).Row
   
7.     il = Cells(1, Cells.Columns.Count).End(xlToLeft).Column
   
8.     n = Int(Rnd() * (ir - 4)) + 1
   
9.     arr = Range(Cells(n, il), Cells(n + 4, il)).Value
   
10.     ActiveWorkbook.Close
    
11.     Range("a2").Resize(4, UBound(arr, 2)) = arr
    
12.     Range("A2:A5").Select
    
13.     Selection.TextToColumns Destination:=Range("A2"), DataType:=xlFixedWidth, _
    
14.             FieldInfo:=Array(Array(12, 1), Array(13, 1), Array(14, 1), Array(15, 1), Array(16, 1)) _
    
15.             , TrailingMinusNumbers:=True
    
16.     Application.DisplayAlerts = True    '表示显示提示和警告消息
    
17. End Sub

复制代码

qh8600

wp8680 发表于 2014-5-22 08:48

获取txt文件,要好好学学

grf1973

1. Sub ReadTxt()
   
2.     fn = FreeFile
   
3.     Dim arr()
   
4.     Open ThisWorkbook.Path & "\800.txt" For Input As #fn
   
5.     Do While Not EOF(fn)
   
6.         n = n + 1
   
7.         ReDim Preserve arr(n)
   
8.         Line Input #fn, arr(n)
   
9.         Debug.Print arr(n)
   
10.     Loop
    
11.     Close #fn
    
12.     Dim brr(1 To 4, 1 To 5)
    
13.     Randomize
    
14.     myrand = Int(((n - 3) * Rnd) + 1)
    
15.     For i = myrand To myrand + 3
    
16.         k = k + 1: x = arr(i): y = Right(x, 4)
    
17.         brr(k, 1) = Left(x, Len(x) - 5)
    
18.         brr(k, 2) = Mid(y, 1, 1)
    
19.         brr(k, 3) = Mid(y, 2, 1)
    
20.         brr(k, 4) = Mid(y, 3, 1)
    
21.         brr(k, 5) = Mid(y, 4, 1)
    
22.     Next
    
23.     [a14].Resize(4, 5) = brr
    
24. End Sub
    

复制代码

grf1973

请看附件。

su45

高手不少嘛！