Office中国论坛/Access中国论坛

标题: [求助]急问，用编程或自定义函数实现自动填充的问题！！！ [打印本页]

---

作者: ellacong    时间: 2006-1-19 13:31
标题: [求助]急问，用编程或自定义函数实现自动填充的问题！！！
我想实现这样的功能：

在sheet1的a1至cz1单元格里输入数据的时候，自动在sheet2的a1至a104单元格里相应生成数据，即sheet1!a1=sheet2!a1, sheet1!b1=sheet2!a2, sheet1!c1=sheet2!a3...以此类推，相当于是把sheet1里的数据转置生成在sheet2里。我知道可以在sheet2的每个单元格里输入“=sheet1!a1”这样的式子，但要一个一个的输入104个式子，实在麻烦了一些，如果数据更多的话，就更麻烦了。所以我想通过编程或自定义函数来自动实现这个功能。不知道各位大人能不能帮忙想一下应该如何编写代码？小女子不胜感激！

[em04][em04][em04]

---

作者: shxxfgqj    时间: 2006-1-19 17:16
For i = 1 To 104
Worksheets("sheet2").Range(Cells(i, 1), Cells(i, 1)).FormulaR1C1 = "=sheet1!R1C" & Trim(Str(i))
Next i

---

作者: ghost_jack    时间: 2006-1-20 18:55
^_^～  2楼，你这样做，还不如用个复制，转置粘贴吧，

用组函数吧！

http://www.office-cn.net/forum.php?mod=viewthread&tid=35895

---

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)

Powered by Discuz! X3.3