用VBA编程实现。
ALT+F11——F7——粘贴如下代码并调整格式：
Sub mysub()
Dim i As Integer
With Sheets(1)
Sheets(1).Select
For i = 2 To Cells(1, 256).End(xlToLeft).Column
Cells(Cells(65536, i).End(xlUp).Row, i).Select
Range(Selection, Cells(1, i)).Select
Selection.Copy
Cells([a65536].End(xlUp).Row + 1, 1).Select
ActiveSheet.Paste
Application.CutCopyMode = False
Next i
Columns(＂A:A＂).Select
Selection.SpecialCells(xlCellTypeBlanks).Select
Selection.EntireRow.Delete
Cells(1, 1).Select
End With
End Sub
运行效果如下：
有时候给Excel设置密码之后，会出现Excel无法插入、删除、重命名、移动工作簿等一系列操作，小编在此总结一下解决办法。
1、首先我们打开加过密的Excel文件
2、右击任何一个工作簿，可以看到上面的大部分功能都无法使用，这就是现状。
3、现在我们开始解决这个问题。将鼠标移到最上边，点击【审阅】选项卡。
4、点击【撤销对共享工作簿的保护】之后如图，提示让你输入密码（此处密码一般为你打开Excel时的密码），依次两步都点击确认。之后关闭Excel文档。
5、再次打开Excel文档，我们发现 【撤销对共享工作簿的保护】已经变为【保护并共享工作簿】，先不要急我们的工作还没完。
6、单击【保护工作簿】，再点击【保护结构和窗口】，会弹出对话框，提示你输入密码，密码还是前面的密码。
7、确认之后，在找到任意工作簿，右击我们可以看见前面用不了的功能现在能用了。
1、如图，这是一个有数据的表格，它存在于下面命名为“礼品” 的工作表中。后面 还有两个工作表，通过增加还可以有无数个工作表。现在要做的是把这个有数据的表格复制到“sheet2”中。
2、如图对这个表格进行全选，不仅要选择有数据有内容的，连同空白的一起选定，看见左上角红色的圈住的位置，单击就可以进行全选。
3、还是左上角的那个小三角形状的按钮，右击鼠标就会出现如图的选项。然后点击复制。
4、点击打开“sheet2”工作表，点击选中左上角第一个单元格，注意与上一步选择的不是一样的，这个是单元格。
5、然后右击进行粘贴，这样工作表“礼品”和工作表“sheet2”中都是数据一样的工作表，这样把工作表“sheet2”中的表格作为数据留存。
6、试一下，把剩余数量为零的行隐藏，选中这两行。
7、右击鼠标选择隐藏的选项即可。
8、这样工作表”礼品“中的数据就可以进行操作了，也可以轻松的与原数据进行对比了，也不会怕原数据丢失了。
以上是如何提取Excel中的第二、三、四...信息的详细内容。更多信息请关注PHP中文网其他相关文章！
