5,139
社区成员
发帖
与我相关
我的任务
分享求教 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=VBScri]
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
- 打赏
- 举报
我也有此问题。
kennyjiang 2011-02-18
- 打赏
- 举报
复制－>选择性粘贴－>1)勾选公式和数字格式
2)勾选转置
2)勾选转置
tengjian1981 2011-02-18
- 打赏
- 举报
有没有朋友可以帮助下 谢谢
