Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 3160|回复: 5

[已解决]如何用代码把第一行公式自动复制到下面所有格

[复制链接]
发表于 2016-6-23 10:03 | 显示全部楼层 |阅读模式
本帖最后由 mathking77 于 2016-6-23 10:21 编辑

求教

A列为所有数值  我在B1输入公式 B1公式根据A1得出另一个数值, 我想自动对A列有数值的格全都在B列使用这个公式,
我知道可以双击右下角十字就行,但用代码应该怎么写, 我自己录制宏查看了代码 但代码是写明了第几格到第几格的,
我每次表格A列有数据的行数是不一样的,所以用代码需要如何写

求解答
最佳答案
2016-6-23 10:24
Range("B1").Copy Range("B2:B" & Range("A65536").End(3).Row)
excel精英培训的微信平台,每天都会发送excel学习教程和资料。扫一扫明天就可以收到新教程
发表于 2016-6-23 10:24 | 显示全部楼层    本楼为最佳答案   
Range("B1").Copy Range("B2:B" & Range("A65536").End(3).Row)

评分

参与人数 1 +6 收起 理由
02761752696 + 6 精辟 学习了

查看全部评分

回复

使用道具 举报

发表于 2016-6-23 10:52 | 显示全部楼层
本帖最后由 02761752696 于 2016-6-23 10:56 编辑

试试
gs.gif

自动对A列有数值的格全都在B列使用这个公式0623.rar

104 KB, 下载次数: 14

回复

使用道具 举报

 楼主| 发表于 2016-6-23 11:49 | 显示全部楼层
本帖最后由 mathking77 于 2016-6-23 11:54 编辑
02761752696 发表于 2016-6-23 10:52
试试

谢谢啦
回复

使用道具 举报

 楼主| 发表于 2016-6-23 11:56 | 显示全部楼层
zjdh 发表于 2016-6-23 10:24
Range("B1").Copy Range("B2:B" & Range("A65536").End(3).Row)

如果A列有空白格,B列用公式会得出0,我也需要B列也空白 应该怎么办
回复

使用道具 举报

发表于 2016-6-23 17:09 | 显示全部楼层
mathking77 发表于 2016-6-23 11:56
如果A列有空白格,B列用公式会得出0,我也需要B列也空白 应该怎么办

For I = 2 To Range("A65536").End(3).Row
If Cells(I, 1) <> "" Then Range("B1").Copy Cells(I, 2)
Next
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-28 23:39 , Processed in 0.427690 second(s), 14 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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