设为首页收藏本站

开启辅助访问

Excel精英培训网»论坛 › Excel 求助区 › Excel VBA开发 › 用VBA的方法提取所需的数。

数据透视表40+个常用小技巧，让你一次学会！

发新帖

查看: 1452|回复: 2

[已解决]用VBA的方法提取所需的数。

发表于 2012-1-8 21:47 | 显示全部楼层 |阅读模式

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

用VBA的方法提取所需的数。

最佳答案

月排行榜 / 总排行榜

sunjing-zxl

2012-1-8 22:19

本帖最后由 sunjing-zxl 于 2012-1-8 22:20 编辑

Sub aa()
Dim arr, arr1
Dim i As Long, j As Long
Range(Cells(1, 2), Cells(65536, "IV")).ClearContents
arr = Range("A1:A" & [A65536].End(xlUp).Row)
ReDim arr1(1 To 50, 1 To Int(UBound(arr) / 2) + 1)
For i = 1 To UBound(arr1, 2)
For j = 1 To UBound(arr1)
If i + j * (i - 1) > UBound(arr) Then
Exit For
Else
arr1(j, i) = arr(i + j * (i - 1), 1)
End If
Next j
Next i
Range("B1").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
End Sub

复制代码

附件：

TT-sunjing.rar (11.9 KB, 下载次数: 17)

7.88 KB, 下载次数: 8

回复

使用道具举报

工作中最常用的函数公式，全印在一张超大的鼠标垫上

楼主| 发表于 2012-1-8 21:48 | 显示全部楼层

工作中常用的Excel函数公式，全印在一张超大鼠标垫上

本帖最后由 tting 于 2012-1-8 21:48 编辑

考虑到当有几千行时，可能运行慢。
可以将结果规定为列显示600列、行50行（最多间隔50格）

回复

使用道具举报

发表于 2012-1-8 22:19 | 显示全部楼层本楼为最佳答案

工作中最常用的Excel函数公式，全印在一张鼠标垫上

这个最佳答案由 sunjing-zxl 给出，感谢 sunjing-zxl 的回答。

单击隐藏图章

本帖最后由 sunjing-zxl 于 2012-1-8 22:20 编辑

Sub aa()
Dim arr, arr1
Dim i As Long, j As Long
Range(Cells(1, 2), Cells(65536, "IV")).ClearContents
arr = Range("A1:A" & [A65536].End(xlUp).Row)
ReDim arr1(1 To 50, 1 To Int(UBound(arr) / 2) + 1)
For i = 1 To UBound(arr1, 2)
For j = 1 To UBound(arr1)
If i + j * (i - 1) > UBound(arr) Then
Exit For
Else
arr1(j, i) = arr(i + j * (i - 1), 1)
End If
Next j
Next i
Range("B1").Resize(UBound(arr1), UBound(arr1, 2)) = arr1
End Sub

复制代码

附件：

TT-sunjing.rar (11.9 KB, 下载次数: 17)

回复

使用道具举报

发新帖

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-5-17 07:36 , Processed in 0.240812 second(s), 11 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表