EXCEL中如何将行数据批量转换为列数据，复制粘贴转【转置】...-excel批量转换,excel地址拆分省市区

复制该行数据，然后在目标表格的目标区域的第一个单元格，单击鼠标右键，“选择性粘贴”为“转置”，即可。

你好，楼主想要的功能，可以使用VBA程序抄实现。

（一）VBA程序代码如下：（代码运行之前请做好数据备份，以免丢失）

Sub abcd()
Dim i1, i2, i3, str
On Error Resume Next
Set mysheet1 = ThisWorkbook.Worksheets("Sheet1")  '定义工作表袭Sheet1

For i1 = 1 To 1000  '从第1行到1000行
 If mysheet1.Cells(i1, 1) <> "" Then     '如果单元格不是空白，则
  str = Mid(mysheet1.Cells(i1, 1), 1, 1) '截取第一个字符
  If IsNumeric(str) = True Then          '如果截取的字符是数字，则
   i2 = i1
   i3 = 1
  Else
   i3 = i3 + 1
  mysheet1.Cells(i2, i3) = mysheet1.Cells(i1, 1)  '把ABCD项写入含有数字的那一行
 End If
End If
Next

End Sub

（二）程序运行前后的结果如下图所示，望笑zd纳。