Excel里面有很多数据,想有规律按顺序提取怎么办,比如说在一组数据中提取第5、10、15、20等数据,谢谢

如题所述

要了解一下VBA,以及EXCEL里面的一些对象,如:WorkSheet、Range等等。
给你举个简单的例子吧,假设当前工作表里有30行数据,你要取5的倍数行的数量相组合,那么就可以用以下代码来实现。

Sub GetDate()
Dim oRange As Range
Dim i As Integer
Dim intCount As Integer
Dim oSheet As Worksheet
Dim strReturn As String

'// 获取当前活动的工作表
Set oSheet = ActiveSheet
'// 获取当前有效的行数
intCount = oSheet.UsedRange.Cells.Rows.Count

'// 循环取数,步长为5
For i = 5 To intCount Step 5
strReturn = strReturn & "A" & i & "=" & oSheet.Range("A" & i).Value & ","
Next

MsgBox strReturn
Set oRange = Nothing
Set oSheet = Nothing
End Sub
温馨提示:答案为网友推荐,仅供参考
第1个回答  2006-08-25
在工具--“宏”中,先录制宏,然后修改下就行
跟vb类似,
循环一下
第2个回答  2006-08-25
用vba写代码,和vb差不多,具体可以找找vba的教材。
相似回答