我经常在工作表中隐藏和取消隐藏列。如果我隐藏了整个范围的列，则发现从所有隐藏的列中取消隐藏单个列很麻烦。例如，我可以隐藏C：M列，然后稍后取消隐藏F列。可以通过多种方法来完成此操作：

  • 取消隐藏整个范围，然后隐藏C：E和G：M。

  • 在“名称”框中输入单元格F1，然后使用功能区“主页”选项卡上“格式”工具提供的控件取消隐藏该列。

在“名称”框中输入单元格F1，然后按Ctrl + Shift + 0 *取消隐藏该列。

也有其他一些方法可以取消隐藏该列，但是（如我所说），我发现这种方法很麻烦。通过一个漂亮的小宏，取消隐藏单个列或多个列的范围非常容易。

请考虑以下内容：

Sub UnhideSingleColumn()

Dim Col As String     Dim rng As Range

StartHere:

Col = InputBox("Enter column to unhide.", "Unhide Column")

If Col = "" Then Exit Sub     On Error Resume Next     ' if not a valid range, an error occurs     Set rng = ActiveSheet.Columns(Col)

If Err.Number <> 0 Then         On Error GoTo 0         Err.Clear         MsgBox "Invalid input! Please input a valid column."

GoTo StartHere     End If

rng.EntireColumn.Hidden = False

MsgBox "Column " & UCase(Col) & " is now visible.", _       vbOKOnly, "Unhide Specified Column"

Set rng = Nothing     On Error GoTo 0 End Sub

宏提示用户应该在哪一列中可见，然后尝试选择该列。如果无法选择该列，则会生成错误，并再次要求用户输入。如果可以选择该列，则其.Hidden属性将关闭，从而使该列可见。

注意：

如果您想知道如何使用此页面（或_ExcelTips_网站上的任何其他页面）中描述的宏，我准备了一个特殊页面，其中包含有用的信息。

点击此处在新的浏览器标签中打开该特殊页面。

_ExcelTips_是您进行经济高效的Microsoft Excel培训的来源。

本技巧（11471）适用于Microsoft Excel 2007、2010、2013和2016。您可以在此处为Excel的较早菜单界面找到此技巧的版本：`link：/ excel-Unhiding_a_Single_Column [取消隐藏单列]。