急!求高手解答。VB编程让excel里原本横着显示的数据纵向显示

发布网友发布时间：2024-08-18 21:47

共2个回答

热心网友时间：2024-08-19 15:04

Sub test()
enh = [a65536].End(3).Row
For i = 1 To enh
Sheet2.Cells(i, 1) = Sheet1.Cells(i, enh)
Sheet2.Cells(i, 2) = Sheet1.Cells(enh, i)
Next
End Sub

追问请问如果是整列移动到sheet2的第一列，还需要用循环语句吗?有更简单的语句吗？

追答Sheet1.Range("a:a").Copy Sheet2.[a1]

将Sheet1的A列整列复制粘贴到Sheet2的A列中。

热心网友时间：2024-08-19 15:04

类似于sheet2.cells(int_row,int_col)=sheet1.cells(int_col,int_row)的语句，配合 for int_row =1 to 50 之类的循环语句便可轻易的将行列互换

声明：本网页内容为用户发布，旨在传播知识，不代表本网认同其观点，若有侵权等问题请及时与本网联系，我们将在第一时间删除处理。E-MAIL:11247931@qq.com

急!求高手解答。VB编程 让excel里原本横着显示的数据纵向显示

急!求高手解答。VB编程让excel里原本横着显示的数据纵向显示