求教 Excel 行转列

tengjian1981 2011-02-16 10:11:39
现有列表想把行列互换
里面单元格有公式
copy选择性复制的话原表格还在,单元格内容的公式位置也改变了。
请问 有什么其他方法实现
...全文
126 7 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
ACMAIN_CHM 2011-02-19
  • 打赏
  • 举报
回复
对于公式你想如何变化?举例说明。

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。
w20011025 2011-02-19
  • 打赏
  • 举报
回复
问题:如果把 sheet1中的B2:M2复制到C4:C15
把 sheet1中的B3:M3复制到D4:D15
用EXECL 宏实现???
tengjian1981 2011-02-18
  • 打赏
  • 举报
回复
有没有朋友可以帮助下 谢谢
tengjian1981 2011-02-17
  • 打赏
  • 举报
回复
转置如果 有公式的话 里面公式对应的公式指向的位置也会发生偏移
所以只能裁剪来做,而裁剪不支持转置功能
beyondcrab 2011-02-16
  • 打赏
  • 举报
回复
选择性粘贴-->转置

5,172

社区成员

发帖
与我相关
我的任务
社区描述
其他开发语言 Office开发/ VBA
社区管理员
  • Office开发/ VBA社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧