如何用VBA自动复制动态数据，并实现“行”转“列”

fenggu183 · 发表于 2011-2-17 17:57

请问：在“原始数据”工作表中数据每天更改一次，相应的“计算”工作表中日期及结果也发生变化，如何使用VBA实现在“复制”工作表中，将“计算”工作表的第二列数据复制到相对应日期的2→3列中（转置）。
谢谢！

fenggu183 · 发表于 2011-2-18 08:20

继续等待中

fenggu183 · 发表于 2011-2-18 11:22

急需等待中啊......

fenggu183 · 发表于 2011-2-18 17:07

继续等待中

山风 · 发表于 2011-2-18 18:37

Sub kk()
m = Application.Match([B7], Sheets("复制").[A1:IV1], 0)
Sheets("复制").Cells(2, m) = [A2]
Sheets("复制").Cells(3, m) = [B2]

End Sub

fenggu183 · 发表于 2011-2-21 10:54

不好意思，回复晚了。经验证，山风做的可行。
但还有个问题，就是这样只对少量的转变有用，如果是一列多个或一个区域的，将如何处理。
烦请山风大哥赐教。谢谢！

山风 · 发表于 2011-2-21 17:53

方法是要适合于具体的表格，而不能弄个万能的，所以你最好是把具体有附件发来，大家好想办法

law3886585 · 发表于 2018-10-3 21:44

好好学习，天天向上

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

[求助] 如何用VBA自动复制动态数据，并实现“行”转“列”