车载蓝牙配对密码:Excel里面有很多数据,想有规律按顺序提取怎么办,比如说在一组数据中提取第5、10、15、20等数据,谢谢

来源:百度文库 编辑:高校问答 时间:2024/04/30 05:48:48

要了解一下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

用vba写代码,和vb差不多,具体可以找找vba的教材。

在工具--“宏”中,先录制宏,然后修改下就行
跟vb类似,
循环一下