5,172
社区成员
发帖
与我相关
我的任务
分享求教 Excel 行转列
现有列表想把行列互换
里面单元格有公式
copy选择性复制的话原表格还在，单元格内容的公式位置也改变了。
请问 有什么其他方法实现
里面单元格有公式
copy选择性复制的话原表格还在，单元格内容的公式位置也改变了。
请问 有什么其他方法实现
...全文
请发表友善的回复…
发表回复
ACMAIN_CHM 2011-02-19
- 打赏
- 举报
对于公式你想如何变化？举例说明。
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》
w20011025 2011-02-19
- 打赏
- 举报
[code=VBScrip]
For b = 1 To 16
For a = 1 To 12
Sheet2.Cells(a + 3 + 12 * (b - 1), 3) = Sheet1.Cells(2 + 5 * (b - 1), a + 1)
Sheet2.Cells(a + 3 + 12 * (b - 1), 4) = Sheet1.Cells(3 + 5 * (b - 1), a + 1)
Sheet2.Cells(a + 3 + 12 * (b - 1), 5) = Sheet1.Cells(4 + 5 * (b - 1), a + 1)
Sheet2.Cells(a + 3 + 12 * (b - 1), 6) = Sheet1.Cells(5 + 5 * (b - 1), a + 1)
Next
Next[/code]
代码供你参考，把表格1的值赋值给表格2。
For b = 1 To 16
For a = 1 To 12
Sheet2.Cells(a + 3 + 12 * (b - 1), 3) = Sheet1.Cells(2 + 5 * (b - 1), a + 1)
Sheet2.Cells(a + 3 + 12 * (b - 1), 4) = Sheet1.Cells(3 + 5 * (b - 1), a + 1)
Sheet2.Cells(a + 3 + 12 * (b - 1), 5) = Sheet1.Cells(4 + 5 * (b - 1), a + 1)
Sheet2.Cells(a + 3 + 12 * (b - 1), 6) = Sheet1.Cells(5 + 5 * (b - 1), a + 1)
Next
Next[/code]
代码供你参考，把表格1的值赋值给表格2。
w20011025 2011-02-19
- 打赏
- 举报
问题：如果把 sheet1中的B2：M2复制到C4：C15
把 sheet1中的B3：M3复制到D4：D15
用EXECL 宏实现？？？
把 sheet1中的B3：M3复制到D4：D15
用EXECL 宏实现？？？
tengjian1981 2011-02-18
- 打赏
- 举报
有没有朋友可以帮助下 谢谢
tengjian1981 2011-02-17
- 打赏
- 举报
转置如果 有公式的话 里面公式对应的公式指向的位置也会发生偏移
所以只能裁剪来做，而裁剪不支持转置功能
所以只能裁剪来做，而裁剪不支持转置功能
beyondcrab 2011-02-16
- 打赏
- 举报
选择性粘贴-->转置
