现有列表想把行列互换
里面单元格有公式
copy选择性复制的话原表格还在，单元格内容的公式位置也改变了。
请问 有什么其他方法实现
------解决方案--------------------------------------------------------
复制－>选择性粘贴－>1)勾选公式和数字格式
2)勾选转置
------解决方案--------------------------------------------------------
我也有此问题。
------解决方案--------------------------------------------------------
[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。
------解决方案--------------------------------------------------------
对于公式你想如何变化？举例说明。
QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》