VBA跨表取3列数据复制到另外一个工作表

中华美德 · 发表于 2019-12-3 12:48

拼音佳佳发表于 2019-12-2 08:15
位置固定的录下来,位置不固定的改成动态代码...

位置不固定的如何才能改成动态代码..

拼音佳佳 · 发表于 2019-12-3 21:17

中华美德发表于 2019-12-2 11:14
w = Array("代码", "名称", "1部门金额(元)2019.11.29", "2部门金额(元)2019.11.29", "比(%)2019.11.29", " ...

找个单元格a1写入today的公式,然后把它变成不规范的年.月.日,
替换成 range("a1").value

中华美德 · 发表于 2019-12-4 12:38

本帖最后由中华美德于 2019-12-4 12:42 编辑

拼音佳佳发表于 2019-12-3 21:17
找个单元格a1写入today的公式,然后把它变成不规范的年.月.日,
替换成 range("a1").value

A1=today 显示 #NAME?

拼音佳佳 · 发表于 2019-12-4 12:41

中华美德发表于 2019-12-4 12:38
A1=today 显示 #NAME?

公式要有括号.
公式的基础都不会,摇头...

你先学习EXCEL十大基础函数的用法再去想别的吧.

中华美德 · 发表于 2019-12-4 20:49

拼音佳佳发表于 2019-12-4 12:41
公式要有括号.
公式的基础都不会,摇头...

老师帮助一下吧就在我原来代码修改一下？

中华美德 · 发表于 2019-12-5 19:54

liulang0808 发表于 2019-12-2 19:45
楼主核对下代码吧，跟楼上有无出入的

老师你抽空重新写一下，上面代码不能通过

liulang0808 · 发表于 2019-12-5 21:37

中华美德发表于 2019-12-5 19:54
老师你抽空重新写一下，上面代码不能通过

你的代码抄错了吧。。。怎么能运行?

中华美德 · 发表于 2019-12-6 16:03

本帖最后由中华美德于 2019-12-6 16:04 编辑

liulang0808 发表于 2019-12-5 21:37
你的代码抄错了吧。。。怎么能运行?

老师我用复制粘贴过来的。还是不行，学生能力不足，希望老师亲自测试一下，十分感谢！

liulang0808 · 发表于 2019-12-6 19:45

供参考。。。。。。

中华美德 · 发表于 2019-12-6 20:37

本帖最后由中华美德于 2019-12-6 20:45 编辑

liulang0808 发表于 2019-12-6 19:45
供参考。。。。。。

先感谢忙中抽时间给解答，老师的VBA程序可以执行，您没有理解我的意思，是我表达不清楚：1结账数据源的日期每一天都在变化今天是2019.12.06，明天2019.12.07，后天2019.12.08；一个月下来就是30张长长的账单，要求VBA代码能够通用

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