使用cells属性_百度文库
两大类热门资源免费畅读
续费一年阅读会员，立省24元！
使用cells属性
总评分3.8|
浏览量764766
用知识赚钱
阅读已结束，下载文档到电脑
想免费下载更多文档？
定制HR最喜欢的简历
下载文档到电脑，方便使用
还剩1页未读，继续阅读
定制HR最喜欢的简历
你可能喜欢更多频道内容在这里查看
爱奇艺用户将能永久保存播放记录
过滤短视频
暂无长视频（电视剧、纪录片、动漫、综艺、电影）播放记录，
按住视频可进行拖动
&正在加载...
收藏成功，可进入
查看所有收藏列表
当前浏览器仅支持手动复制代码
视频地址：
flash地址：
html代码：
通用代码：
通用代码可同时支持电脑和移动设备的分享播放
用爱奇艺APP或微信扫一扫，在手机上继续观看
当前播放时间：
一键下载至手机
限爱奇艺安卓6.0以上版本
使用微信扫一扫，扫描左侧二维码，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/udn
下载安装包到本机：
设备搜寻中...
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
连接失败！
请确保您要连接的设备（仅限安卓）登录了同一爱奇艺账号 且安装并开启不低于V6.0以上版本的爱奇艺客户端
部安卓（Android）设备，请点击进行选择
请您在手机端下载爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
其他安装方式：手机浏览器输入短链接http://71.am/udn
下载安装包到本机：
爱奇艺云推送
请您在手机端登录爱奇艺移动APP（仅支持安卓客户端）
使用微信扫一扫，下载爱奇艺移动APP
180秒后更新
打开爱奇艺移动APP，点击“我的-扫一扫”，扫描左侧二维码进行登录
没有安装爱奇艺视频最新客户端？
正在检测客户端...
您尚未安装客户端，正在为您下载...安装完成后点击按钮即可下载
， 可在设置中重新打开噢！
30秒后自动关闭
100间牢房 100Cells 第1-10关 过关方法攻略">100间牢房 100Cells 第1-10关 过关方法攻略
请选择打赏金额：
播放量12.7万
播放量数据：快去看看谁在和你一起看视频吧~
更多数据：
Copyright (C) 2017
All Rights Reserved
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制
安装爱奇艺视频客户端，
马上开始为您下载本片
5秒后自动消失
&li data-elem="tabtitle" data-seq="{{seq}}"& &a href="javascript:void(0);"& &span>{{start}}-{{end}}&/span& &/a& &/li&
&li data-downloadSelect-elem="item" data-downloadSelect-selected="false" data-downloadSelect-tvid="{{tvid}}"& &a href="javascript:void(0);"&{{pd}}&/a&
选择您要下载的《
色情低俗内容
血腥暴力内容
广告或欺诈内容
侵犯了我的权力
还可以输入
您使用浏览器不支持直接复制的功能，建议您使用Ctrl+C或右键全选进行地址复制Excel vba 把某个单元格cells(1,1)的公式下拉到cells(100,1)怎么写?_百度知道
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。
Excel vba 把某个单元格cells(1,1)的公式下拉到cells(100,1)怎么写?
Excel vba 把某个单元格cells(1,1)的公式下拉到cells(100,1)怎么写?
我有更好的答案
&A1:A100&),&Type:=xlFillDefault&A1:A100&).SelectEnd&Range(&&&nbsp下面的代码就可以：Sub&宏1()&&&&Range(&A1&).Select&&&&Selection.AutoFill&Destination:=Range(&quot
你这个是自己录的啊!
是录的，我的VBA代码多数都是录制的。话说，这个录制的代码满足你的要求么？
哈哈,我主要是学习用的.这样直接搬运学不到东西.
你这里来提问，让别人给你代码，无论他录的还是写的，对你有区别么
我会分析的,我以前都是录,后来套用别人的,现在会写点了..
我估计几乎所有的高手都是从录开始的，比如录了上面的代码，你可以如下简写：Range(&A1&).AutoFill Destination:=Range(&A1:A100&), Type:=xlFillDefault一个语句完成了，懂了什么叫做.Select、Selection就能做到这一步，后面的语句一看就不是必须的。如果在AutoFill上按下F1，看看Type有哪些可选项，你就可以写出无法录制得来的代码，就成为高手了。此外，还可以利用End、UsedRange等方法获得工作表有效内容的行数，这样就不用是100了，而实现了填充到底部的功能。关键不是代码怎么来，而是看见别人的代码后是否思考，只要思考就会成长。不好意思，说多了，祝你节日快乐。
p>　　像这样就可以:Sub&宏1()For&1&To&100Cells(i;i&=&1)&=&1NextEnd&Sub　　里面的=1就是你说的公式,cells(i,&nbsp
我知道这个,主要是公式比如A1=B1+C1里面是写 &B&&i&&C&&i 这样也太傻了,有的公式我写了好十多个函数,怎么可以一个个改吗?
你贴一下你的完整的代码,看看.这样有点不是很清晰.
这么多不能一个个改唉,要是少的话还行..
你的意思是有多列，都要往下填充到100行去？
对对,就是好几十列,拉到A列最大活动单元格
那试试这个（把下面的range里的区域改成你的实际区域）：Sub&宏1()Row&=&Range(&A65536&).End(3).Row&&&&Range(&B1:E&&&&Row).FillDownEnd&Sub
本回答被网友采纳
为您推荐：
其他类似问题
excel的相关知识
换一换
回答问题，赢新手礼包}