《别怕，Excel VBA其实很简单》视频导读第2季 - 免费观看与下载

符合 · 发表于 2012-12-5 14:17

本帖最后由符合于 2012-12-6 00:37 编辑

请教:在excel2003表中为减少数据占用空间和提高运行速度，在出现新纪录时将上一行(一行内各单元格格式和公式都不相同）复制到下一行，再将上一行本身复制粘贴成数值格式，直到新纪录结束为止，保留最后一行含有公式。我用了do while -loop及其他语句编的宏命令都不行。

Sub 公式复制转数值存储()
Dim i As Single
i = 760
Do While Range("A" & i).Value <> ""
Rows("i:i").Select
Selection.AutoFill Destination:=Rows("i:(i+1)"), Type:=xlFillDefault
Rows("i:(i+1)").Select
   Rows("i:i").Select
Selection.Copy
   Rows("i:i").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
      :=False, Transpose:=False
Rows("i:(i+1)").Select
Loop
End Sub
   哪位高手帮忙改一下！

ecky · 发表于 2012-12-5 22:42

结合课本，努力学习

hahaangel · 发表于 2012-12-6 12:15

谢谢分享，先下载下来，有时间再看

xueyou654 · 发表于 2012-12-6 21:28

为什么我下载乱码了，楼主请帮忙，急啊，有没有快盘的？？？

uustudy · 发表于 2012-12-7 12:10

感谢楼主的无私奉献

莫草 · 发表于 2012-12-7 15:26

谢谢分享

xueyou654 · 发表于 2012-12-7 18:58

怎么没人回复我了？？？？我下载乱码。

月满西楼雪 · 发表于 2012-12-7 20:59

我以购买正在学习中

那点都不会 · 发表于 2012-12-8 16:19

进来学习学习新鲜的东西

jianyq · 发表于 2012-12-9 20:14

书很不错，期待更多的视频，谢谢老师！

		自动登录	找回密码
密码			免费注册