excel根据条件列转行_excel怎么批量把行变成列

1. excel中怎样批量将行数据转换成列数据

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

(一)VBA程序代码如下：(代码运行之前请做好数据备份，以免丢失) Sub abcd()Dim i1, i2, i3, strOn Error Resume NextSet mysheet1 = ThisWorkbook.Worksheets("Sheet1") '定义工作表Sheet1For 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 IfEnd IfNextEnd Sub (二)程序运行前后的结果如下图所示，望笑纳。 。

2. Excel 表格 批量将行数据换成列数据

可以使用公式来解决你的问题。

1、首先确认你的原始表格是从SHEET1的A1单元格开始排列的。

2、在sheet2的a1单元格中输入如下公式：

=IF(MOD(ROW(),3)=1,OFFSET(Sheet1!A$1,TRUNC(ROW()/3),0),IF(MOD(ROW(),3)=2,OFFSET(Sheet1!B$1,TRUNC(ROW()/3),0),IF(MOD(ROW(),3)=0,OFFSET(Sheet1!C