今天一位同学在群里发来了一个让大家脑洞大开的问题——Excel表格中相邻两行的数据如何快速拆分到两列？  我总结出来了三种不同的解决方案，不同方案适合不同基础水平的同学来使用，分享给大家！
 用文档曲线救国
论字符处理，最强的还是得看文档软件，我们把表格数据复制后，以纯文字的方式粘贴到文档中。  然后我们使用文档里的「文本转换成表格」功能，以「段落标记」为分隔符号，创建一个2列5行的表格。     最后将文档中的表格复制粘贴回原始表格中，就完成了。完整的视频演示如下：这个方法适合对Excel表格不是很熟悉的，但却是文档处理小能手的同学~ 
简单引用+排序筛选 在C2单元格和D2单元格中分别输入=A1和=A2单元格 选中区域C2:D3，向下拖拽填充到第10行，得到   选中CD两列，复制后，右键单击选择【粘贴为数值】   最后CD两列进行【升序】排序，即可得到想要的结果。 完整演示视频如下： 这种方案适合会使用等号写最简单的公式计算，还懂一点儿排序筛选操作的Excel刚入门的同学。 最后一种方案那就是和对Excel函数更为了解的同学们啦，这个方案是最简单快捷的。 
indirect函数嵌套Row函数只需要：在C2单元格中输入=INDIRECT("A"&ROW(A1)*2-1)在D2单元格中输入=INDIRECT("A"&ROW(A1)*2)    然后选中C2:D2区域，然后下拉填充到第6行就可以完成  indirect函数是返回由文本字符串制定的引用，在引用单元格的时候，需要在单元格名前后添加英文双引号，而row函数则是快速提取单元格所在的行号 注意：函数嵌套的时候，嵌入的函数前面不需要再输入=等号了 完整演示视频如下： 以上就是今天分享给大家的相邻量两行数据该如何快速一一对应地拆分到两列的方法，无论你是处于哪个水平的同学都可以找到适合你的方法！ 学习的时候任何一种解法都能给你带来乐趣，而在工作应用的时候，哪种方法能快速解决问题就用哪种。你有什么工作或学习中遇到的问题，欢迎在留言区留下你的问题，说不定下次分享的文章就是解决你的问题的哦~ 我是懂点儿Word/WPS的晓阳，下一篇分享我们再见~

1.    怎样使WORD文档的序列顺序倒过来
两种情况：
1、如果原始序列按数字序号排列(例3，中国 2，美国 1，英国)
先把内容复制到EXCEL中，按升序或降序排列，这样就全部倒过来了。调整后再复制回WORD中。复制时可以用选择性粘贴，方式为文本。
2、如果原始序列不按数字序号排列(中国 美国 英国)
先把内容复制到EXCEL中，然后在首列位置插入新列，第一行填入1，同时点住单元格右下角，按住CTRL向下拖。这样所有列都按数字序号排列，然后再按降序排列，这样就全部倒过来了。再把添加的数字序号列删掉，把调整排序后的内容复制回WORD中。
2.    Word中如何把文字顺序倒过来
只有通过“Microsoft Office 语言设置”启用了从右到左 (从右向左：指的是键盘设置、文档视图、用户界面对象和文字的显示方向。阿拉伯和希伯来语是从右向左式的语言。)语言支持时，此“帮助”主题中描述的功能或某些选项才可用。在控制面板里区域和语言选项里安装。
1、在“格式”菜单上，单击“段落”，再单击“缩进和间距”选项卡。
2、在“常规”下，单击“从左向右”或“从右向左”设置所需的文字方向。
3、在“对齐方式”列表中，单击所需的对齐方式。
4、单击“确定”。
或
1. 在“文件”菜单上，单击“页面设置”，再单击“版式”选项卡。
2. 在“节的起始位置”框中，选择节 (节：文档的一部分，可在其中设置某些页面格式选项。若要更改例如行编号、列数或页眉和页脚等属性，请创建一个新的节。)的开始位置。
3. 在“节的方向”框中，单击适当的方向 (方向：指定从右向左文本和文档的阅读顺序、对齐和/或可视外观，而与键盘语言无关。方向也可以描述如何确定用户界面、控件和其他屏幕对象的方向。)，“从右向左”或“从左向右”。
3.    颠倒顺序的文字怎样在Word中重新排列
实现文字倒立的方法是：插入横排文本框→输入需要的文字→然后将文字全选→后点击菜单“格式” →“中文版式” →“纵横混排”，不要选”适应行宽”，这样文字就往左旋转90度→然后再全选这些文字后按鼠标右键选择文字方向→选左面那个左转90度(见图①流程图)
注意：一定要在横排文本框中那个左转90度的文字方向才可被选中. 图②矩形框的数字是按上面方法“纵横混排”用提行和段落行距的“固定值”调整磅值调整“距离”形成共同形成的.(以上矩形外框若不需要，可以在设置自选图形格式中设置为“无”)如果把边框设置成无线条颜色，可以用于制作数轴刻度标签，而且根据需要随时修改

1.怎样使WORD文档的序列顺序倒过来
两种情况：
1、如果原始序列按数字序号排列(例3，中国 2，美国 1，英国)
先把内容复制到EXCEL中，按升序或降序排列，这样就全部倒过来了。调整后再复制回WORD中。复制时可以用选择性粘贴，方式为文本。
2、如果原始序列不按数字序号排列(中国 美国 英国)
先把内容复制到EXCEL中，然后在首列位置插入新列，第一行填入1，同时点住单元格右下角，按住CTRL向下拖。这样所有列都按数字序号排列，然后再按降序排列，这样就全部倒过来了。再把添加的数字序号列删掉，把调整排序后的内容复制回WORD中。
2.word怎么把字顺序反过来
如果就那么几个字，你就手动操作吧。
如果字很多的，那就只能用笨办法了：先打开查找替换功能，查找任意字符^？，替换为^&^p，这一步是将所有的文字都以单个字作为一行来排列，然后全选所有文字，用表格菜单里面的文本转换为表格功能，将所有的文字变成一个单列的表格。
再将表格复制到excel里面，得到一个单列的excel文档，然后在这个列后面的第二列建立一个1、2、3.。
顺序排列的数列，再将数列按照倒序排列，这样你复制过去的文字就会跟着倒序排列。
重新将倒序后的那一列复制回到word，用表格转换为文本功能，将这个单列表格变成文本，然后打开查找替换功能，查找^p，替换为里面什么都不输入，按全部替换，相当于将所有的段落标记删除，还原文档为一个整个的段落，至此，倒序排列文字完成。
3.颠倒顺序的文字怎样在Word中重新排列
实现文字倒立的方法是：插入横排文本框→输入需要的文字→然后将文字全选→后点击菜单“格式” →“中文版式” →“纵横混排”，不要选”适应行宽”，这样文字就往左旋转90度→然后再全选这些文字后按鼠标右键选择文字方向→选左面那个左转90度(见图①流程图)
注意：一定要在横排文本框中那个左转90度的文字方向才可被选中. 图②矩形框的数字是按上面方法“纵横混排”用提行和段落行距的“固定值”调整磅值调整“距离”形成共同形成的.(以上矩形外框若不需要，可以在设置自选图形格式中设置为“无”)如果把边框设置成无线条颜色，可以用于制作数轴刻度标签，而且根据需要随时修改
4.Word中如何把文字顺序倒过来
只有通过“Microsoft Office 语言设置”启用了从右到左 (从右向左：指的是键盘设置、文档视图、用户界面对象和文字的显示方向。阿拉伯和希伯来语是从右向左式的语言。)语言支持时，此“帮助”主题中描述的功能或某些选项才可用。在控制面板里区域和语言选项里安装。
1、在“格式”菜单上，单击“段落”，再单击“缩进和间距”选项卡。
2、在“常规”下，单击“从左向右”或“从右向左”设置所需的文字方向。
3、在“对齐方式”列表中，单击所需的对齐方式。
4、单击“确定”。
或
1. 在“文件”菜单上，单击“页面设置”，再单击“版式”选项卡。
2. 在“节的起始位置”框中，选择节 (节：文档的一部分，可在其中设置某些页面格式选项。若要更改例如行编号、列数或页眉和页脚等属性，请创建一个新的节。)的开始位置。
3. 在“节的方向”框中，单击适当的方向 (方向：指定从右向左文本和文档的阅读顺序、对齐和/或可视外观，而与键盘语言无关。方向也可以描述如何确定用户界面、控件和其他屏幕对象的方向。)，“从右向左”或“从左向右”。

说到excel大家应该都不陌生，也都对它强大的功能有所耳闻，自己虽然已经用了好多年，但也只能算入门水平，比如今天遇到的一个实际情况就完全不知道怎么处理，上网查阅资料之后才解决，这里记录一下。

实际情况就是：我有很多个小的excel文件，每个文件只有两行内容，且这些文件的列目录都是一样的，也就是说我需要把这几十行内容整理到一张表上。





方法一：直接复制粘贴

几十个文件倒是不算多，但这也不是一个通用的解决方法啊，如果文件再多岂不要累死。



方法二：用VBA宏解决：

求助百度之后果然找到了类似问题的解决方法和现成的一段代码：

首先把所有的子文件全部放在一个文件夹内，然后在同一个文件夹里新建一个空的excel，作为整理信息的总表，打开这个excel之后按alt+f11打开宏函数面板，如图





然后把下面一段代码拷贝过去：（经测试可直接使用）



Sub 合并当前目录下所有工作簿的全部工作表()

Dim MyPath, MyName, AWbName

Dim Wb As Workbook, WbN As String

Dim G As Long

Dim Num As Long

Dim BOX As String

Application.ScreenUpdating = False

MyPath = ActiveWorkbook.Path

MyName = Dir(MyPath & “\” & “*.xls”)

AWbName = ActiveWorkbook.Name

Num = 0

Do While MyName <> “”

If MyName <> AWbName Then

Set Wb = Workbooks.Open(MyPath & “\” & MyName)

Num = Num + 1

With Workbooks(1).ActiveSheet

.Cells(.Range(“A65536″).End(xlUp).Row + 2, 1) = Left(MyName, Len(MyName) – 4)

For G = 1 To Sheets.Count

Wb.Sheets(G).UsedRange.Copy .Cells(.Range(“A65536″).End(xlUp).Row + 1, 1)

Next

WbN = WbN & Chr(13) & Wb.Name

Wb.Close False

End With

End If

MyName = Dir

Loop

Range(“A1″).Select

Application.ScreenUpdating = True

MsgBox “共合并了” & Num & “个工作薄下的全部工作表。如下：” & Chr(13) & WbN, vbInformation, “提示”

End Sub





具体代码内容我就不详细讲了，还是不难看懂的，拷贝之后点击文档上面的小绿色三角形开始运行，稍等片刻后，返回工作表可以看到资料都被整理进来了。但整理之后还有点小问题要处理，整理进来的文件应该是这样：



就是每个文件的文件名、标题、内容、以及空行都被整理进来了，而我们最后应该只需要一行的标题及每行的数据就可以了，我们观察其中每一个有内容的行号都是mod4余3的，因此只要我们把这些行筛选出来就行了，那么怎么筛选呢？我们先在最前面新建一列内容,比如为列A，在A1的函数输入框中输入=MOD(ROW(),4)（这里可以根据自己实际情况更改）然后拖动使整列有效，这样第一列就全是0-3的数字，如图：





最后只需用审阅里面的筛选功能，把不需要的行全选中删除就好了，至此我们就完美解决了批量合并表的问题。

同步发表于个人博客： xge技术博客