Sub test()
Dim iMax AsLongDim var, cell
Sheet1.Range("A1:B6").AutoFilter Field:=1, Criteria1:="A"If Sheet1.AutoFilterMode Then
iMax = Sheet1.Range("A" & Rows.Count).End(xlUp).Row
var = Range("A2:B" & iMax)
EndIfForEach cell In var
Debug.Print cell
NextEndSub
非常感谢分享,但是完美excel第二期好像很难打开~~~
一直想出第二期,但一直没有时间.稍后吧.
大概在年底我会出第二期.
请问站长《完美Excel》还会继续往下出不?
下了第一期,做得很好啊!
贵blog是我搜索“不打开文件获取数据”时找到的,当时惊觉天人。发现不久,贵blog正好遭遇了主机危机,所有的数据都丢失了,当时我还在想是否能恢复,没曾想博主在3月到9月之间写了100篇美文,实在是可敬!
下面是对您提问的一个回复
² 您希望本博客是什么样的?
[b]专注于vba开发,多一些实例,可以作为vba开发的一个wiki[/b]
² 您需要本博客推出什么样的文章?
[b]对于目前的我,想了解一些excel与数据库相结合的文章[/b]
² 您经常使用Excel吗?您用Excel做什么?
[b]经常使用,主要用于财务分析以及下属公司上报资料表格的设计[/b]
² 您使用过VBA吗?一般用VBA来做什么?
[b]用过,主要是取代一些需手工重复的部分,如导入数据,每月数据自动拷贝等等。[/b]
² 如果您是VBA初学者,您希望学习些什么?
[b]希望通过实例来学习VBA,并且能够是交互式的。[/b]
² 您能分享一下Excel或VBA的使用经验吗?
[b]我现在尚属初学,个人认为,EXCEL以及VBA只有多用、多练方能提高
可以去exclehome中专门解决大家的疑难杂症,这样估计半年下来会小有所成。
呵呵,我还没有坚持下来。。惭愧[/b]
谢谢您对本站和我的关注,我会继续努力的.其实真实姓名不重要,重要的是能够给大家带来帮助.当然,如果您看到过《Excel VBA实战技巧精粹》或者是《Excel 2007 VBA参考大全》,一定知道我的真实姓名了,呵呵……网名fanjy
大师,你好!
看到你写的这么多文章,感觉真好,其实我也是一位EXCEL爱好者,对EXCEL比较感兴趣,但由于自己水平有限,对一些难度较大的问题也难以理解.以后得经常来这拜读啦,另外,能请问一下大师的真实姓名吗?冒昧了!
您好
有个小问题想请教您一下
如何获取“自动筛选”的结果集,并放入数组中
还请先生给看看
(excelperfect回复)
假设单元格区域A1:B6中有数据,其中第1行是标题行。那么自动筛选字段1(即列A)中的数据A且将筛选后的结果放入数组中的代码如下:
您可以附一个示例给我,我的邮箱:xhdsxfjy@163.com
你的站,单看”关于”都能感到您是个严谨、勤学、务实的人,非常钦佩欣赏。
我经常要用EXCEL整理数据,拿到这些例子如获至宝,开心啊
希望你的站能一直更新下去,谢谢你的共享精神~~~
若需要什么协助,请说好了,定尽力
(excelperfect回复)
谢谢!我会一直坚持的.
求教:
=INDEX(B:B,SMALL(IF($A$2:$A$25=$E$1,ROW($A$2:$A$25),65536),ROW(1:1))) & “”
然后同时按下Ctrl+Shift+Enter键,即输入数组公式,用数组公式求得的结果用SUM求和出结果显示为-
如何上传附件呢?有附件应该会好一些
(excelperfect回复)
我的邮箱 xhdsxfjy@163.com
你好啊兄弟~ 前些天我的博客因为没有备案被迫关闭了~ 我今天上了看兄弟把我的友情联系下了哦
我的博客已经恢复了~ 希望我们继续友情了~ 哈哈
(excelperfect回复)
已恢复.
谢谢您的支持和鼓励!
这是我第一次知道ExcelPerfect,看来主人是个高手,专门注册给你顶起!我在美国混,有什么帮得上的发email给我。
好好干哦,要坚持住哟,你是我的偶像哟,是大虾呀,金融危机没冲击到你吧!事在人为要坚持住,明天会好起来的.
精品文章 经常来拜读啦 就是老打不开哦
———————-
(excelperfect回复) 以后不会啦.谢谢支持.