求教 Excel 行转列

[tengjian1981]

现有列表想把行列互换
里面单元格有公式
copy选择性复制的话原表格还在，单元格内容的公式位置也改变了。
请问 有什么其他方法实现

[beyondcrab]

选择性粘贴-->转置

[tengjian1981]

转置如果 有公式的话 里面公式对应的公式指向的位置也会发生偏移
所以只能裁剪来做，而裁剪不支持转置功能

[tengjian1981]

有没有朋友可以帮助下 谢谢

[w20011025]

问题：如果把 sheet1中的B2：M2复制到C4：C15
把 sheet1中的B3：M3复制到D4：D15
用EXECL 宏实现？？？

[w20011025]

[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。

[ACMAIN_CHM]

对于公式你想如何变化？举例说明。

QQ群 48866293 OFFICE应用挖掘
MS OFFICE(ACCESS\EXCE\WORD等应用技术探讨与交流！技术群,请阅群论坛中的《踢人规则》