列转为行的VBA代码？

将下图的A列转为B行，列我只举了两个（18301，18302,……），下面还有很多的。

推荐答案 2013-08-01

Sub zhuanzhi()

Range("数据A列范围").Select
Selection.Copy
Range("D1").Select
Selection.PasteSpecial Paste:=xlPasteAll, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=True
Range("D3").Select
End Sub

温馨提示：答案为网友推荐，仅供参考

当前网址：http://00.wendadaohang.com/zd/j0jTDDrII.html

其他回答

第1个回答 2013-08-01

追问

这是什么啊？

相似回答

用VBA将一列数据转置成多行多列?答：If MsgBox("请确认你的参数：" & vbLf & vbLf & "源数据：起始列号：" & x1 & "，起始行号：" & x2 _& vbLf & vbLf & "新数据：放置列号：" & y1 & "，放置行号：" & y2 _& vbLf & vbLf & "转置后：放置列数：" & iShu, vbOKCancel, "确认参数") = vbCancel Then Exit...

求VBA代码:有一工作薄,shee1有1500行。需要将A列的数据转入Sheet2的对...答：在Sheet2的A1中输入 =INDEX(Sheet1!$B:$B,ROUNDUP(ROW(A1),15)+MOD(COLUMN(O1),15))公式输入结束后右拖填充到O1，再下拉填充。

excel中,根据某列行数n,复制单元格粘贴至n行,用vba 如何实现?答：Application.ScreenUpdating = False With Sheet1 '假设在工作表 Sheet1 中进行操作。运行代码前一定要修改 A_LastRow = .Cells(.Rows.Count, 1).End(xlUp)B_LastRow = .Cells(.Rows.Count, 2).End(xlUp)If A_LastRow < B_LastRow Then '楼主没有详细说明，那就假设在 A 列向下复制...

excel表格里面宏的vba代码循环使用,纵表转成横表非常感谢啊答：代码如下：Sub Macro1()For i = 1 To 3 Range("A" & i * 13 - 12).Resize(12).Copy Range("F" & i + 1).PasteSpecial Paste:=xlPasteAll, Operation:=xlPasteSpecialOperationNone, SkipBlanks:=False, Transpose:=TrueNextEnd Sub ...

大家正在搜

VBA 表格的隐藏代码怎么将列转为行行数据转为列如何把列转换为行表格列转换为行如何转换表格的行和列怎么把多列数据转为一列 VBA代码 accessVBA代码