Excel精英培训网

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

[已解决]从最后一行(无固定)隔10行向上填入公式

[复制链接]
发表于 2017-6-29 09:11 | 显示全部楼层 |阅读模式
本帖最后由 舒云天 于 2017-6-29 09:54 编辑

VBA从最后一行(无固定)隔10行向上填入公式。谢谢!
最佳答案
2017-6-29 09:33
本帖最后由 chart888 于 2017-6-29 09:38 编辑
  1. Private Sub CommandButton1_Click()
  2. Dim r, t, m, i
  3. r = Cells(Rows.Count, 3).End(xlUp).Row
  4. t = Int(r / 10)
  5. For n = 0 To t
  6.     i = r - 10 * n
  7.     Cells(i, 8) = Cells(i, 3) * 2
  8.     Cells(i, 9) = Cells(i, 4) * 2
  9.     Cells(i, 10) = Cells(i, 5) * 2
  10. Next
  11. End Sub
复制代码

隔10行向上填入公式.rar

1.99 KB, 下载次数: 3

从最后一行(无固定)隔10行向上填入公式

发表于 2017-6-29 09:33 | 显示全部楼层    本楼为最佳答案   
本帖最后由 chart888 于 2017-6-29 09:38 编辑
  1. Private Sub CommandButton1_Click()
  2. Dim r, t, m, i
  3. r = Cells(Rows.Count, 3).End(xlUp).Row
  4. t = Int(r / 10)
  5. For n = 0 To t
  6.     i = r - 10 * n
  7.     Cells(i, 8) = Cells(i, 3) * 2
  8.     Cells(i, 9) = Cells(i, 4) * 2
  9.     Cells(i, 10) = Cells(i, 5) * 2
  10. Next
  11. End Sub
复制代码

隔10行向上填入公式.zip

13.8 KB, 下载次数: 4

回复

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-3-29 06:28 , Processed in 0.508637 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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