帮忙编写VBA

YAPPyapp

各位大神~帮忙编写一下VBA。附件已上传，万分感谢，在线等{:soso_e183:}{:soso_e183:}{:soso_e183:}拜托拜托

YAPPyapp

恭候大师回复啊{:soso_e109:}

yiyiyicz

你是不是常这么求助啊？还要在线等
看你这求助帖里写的，估计VBA水平不低的人，也要写上几百行代码，
为了效果，还要和你反复几次。这还不说你的要求说得不清楚
千万不要真把这里变成找免费劳动力的场所！！！！

在VBA板块中默认的规则，超过500行的必须收费
你看看你的求助，属于哪种呢？

qw11112

做回雷锋 帮你吧表中唯一一个 代码补充了
Sub ¾ØDÎ1_Click()
Dim i
H = Sheets("èë¿a").Range("b65536").End(xlUp).Row + 1
Sheets("èë¿a").Cells(H, 2).Resize(1, 4) = Application.Transpose(Range("c7:c11"))
MsgBox "μ¼èë3é1|"
Sheets("DÅÏ￠¼èë").Range("c7:c15").ClearContents
End Sub

YAPPyapp

yiyiyicz 发表于 2015-7-10 08:03
你是不是常这么求助啊？还要在线等
看你这求助帖里写的，估计VBA水平不低的人，也要写上几百行代码，
为 ...

不好意思，谢谢提醒。新人，刚发现这个网站。请问你可以解决我的问题吗？望加QQ2210015809,可以的话私聊相应报酬。