手动数据更新写VBA

weifengcz · 发表于 2018-6-7 00:39

手动数据更新写VBA

手动数据更新.rar (108.51 KB, 下载次数: 9)

weifengcz · 发表于 2018-6-7 00:43

？？？？？？？？？？？？？

朱荣兴 · 发表于 2018-6-7 07:06

提示: 作者被禁止或删除内容自动屏蔽

weifengcz · 发表于 2018-6-7 07:11

朱荣兴发表于 2018-6-7 07:06
本人不会写VBA。。。。。。请大神老师好！写VBA是输入数据更新F1009,G1009,H1009,I1009,J1009。万分感谢大 ...

你好！复制F1009:J1009转粘贴F1007:J1007

weifengcz · 发表于 2018-6-7 07:12

weifengcz 发表于 2018-6-7 07:11
你好！复制F1009:J1009转粘贴F1007:J1007

早安！复制F1009:J1009转粘贴F1007:J1007

weifengcz · 发表于 2018-6-7 10:14

朱荣兴发表于 2018-6-7 07:06
本人不会写VBA。。。。。。请大神老师好！写VBA是输入数据更新F1009,G1009,H1009,I1009,J1009。万分感谢大 ...

Sub 手动福彩3D添加更新()
Range("f8:j1007").Select
Selection.Copy
Range("F8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("F1007").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Range("g1007").Select
ActiveCell.FormulaR1C1 = "=R[-1]C+1"
Dim i%, n%
n = Range("h65536").End(3).Row + 0
Range("h" & n) = Range("h1009").Value
Range("i" & n) = Range("i1009").Value
Range("j" & n) = Range("j1009").Value
End Sub

无法更新，写VBA有问题，请指教！！！

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

朱荣兴朱荣兴当前离线性别保密 UID 1318548 阅读权限 0 注册时间 2011-2-2 在线时间小时最后登录 1970-1-1 积分 19282 财富分享技术精华头像被屏蔽 TA的精华主题 TA的得分主题	发表于 2018-6-7 07:06 \| 显示全部楼层 [广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★使用手册★ 提示: 作者被禁止或删除内容自动屏蔽

	回复举报

[求助] 手动数据更新写VBA