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

最新推荐文章于 2024-07-25 11:26:46 发布

weixin_39662228

最新推荐文章于 2024-07-25 11:26:46 发布

阅读量3.4k

点赞数 2

文章标签： excel根据条件列转行

本文链接：https://blog.csdn.net/weixin_39662228/article/details/111850157

版权

本文介绍了多种在Excel中将行数据转换为列数据的方法，包括使用VBA程序、公式以及基本操作。提供了具体的步骤和示例，帮助用户高效地完成数据转换。

摘要由CSDN通过智能技术生成

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